|
Ja som pouzil zaheslovany mdb subor, do ktoreho som vlozil heslo pre aplikaciu. Kod pre otvorenie zaheslovanej databazy a precitanie pola s heslom. V projekte je nutne mat referenciu na DAO.
Dim db As DAO.Database
Dim tb As DAO.Recordset
Dim cestaApp As String = My.Application.Info.DirectoryPath
Dim DAODBEngine_definst As New DAO.DBEngine()
db = DAODBEngine_definst.OpenDatabase(cestaApp & "\" & "heslo.mdb", False, False, ";pwd=123")
tb = db.OpenRecordset("Select * From tabHeslo")
Me.TextBox1.Text = tb("Heslo").Value
tb.Close()
db.Close()
|