Die Möglichkeit, von anderen Datenbanken als die, die Sie gerade verwenden abfragen können Ihre Access-Anwendung mehr Dynamik , können Sie erreichen dies mit Visual Basic für Applikationen (VBA) . In VBA , können Sie mit dem " OpenDatabase " Methode, um den Pfad und den Namen der Datenbank, die Sie abfragen möchten definieren . Nachdem Sie die Datenbank definieren , können Sie mit dem " Recordset " Objekt, um die Ergebnisse der Abfrage anzuzeigen. Things You
Northwind 2007-Datenbank
brauchen anzeigen Weitere Anweisungen
1

Access 2007 starten , klicken Sie auf " Leere Datenbank " und klicken Sie dann auf die Schaltfläche "Erstellen" . Wählen Sie " Database Tools " und klicken Sie dann auf " Visual Basic ".
2

Erstellen Sie eine neue Prozedur , indem Sie den folgenden Code ein: Private Sub

QueryDataBase ( ) auf Twitter Seite 3

erstellen Sie drei neue Variablen , indem Sie den folgenden VBA-Code : Dim rst

Als Recordset Dim dbs

As Database Dim

sqlstr As String

4

Definieren Sie die Datenbank , die Sie durch Eingabe des folgenden Codes abfragen :

Set dbs = OpenDatabase ( "C: \\ Nordwind 2007.accdb " )
5 < p> erstellen Sie eine SQL-Zeichenfolge , indem Sie den folgenden Code, um eine Abfrage zu erstellen :

sqlstr = " . . SELECT Orders [ Schiff Name] , Orden [ Schiff -Adresse] "

sqlstr = sqlstr & "FROM Orders"

sqlstr = sqlstr & " GROUP BY Orders [ Schiff Name] , Orden [ Schiff -Adresse] ; . . "
6

Kopieren Sie den folgenden Code zu öffnen die Abfrage durch einen " Recordset " und zeigt die Ergebnisse auf dem Direkt-Fenster :

Set rst = dbs.OpenRecordset ( sqlstr )

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

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

Debug.Print rst.Fields ( "Ship -Adresse" ) . Wert

rst.MoveNext

Schleife
7

Ende der Prozedur , indem Sie den folgenden Code:

rst.Close
< p > dbs.Close

End Sub