Tämä opetusohjelma osoittaa, kuinka VBA: n avulla avataan Access -tietokanta. Se osoittaa myös, kuinka luodaan kirjautuminen kirjautumiseen tietokantaan - tarkistetaan, onko käyttäjänimi ja salasana olemassa tietokannan tblUsers -taulukossa.
Avaa Access -tietokanta
Tämä VBA -toiminto avaa Access -tietokannan:
Julkinen toiminto OpenAccessDatabase (strDBPath merkkijonona) Jos ei ole IsNull (strDBPath) Sitten Shell "MSACCESS.EXE" "" & strDBPath & "" ", vbNormalFocus End Function
Voit kutsua funktion seuraavasti:
Yksityinen osa OpenAccessDatabase_Example () Soita OpenAccessDatabase ("C: \ temp \ Database1.accdb") Lopeta ala
Muodosta yhteys Access -tietokantaan
Vaihtoehtoisesti voit käyttää tätä koodia, joka luo uuden Access -ilmentymän, avaa tietokannan ja määrittää tietokannan muuttujalle db:
Dim objAccess kuten Access.Application Dim db DAO.Database Set objAccess = New Access.Application Set db = objAccess.DBEngine.OpenDatabase (strDBPath, False, False)
tai käytä tätä toimintoa, joka sisältää yllä olevan koodin, tietokannan avaamiseksi muuttujalle:
Julkiset toiminnot 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, FalseTo_name) Connect Lopeta toiminto
Voit kutsua toiminnon ja olla vuorovaikutuksessa tietokannan kanssa seuraavasti:
Private Sub Connect_To_AccessDB_Example () Dim AccessDB DAO.Database 'Esimerkki tietokannan määrittämisestä muuttujalle Aseta AccessDB = Connect_To_AccessDB ("c: \ temp \ TestDB.accdb") AccessDB.Execute ("Create table tbl_test3 (numeron numero, etunimi) , sukunimi char) ") 'Esimerkki ulkoisen tietokannan sulkemisen määrittämisestä AccessDB.Close Set AccessDB = Nothing' Esimerkki ulkoisen tietokantatiedoston (.accdb) poistamisesta 'Kill (" c: \ temp \ TestDB.accdb ")' Esimerkki sulje Access 'DoCmd.Quit End Sub
Pääsy tietokannan kirjautumiseen
Tämä VBA -toiminto käyttää kirjautumista tarkistamalla syötetty käyttäjätunnus ja salasana taulukon tblUsers avulla. Jotta tämä toiminto toimisi, sinun on luotava taulukko tblKäyttäjät kentillä Salasana ja Käyttäjätunnus.
Julkiset toiminnot UserLogin (käyttäjänimi merkkijonona, salasana merkkijonona) 'Tarkista, onko käyttäjä olemassa nykyisen tietokannan tblUsers -taulukossa. Dim CheckInCurrentDatabase Booleanina Salasana. ", VbInformation Exit Function End End If If CheckInCurrentDatabase = True Sitten 'Tarkista käyttäjätiedot if Nz (DCount (" UserName "," tblUsers "," [UserName] =' "& Nz (UserName," ") &" "" ), 0) = 0 Sitten MsgBox "Virheellinen käyttäjätunnus!", VbExclamation Exit Function ElseIf Nz (Password, "") Nz (DLookup ("Password", "tblUsers", "[UserName] = '" & Nz (UserName, ") ") &" '")," ") Sitten MsgBox" Virheellinen salasana! ", VbExclamation Exit Function ElseIf DCount (" UserName "," tblUsers "," [UserName] =' "& Nz (UserName," ") &" '")> 0 Himmennä sitten strPW merkkijonona strPW = Nz (DLookup (" Salasana "," tblUsers "," [Käyttäjänimi] =' "& Nz (Käyttäjänimi," ") &" ""), "") Jos Nz (Salasana "") = strPW Määritä sitten "Käyttäjätunnus ja salasana globaaleiksi versioiksi TempVars.Add" CurrentUserName ", Nz (UserName," ") TempVars.Add" Cur rentUserPassword ", Nz (Salasana," ") MsgBox" Sisäänkirjautuminen onnistui ", vbExclamation End If End Jos Else 'Aseta käyttäjänimi ja salasana globaaleiksi Veriables TempVars.Add" CurrentUserName ", Nz (UserName," ") TempVars.Add" CurrentUserPassword ", Nz (salasana," ") MsgBox" Sisäänkirjautuminen onnistui ", vbExclamation End If End Function
Voit kutsua funktion seuraavasti:
Yksityinen alikäyttäjäLogin_Example () Soita VBA_Access_General.UserLogin ("Käyttäjätunnus", "salasana") Lopeta ala
