Wissen, wie man öffnen und mehrere Datenbanken abfragen können Sie Zeit sparen , wenn Sie Daten aus mehreren Datenbank-Dateien verwenden müssen. Microsoft Office Access ist ein relationales Datenbank -Management-System von Microsoft entwickelt . Access ist eine beliebte Anwendung verwendet, um lokale Datenbanken zu entwerfen. Eine Abfrage wird verwendet, um Informationen aus einer Datenbank -Tabelle abzurufen. Visual Basic für Applikationen , die auch als VBA bekannt, ist eine Programmiersprache , die verwendet werden, um mehrere Datenbanken abgefragt werden können . Things You
Microsoft Office Access
brauchen anzeigen Weitere Anweisungen
1

Starten Sie Microsoft Office Access , wählen Sie " Leere Datenbank " klicken Sie dann auf " Erstellen". Klicken Sie auf " Database Tools " und wählen Sie " Visual Basic. " Wählen Sie das Menü "Einfügen" und klicken Sie auf
2

Geben Sie den folgenden , um die " queryMultipleDbs " Unterprogramm erstellen "Module . ":

Private Sub queryMultipleDbs ()

Drücken Sie " Enter".
3

Geben Sie die folgende neue Variablen deklarieren: Dim rst

Als Recordset Dim dbs

As Database
< p> Dim DBS2 As Database
4

Geben Sie den folgenden zu öffnen die erste Datenbank :

Set dbs = OpenDatabase ( "C: \\ Nordwind 2007.accdb " )
< p> bearbeiten Sie den Pfad und geben Sie Ihren Datenbank-Pfad
5

Geben Sie den folgenden , um die zweite Datenbank zu öffnen : .

Set DBS2 = OpenDatabase ( "C: \\ Kopie Nordwind 2007 . mdb " )

bearbeiten Sie den Pfad und geben Sie Ihren Datenbank-Pfad .
6

Geben Sie den folgenden , um die Abfrage " Employees " Tabelle in der ersten Datenbank und zeigt die Werte in der " Last Name "-Spalte :

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

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

Debug.Print rst.Fields ( "Last Name") . Wert

rst.MoveNext

Schleife

rst . Schließen
7

Geben Sie den folgenden , um die Tabelle "Products" in der ersten Datenbank abfragen und die Werte in der "Product Code "-Spalte :

Set rst = dbs2.OpenRecordset ( "SELECT Produkte . * FROM Products " )

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

Debug.Print rst . Fields ( " Product Code" ) . Wert

rst.MoveNext

Schleife

rst.Close

Set dbs = Nothing

Set DBS2 = Nothing

Presse "F5" auf Ihrer Unterroutine ausführen und die Ergebnisse durch das Direkt-Fenster .