Gewusst wie: Access Recordset in einer Abfrage verwenden

February 25

Gewusst wie: Access Recordset in einer Abfrage verwenden

Der Zugang ist ein System, die alle Werkzeuge zum Entwerfen einer Datenbank bereitstellt. Eine Abfrage wird verwendet, um Daten aus einer Datenbanktabelle abzurufen. Die Recordset-Eigenschaft wird verwendet, um die von einer Abfrage zurückgegebenen Datensätze zugreifen. Zu wissen, wie einen Access-Recordset verwenden kann Ihre Datenbankanwendung dynamischer gestaltet. Visual Basic für Applikationen (VBA) ist eine Computer-Programmiersprache, die zum Automatisieren von Routineaufgaben in Access und anderen Microsoft Office-Anwendungen verwendet. Sie können VBA verwenden, um die Abfrageergebnisse abzurufen.

Anweisungen

1 Öffnen Sie die Microsoft Access-Beispieldatenbank. Die Northwind-Datenbank ist in der Office-Suite enthalten. Klicken Sie auf "Datenbanktools" und wählen Sie "Visual Basic." Klicken Sie im Menü "Einfügen" und wählen Sie "-Modul."

2 Geben Sie Folgendes ein, um ein neues Unterprogramm zu erstellen:

Private Sub useRecordset()

Drücken Sie "Enter."

3 Geben Sie Folgendes ein, um neue Variablen zu deklarieren:

Dim StrSQL As String

Dim Dbs als Datenbank

Dim Rst als Recordset

TmpStr As String Dim

Eingestellt von Dbs = CurrentDb

4 In Ausgabe-Feldnamen in das "Direktfenster" Folgendes ein:

TmpStr = "Firma | Letzter Name | "

TmpStr = TmpStr & "Vorname |"

TmpStr = TmpStr & "Berufsbezeichnung |"

TmpStr = TmpStr & "Telefon"

Debug.Print tmpStr

5 Geben Sie Folgendes ein, um die Tabelle "Customers" Abfragen:

strSQL = "SELECT Customers.Company, Customers. [Nachname] "

StrSQL = StrSQL & "Kunden. [Vorname] "

StrSQL = StrSQL & "Kunden. [Tätigkeit], Kunden. [Telefon]"

StrSQL = StrSQL & "FROM Kunden;"

6 Geben Sie Folgendes ein, um das Recordset zu öffnen:

Festlegen von Rst = Dbs. OpenRecordset(strSQL)

RST. MoveLast

RST. MoveFirst

7 Geben Sie Folgendes ein, um das Recordset durchlaufen und Abfrageergebnisse im Direktfenster anzeigen:

Während nicht Rst zu tun. EOF

TmpStr = Rst. Fields(0). Wert

TmpStr = TmpStr & "|" & Rst. Fields(1). Wert

TmpStr = TmpStr & "|" & Rst. Konnten(2). Wert

TmpStr = TmpStr & "|" & Rst. Fields(3). Wert

TmpStr = TmpStr & "|" & Rst. Fields(4). Wert

Debug.Print tmpStr

RST. MoveNext

Loop

8 Geben Sie Folgendes ein, um die Variablen aus dem Speicher zu löschen:

RST. Schließen

DBS. Schließen

Mit "F5" Unterroutine ausgeführt.