Ovaj će vodič pokazati kako koristiti VBA za otvaranje Access baze podataka. Također će pokazati kako stvoriti prijavu za pristup bazi podataka - provjeravajući postoje li korisničko ime i lozinka u tablici tblUsers baze podataka.
Otvorena baza podataka Access
Ova VBA funkcija otvorit će Access Database:
Javna funkcija OpenAccessDatabase (strDBPath kao niz) Ako nije IsNull (strDBPath) Zatim ljuska "MSACCESS.EXE" "" & strDBPath & "" "", vbNormalFocus Krajnja funkcija
Funkciju možete pozvati ovako:
Privatna podređena OpenAccessDatabase_Example () Poziv OpenAccessDatabase ("C: \ temp \ Database1.accdb") Završna pod
Povežite se s Access Database
Alternativno, možete koristiti ovaj kôd koji će stvoriti novu instancu programa Access, otvoriti bazu podataka i dodijeliti bazu podataka varijabli db:
Dim objAccess As Access.Application Dim db as DAO.Database Set objAccess = New Access.Application Set db = objAccess.DBEngine.OpenDatabase (strDBPath, False, False)
ili upotrijebite ovu funkciju koja sadrži gornji kod za otvaranje baze podataka varijabli:
Javna funkcija Connect_To_AccessDB (strDBPath As String) Kao DAO.Database Dim objAccess As Access.Application Dim db As DAO.Database Set objAccess = New Access.Application Set db = objAccess.DBEngine.OpenDatabase (strDBPath, FalD_Broj_pogrešaka, False_dodato, False) Završna funkcija
Možete pozvati funkciju i stupiti u interakciju s bazom podataka pomoću ovakvog postupka:
Private Sub Connect_To_AccessDB_Example () Dim AccessDB Kao DAO.Database 'Primjer za dodjelu baze podataka varijabli Postavite AccessDB = Connect_To_AccessDB ("c: \ temp \ TestDB.accdb") AccessDB.Execute ("stvorite tablicu tbl_test3 (broj broja, ime char , prezime char) ") 'Primjer za dodjelu zatvaranja vanjske baze podataka AccessDB.Zatvori Zatvori AccessDB = Ništa' Primjer za brisanje datoteke vanjske baze podataka (.accdb) 'Ubij (" c: \ temp \ TestDB.accdb ")' Primjer kako biste zatvorili Access 'DoCmd.Odustani od završetka podv
Pristupite prijavi u bazu podataka
Ova VBA funkcija koristi prijavu provjeravajući uneseno korisničko ime i lozinku u tablici tblUsers. Da bi ova funkcija radila, morat ćete stvoriti tablicu tblUsers s poljima Lozinka i Korisničko ime.
Javna funkcija UserLogin (Korisničko ime kao niz, lozinka kao niz) 'Provjerite postoji li korisnik u tablici tblUsers trenutne baze podataka. Dim CheckInCurrentDatabase Kao Booleovska CheckInCurrentDatabase = True Ako je Nz (korisničko ime, "") = "" Zatim MsgBox "Morate unijeti korisničko ime.", VbInformation Izlaz Funkcija OstaloIz Nz (Lozinka, "")) = "" Zatim MsgBox "Morate unijeti Lozinka " ), 0) = 0 Zatim MsgBox "Neispravno korisničko ime!", VbExclamation Izlazna funkcija OstaloAko Nz (Lozinka, "") Nz (DLookup ("Lozinka", "tblUsers", "[Korisničko ime] = '" & Nz (Korisničko ime, " ") &" '")," ") Zatim MsgBox" Neispravna lozinka! ", VbExclamation Izlazna funkcija ElseIf DCount (" Korisničko ime "," tblUsers "," [Korisničko ime] =' "& Nz (Korisničko ime," ") &" '")> 0 Zatim zatamni strPW kao niz strPW = Nz (DLookup (" Lozinka "," tblUsers "," [Korisničko ime] =' "& Nz (Korisničko ime," ") &" '")," ") Ako je Nz (Lozinka, "") = strPW Zatim 'Postavite korisničko ime i zaporku kao globalne varijable TempVars.Add "CurrentUserName", Nz (UserName, "") TempVars.Add "Cur rentUserPassword ", Nz (Lozinka," ") MsgBox" Uspješno prijavljeni ", vbExclamation Kraj ako kraj Ako je drugačije" Postavite korisničko ime i zaporku kao globalne varijable TempVars.Dodajte "CurrentUserName", Nz (Korisničko ime, "") TempVars.Add "CurrentUserPassword ", Nz (Lozinka," ") MsgBox" Uspješno prijavljeni ", vbExclamation End If End Funkcija
Funkciju možete pozvati ovako:
Private Sub UserLogin_Example () Pozovite VBA_Access_General.UserLogin ("Korisničko ime", "lozinka") Kraj Sub
