Wissen, wie man mit Visual Basic für Applikationen (VBA) bei der Arbeit mit Microsoft Access können Sie Zeit sparen , wenn Sie Inhalte in einer Datenbank-Tabelle angezeigt werden müssen . Sie können den Inhalt einer Datenbank -Tabelle mit ein Recordset-Objekt abzurufen. Recordsets bestehen aus Datensätzen (Zeilen) und Feldern ( Spalten). Sie geben Ihnen die Flexibilität, um anzuzeigen oder zu manipulieren Daten in einer Tabelle . A " For-Schleife " kann eine Schleife durch alle Feld-und Datensatz in einer Datenbank-Tabelle verwendet werden. Things You
Zugriff Nordwind
brauchen anzeigen Weitere Anweisungen
1
Starten Sie die Nordwind- 2007-Datenbank und klicken Sie auf " Database Tools. " Klicken Sie auf " Visual Basic ", um den Microsoft Visual Basic -Fenster zu öffnen . Klicken Sie auf das Menü "Einfügen" und klicken
2
Geben Sie den folgenden ein neues Verfahren zur Ausführung zu erstellen "Module . ":
Private Sub stepThroughFields ()
On Error GoTo Err_stepThroughFields :
3
Geben Sie den folgenden Variablen verwendet werden, um die Orders-Tabelle lesen zu erstellen : Dim dbs
As Database Dim rst
Wie Recordset
Dim rcrdCnt As Integer Dim
fldCnt As Integer
4
Geben Sie den folgenden , um die Datenbank zu definieren, verwenden:
Set dbs = CurrentDb
5
Geben Sie den folgenden , um eine neue RecordSet mit der Orders-Tabelle zu öffnen:
Set rst = dbs.OpenRecordset ( "Bestellungen")
6
Geben Sie den folgenden eine Schleife durch jedes Feld in der Tabelle und zeigt den Namen :
fldCnt = 0 To rst.Fields.Count - 1 of
Debug.Print rst.Fields ( fldCnt ) . Bezeichnung
Weiter fldCnt
7
Geben Sie den folgenden eine Schleife durch alle Felder in jeder Zeile der Tabelle und zeigt seinen Inhalt :
rst.MoveFirst
rcrdCnt = 0 To rst.RecordCount - 1 of
fldCnt = 0 To rst.Fields.Count - . 1 of
Debug.Print rst.Fields ( fldCnt ) Wert
Weiter fldCnt
rst.MoveNext
Weiter rcrdCnt
8
Geben Sie den folgenden Variablen aus dem Speicher freizugeben :
rst.Close
dbs.Close
9
Geben Sie die folgende Prozedur , um Ihren beenden und erfassen Fehler :
Exit_stepThroughFields :
Exit Sub
Err_stepThroughFields :
MsgBox Err.Description
Lebenslauf ' Exit_stepThroughFields :
End Sub
