Att veta hur man öppnar och fråga flera databaser kan spara tid när du behöver använda data från flera databasfiler . Microsoft Office Access är en relationsdatabas management system som utvecklats av Microsoft . Access är ett populärt program som används för att utforma lokala databaser . En fråga används för att hämta information från en databastabell. Visual Basic for Applications , även känd som VBA , är en dator programmeringsspråk som kan användas för att söka flera databaser . Saker du behöver
Microsoft Office Access
Visa fler instruktioner
1
Starta Microsoft Office Access , välj " Tom databas " och sedan klicka på " Skapa ". Klicka på " Databas Verktyg " och välj " Visual Basic . " Välj " Infoga " -menyn och klicka sedan på
2
Skriv följande för att skapa den " queryMultipleDbs " subrutin " Modul . " :
Private Sub queryMultipleDbs ( ) katalog
Tryck " Enter ".
3
Skriv följande för att deklarera nya variabler :
Dim rst som Recordset
Dim dbs som databas
Dim dbs2 som databas
4
Skriv följande för att öppna den första databasen :
Set dbs = OpenDatabase ( " C : \\ Northwind 2007.accdb " ) katalog
Redigera sökvägen och skriv din databas sökväg
5
skriv följande för att öppna den andra databasen : .
Set dbs2 = OpenDatabase ( " C : \\ Kopia av Northwind 2007. accdb " ) katalog
Redigera sökvägen och skriv din databas sökväg .
6
skriv följande för att söka i tabellen" employees " i den första databasen och visa värdena i " Senast namn "-kolumnen :
Set rst = dbs.OpenRecordset ( " SELECT Anställda * FROM Anställda " . ) katalog
rst.MoveLast
rst.MoveFirst
gör Medan Inte rst.EOF
Debug.Print rst.Fields ( " Efternamn " ) . Value
rst.MoveNext
Loop
RST . Stäng
7
Skriv följande för att söka i " produkter " tabellen i den första databasen och visa värdena i " Product Code "-kolumnen :
Set rst = dbs2.OpenRecordset ( " SELECT produkter . * FROM Products " ) katalog
rst.MoveLast
rst.MoveFirst
Do Medan Inte rst.EOF
Debug.Print RST . fält ( " Product Code " ) . Value
rst.MoveNext
Loop
rst.Close
Set dbs = Nothing
set dbs2 = Nothing
Tryck " F5 " för att köra din subrutin och visa resultaten genom Immediate Window .
