Ez az oktatóanyag bemutatja, hogyan kell használni a VBA -t egy Access Database megnyitásához. Azt is bemutatja, hogyan hozhat létre bejelentkezést az adatbázis eléréséhez - ellenőrizve, hogy a felhasználónév és jelszó létezik -e az adatbázis tblUsers táblájában.
Nyissa meg az Access Access adatbázist
Ez a VBA funkció megnyit egy hozzáférési adatbázist:
Nyilvános függvény OpenAccessDatabase (strDBPath mint karakterlánc) Ha nem IsNull (strDBPath), akkor a Shell "MSACCESS.EXE" "" & strDBPath & "" "", vbNormalFocus End Function
A funkciót így hívhatja:
Privát al OpenAccessDatabase_Example () Hívja meg az OpenAccessDatabase ("C: \ temp \ Database1.accdb") végét
Csatlakozás az Access Database -hez
Alternatív megoldásként használhatja ezt a kódot, amely új Access -példányt hoz létre, megnyit egy adatbázist, és hozzárendeli az adatbázist egy változóhoz db:
Dim objAccess mint hozzáférés. Alkalmazás Dim db mint DAO.Database Set objAccess = Új hozzáférés. Alkalmazáskészlet db = objAccess.DBEngine.OpenDatabase (strDBPath, False, False)
vagy használja ezt a funkciót, amely tartalmazza a fenti kódot, hogy megnyisson egy adatbázist egy változóhoz:
Nyilvános függvény Connect_To_AccessDB (strDBPath as String) DAO.Database Dim objAccess As Access.Application Dim db DAO.Database Set objAccess = New Access.Application Set db = objAccess.DBEngine.OpenDatabase (strDBPath, Hamis, False Vége funkció
Hívhatja a függvényt és léphet kapcsolatba az adatbázissal az alábbi eljárással:
Private Sub Connect_To_AccessDB_Example () Dim AccessDB DAO.Database 'Példa adatbázis hozzárendelésére egy változóhoz Set AccessDB = Connect_To_AccessDB ("c: \ temp \ TestDB.accdb") AccessDB.Execute ("create table tbl_test3 (szám, keresztnév char , vezetéknév char) ") 'Példa egy külső adatbázis bezárásának hozzárendeléséhez AccessDB.Close Set AccessDB = Nothing' Példa egy külső adatbázis fájl törléséhez (.accdb) 'Kill (" c: \ temp \ TestDB.accdb ")' Példa bezárni az Access 'DoCmd.Quit End Sub
Hozzáférés az adatbázis bejelentkezéshez
Ez a VBA funkció a bejelentkezést használja a beírt felhasználónév és jelszó ellenőrzésére a tblUsers táblában. Ahhoz, hogy ez a funkció működjön, létre kell hoznia egy tblUsers táblát Jelszó és Felhasználónév mezőkkel.
Nyilvános függvény UserLogin (felhasználónév karakterláncként, jelszó karakterláncként) 'Ellenőrizze, hogy a felhasználó létezik -e az aktuális adatbázis tblUsers táblájában. Dim CheckInCurrentDatabase Booleanként Jelszó. ", VbInformation Exit Function End End If If CheckInCurrentDatabase = True Akkor 'Ellenőrizze a felhasználói hitelesítő adatokat, ha Nz (DCount (" UserName "," tblUsers "," [UserName] =' "& Nz (UserName," ") &" '" ), 0) = 0 Ezután az MsgBox "Érvénytelen felhasználónév!", VbExclamation Exit Function ElseIf Nz (Password, "") Nz (DLookup ("Password", "tblUsers", "[UserName] = '" & Nz (UserName, ") ") &" '")," ") Ezután az MsgBox" Érvénytelen jelszó! ", VbExclamation Exit Funkció ElseIf DCount (" UserName "," tblUsers "," [UserName] =' "& Nz (UserName," ") &" '")> 0 Ezután halványítsa be az strPW -t karakterláncként strPW = Nz (DLookup (" Jelszó "," tblUsers "," [Felhasználónév] =' "& Nz (Felhasználónév," ") &" '")," ") Ha Nz (Jelszó, "") = strPW Ezután 'Állítsa be a felhasználónevet és a jelszót globális veriabilis TempVars -ként. Adja hozzá a "CurrentUserName", Nz (UserName, "") TempVars.Add "Cur" rentUserPassword ", Nz (jelszó," ") MsgBox" Sikeresen bejelentkezve ", vbMelkiáltás Vége Ha vége Vége Ha más" Állítsa be a felhasználónevet és a jelszót globális változatoknak TempVars.Add "CurrentUserName", Nz (UserName, "") TempVars.Add "CurrentUserPassword ", Nz (Jelszó," ") MsgBox" Sikeresen bejelentkezve ", vbKiáltás Vége Ha vége Funkció
A funkciót így hívhatja:
Privát alfelhasználóLogin_Example () VBA_Access_General.UserLogin hívása ("Felhasználónév", "jelszó") Vége
