Å vite hvordan du åpner og spørre flere databaser kan spare deg for tid når du trenger å bruke data fra flere databasefiler. Microsoft Office Access er en relasjonsdatabase styringssystem utviklet av Microsoft. Access er et populært program som brukes til å utforme lokale databaser . En spørring brukes til å hente informasjon fra en database tabell . Visual Basic for Applications , også kjent som VBA er et programmeringsspråk som kan brukes til å spørre flere databaser . Du trenger
Microsoft Office Access
Vis flere instruksjoner
en
start Microsoft Office Access , velger du " Blank Database " klikk " Opprett". Klikk på " Database Verktøy " og velg " Visual Basic. " Velg " Insert" -menyen og klikk
2
Skriv inn følgende for å skape " queryMultipleDbs " subrutine " Module ". :
Private Sub queryMultipleDbs ( )
Trykk på "Enter".
3
Skriv inn følgende å erklære nye variabler : en
Dim rst Som Recordset
Dim dBS Som Database
< p> Dim dbs2 Som database
4
Skriv inn følgende for å åpne den første databasen : en
Set dBS = OpenDatabase ( "C : \\ Northwind 2007.accdb ")
< p> Rediger banen og skriv din database banen
5
skriv inn følgende for å åpne andre database: .
Set dbs2 = OpenDatabase ( "C : \\ Kopi av Northwind 2007 . accdb ")
Rediger banen og skriv din database banen .
6
skriv inn følgende for å søke på " ansatte "tabellen i den første databasen og vise verdiene i" Siste navn "-kolonnen : en
Set rst = dbs.OpenRecordset ( " SELECT ansatte * FROM ansatte ". )
rst.MoveLast
rst.MoveFirst
do While Not rst.EOF
Debug.Print rst.Fields ( " etternavn ") . Verdi
rst.MoveNext
Loop
rst . Lukk
7
Skriv inn følgende for å søke på " produkter" tabellen i den første databasen og vise verdiene i " Product Code" -kolonnen : en
Sett rst = dbs2.OpenRecordset ( "SELECT Products . * FROM produkter")
rst.MoveLast
rst.MoveFirst
gjøre mens Ikke rst.EOF
Debug.Print rst . felt (" Product Code" ) . Verdi
rst.MoveNext
Loop
rst.Close
Set dBS = Ingenting
Set dbs2 = Ingenting
Trykk " F5 " for å kjøre subrutine og vise resultatene gjennom Umiddelbar Window.
