DAO und ADO Recordset Builder

Der Recordset Builder macht es sehr einfach, Code zum Hinzufügen, Lesen, Aktualisieren oder Durchsuchen von Daten in Ihrer MS Access-Datenbank mit DAO (oder ADO) zu erstellen:

1. Wählen Sie die zu bearbeitende Tabelle
2. Wählen Sie die Felder, auf die Sie zugreifen möchten
3. Wählen Sie die Art des Codes, die Sie verwenden möchten: Hinzufügen, Aktualisieren, Lesen oder Durchsuchen
4. OK

Der Builder gibt einen Code vor, den Sie so ausfüllen müssen, wie es Ihren Zwecken entspricht. Im Fall von FindFirst müssen Sie den Kriterienstring angeben. Beispiel in MS Docs Recordset.FindFirst Methode (DAO) Im Allgemeinen können Sie die Dokumentation finden, indem Sie den Cursor in die Prozedur setzen und F1 drücken.

Wählen Sie nur die Felder aus, die Sie verwenden wollen, und ordnen Sie sie den Variablen in Ihrem Programm zu, wie Sie es für richtig halten, z. B.

Dim strSalutation as String
strSalutation  = ![fldFirstName]
strSalutation = & " " &  ![fldLastName]

Hinweis: Um einen einfachen Zugriff auf die DAO-Dokumentation zu ermöglichen, haben wir eine Index-Seite erstellt: https://www.codevba.com/learn-dao-vba.htm

DAO-Datensatz Code hinzufügen (Beispiel)

Bei ausgewählten Werten würde der folgende DAO-Code eingefügt werden

Dim db As DAO.Database
Set db = CurrentDb
Set rstCategories = db.OpenRecordset("Employees", dbOpenDynaset)
With rstCategories
    .AddNew
    ![LastName] =
    ![FirstName] =
    ![HomePhone] =
    ![ReportsTo] =
    .Update
    .Close
End With
Set rstCategories = Nothing
db.Close
Set db = Nothing

DAO Recordset-Durchsuchungscode (Beispiel)

Bei ausgewählten Werten würde der folgende DAO-Code eingefügt werden

Dim db As DAO.Database
Set db = CurrentDb
Set rstCategories = db.OpenRecordset("Employees", dbOpenDynaset)
With rstCategories
    Do While Not .EOF
        Debug.Print ![EmployeeID], ![LastName], ![FirstName], ![HomePhone]
        .MoveNext
    Loop
    .Close
End With
Set rstCategories = Nothing
db.Close
Set db = Nothing