Vide, hvordan man åbner og søge flere databaser kan spare dig tid, når du skal bruge data fra flere databasefiler . Microsoft Office Access er en relationel database management system udviklet af Microsoft. Access er et populært program bruges til at designe lokale databaser . En forespørgsel bruges til at hente information fra en database tabel . Visual Basic for Applications , også kendt som VBA , er en computer programmeringssprog , der kan bruges til at forespørge flere databaser . Ting du skal
Microsoft Office Access
Vis Flere Instruktioner
1

Start Microsoft Office Access , skal du vælge " Tom database " og derefter klikke på "Opret ". Klik på " Database Tools " og derefter vælge " Visual Basic ". Vælg "Indsæt " menuen og klik derefter på
2

Skriv følgende for at skabe den " queryMultipleDbs " subrutine " Modul ". :

Private Sub queryMultipleDbs ( )

Tryk på " Enter".
3

Skriv følgende at erklære nye variabler : Hej

Dim rst Som Recordset

Dim dbs som database
< p> Dim dbs2 Som database
4

Skriv følgende for at åbne den første database : Hej

Set dbs = OpenDatabase ( "C: \\ Northwind 2007.accdb " )
< p> Rediger stien og skriv din database stien
5

Skriv følgende for at åbne den anden database: .

Set dbs2 = OpenDatabase ( "C: \\ Kopi af Northwind 2007. accdb " )

Rediger stien og skriv din database sti.
6

Skriv følgende for at søge i " Medarbejderne " tabel i den første database , og vise værdierne i" Sidste Name " kolonnen : Hej

Set rst = dbs.OpenRecordset ( " SELECT medarbejdere * FROM Medarbejdere ". )

rst.MoveLast

rst.MoveFirst

do While Ikke rst.EOF

Debug.Print rst.Fields ( " Efternavn "). Value

rst.MoveNext

Loop

rst . Luk
7

Skriv følgende for at søge i " Products " tabel i den første database og vise værdierne i " Product Code " kolonnen : Hej

Set rst = dbs2.OpenRecordset ( " Vælg produkter . * FROM produkter" )

rst.MoveLast

rst.MoveFirst

Må Mens Ikke rst.EOF

Debug.Print rst . felter (" Product Code "). Value

rst.MoveNext

Loop

rst.Close

Set dbs = Nothing

Set dbs2 = Nothing

Tryk på " F5 " for at køre din subrutine og vise resultaterne gennem Immediate Window .