Recordsets sind zentrale Bestandteile beim Zugriff auf Daten mit ADODB. Sie bieten umfangreiche Funktionen zur Navigation, Bearbeitung, Filterung und Analyse von Daten. In diesem Artikel zeigen wir eine vollständige Übersicht aller Eigenschaften und Methoden des Recordset-Objekts und erläutern diese jeweils ausführlich mit praktischen Beispielen. Besonderes Augenmerk legen wir auf die Ereignisse eines Recordsetes. Im Gegensatz zum DAO-Recordset bietet das ADODB-Recordset nämlich die Möglichkeit, auf verschiedene Ereignisse zu reagieren – beispielsweise auf Änderungen im Datensatz.<\/b><\/p>\nBeispieldatenbank<\/h2>\n
Die Beispiele dieses Artikels findest Du in der Beispieldatenbank ADODB_Recordset_AlleEigenschaften.accdb<\/b>.<\/p>\nÜbersicht: Eigenschaften und Methoden<\/h2>\n
Im Folgenden geben wir eine Kurzbeschreibung aller verfügbaren Eigenschaften und Methoden des Recordset<\/b>-Objekts, bevor wir diese im Einzelnen detailliert erläutern:<\/p>\n Im folgenden Abschnitt erläutern wir jede dieser Methoden und Eigenschaften einzeln.<\/p>\n Wir geben Anwendungsbeispiele, zeigen Einsatzmöglichkeiten in VBA und gehen auf Spezialfälle ein.<\/p>\n In diesem Artikel verwenden wir durchgängig die Tabelle tblKunden<\/b> mit den Feldern KundenID<\/b>, Nachname<\/b>, Vorname<\/b> und Ort<\/b>. Die Datenbank enthält fünf Testdatensätze mit Namen und Orten.<\/p>\n Diese erstellen wir mit einer eigenen Prozedur (siehe Listing 1).<\/p>\n Listing 1: Erstellen einer Tabelle mit Beispieldaten<\/span><\/b><\/p>\n Alle folgenden Beispiele beginnen mit dem vollständigen Aufbau einer ADODB-Verbindung zu einer Access-Datenbank und dem Öffnen eines Recordsets auf Basis der Tabelle tblKunden<\/b>.<\/p>\n Ein Beispiel hierzu sehen wir in Listing 2. Hier erstellen wir ein Connection<\/b>-Objekt und füllen es mit einem Verweis auf die Connection der aktuellen Access-Datenbank (CurrentProject.Connection<\/b>).<\/p>\n Listing 2: Prozedur zum Durchlaufen von Kundendatensätzen<\/span><\/b><\/p>\n Danach erstellen und öffnen wir ein Recordset auf Basis der Tabelle tblKunden<\/b>. Die Details beschreiben wir später. Schließlich durchlaufen wir in einer Do While<\/b>-Schleife alle Datensätze dieses Recordsets.<\/p>\n Die Eigenschaften EOF<\/b> (End of File) und BOF<\/b> (Beginning of File) zeigen an, ob sich der Datensatzzeiger am Ende oder vor dem Anfang des Recordsets befindet.<\/p>\n Beide Eigenschaften sind vom Typ Boolean<\/b> und spielen eine zentrale Rolle bei der sicheren Navigation durch Daten.<\/p>\n Insbesondere bei leeren Recordsets ist es wichtig, beide Eigenschaften zu prüfen: Ist EOF<\/b> und BOF<\/b> gleichzeitig True<\/b>, enthält das Recordset keine Datensätze – weder vorne noch hinten<\/p>\n In Listing 3 erstellen wir ein Recordset, das keine Datensätze enthält, da das Kriterium (1=2) für keinen Datensatz erfüllt wird.<\/p>\n Listing 3: Prüfen, ob sich der Datensatzzeiger vor oder hinter dem ersten oder letzten Datensatz befindet.<\/span><\/b><\/p>\n Hier prüfen wir, ob rst.EOF <\/b>und rst.BOF <\/b>gleichzeitig True <\/b>liefern. In diesem Fall gibt es keine Datensätze.<\/p>\n In einem weiteren Beispiel nutzen wir rst.EOF <\/b>bei einer Suche. Wir suchen mit der Find<\/b>-Methode nach einem Datensatz mit einem bestimmten Kriterium. Nach der Suche prüfen wir, ob rst.EOF <\/b>wahr ist. In diesem Fall wird die Suche als erfolglos gemeldet, anderenfalls wird der gefundene Datensatz ausgegeben:<\/p>\n Über die Fields<\/b>-Auflistung kannst Du auf einzelne Spalten eines Datensatzes zugreifen. Du kannst sowohl den Feldnamen als auch den Index (beginnend bei 0<\/b>) verwenden.<\/p>\n Mit EditMode<\/b> lässt sich abfragen, ob das Recordset aktuell bearbeitet wird.<\/p>\n Diese Information ist besonders bei formulargebundenen oder interaktiv bearbeiteten Recordsets nützlich.<\/p>\n Neue Datensätze lassen sich mit AddNew<\/b> erstellen. Anschließend musst Du mit Update<\/b> speichern. Hier ein vollständiges Beispiel:<\/p>\n Um einen Datensatz zu löschen, positionierst Du das Recordset auf den gewünschten Eintrag und rufst Delete<\/b> auf. Die Änderung wird sofort übernommen:<\/p>\n Mit der Eigenschaft Filter<\/b> kannst Du ein geöffnetes Recordset einschränken. Der Filter wirkt sich auf die Navigation und Methoden wie MoveNext<\/b> aus.<\/p>\n Mit Find<\/b> lässt sich der erste passende Datensatz ermitteln. Die Suche erfolgt relativ zur aktuellen Position. Als Parameter geben wir ein Filterkriterium an, das genauso aussieht wie das für die WHERE<\/b>-Condition:<\/p>\n Mit Sort<\/b> kannst Du die aktuelle Reihenfolge der Datensätze im Recordset ändern – ohne erneute Datenbankabfrage. Hier ist es allerdings erforderlich, dass wir explizit die Eigenschaft CursorLocation <\/b>auf adUseClient <\/b>einstellen. Bisher haben wir diese Einstellung nicht vorgenommen, weil dies nicht notwendig war. Mehr zu dieser Einstellung weiter unten.<\/p>\n Im Beispiel rufen wir die Sort<\/b>-Methode mit dem Parameter Nachname DESC <\/b>auf. Dadurch sortieren wir absteigend nach den Nachnamen:<\/p>\n Wenn wir nicht nur nach einem Feld sortieren wollen, geben wir die Sortierkriterien durch Kommata getrennt an – genau wie in der ORDER BY<\/b>-Klausel von SQL:<\/p>\n Mit GetRows<\/b> lassen sich Datensätze blockweise als Array auslesen – effizient für Auswertungen oder Übergabe an andere Routinen.<\/p>\n Im folgenden Beispiel füllen wir ein Array auf Basis der GetRows<\/b>-Funktion des ADODB-Recordsets. Danach durchlaufen wir alle Zeilen und Spalten und geben diese im Direktbereich von Access aus:<\/p>\n Dies gibt die Daten wie folgt aus:<\/p>\n Diese Methoden ermöglichen die Navigation im Recordset. MoveFirst<\/b> springt zum ersten Datensatz, MoveLast<\/b> zum letzten. MoveNext<\/b> und MovePrevious<\/b> bewegen den Zeiger jeweils vorwärts oder rückwärts.<\/p>\n Das folgende Beispiel zeigt die verschiedenen Aufrufe:<\/p>\n Die Methode Move<\/b> ermöglicht es Dir, den Datensatzzeiger um eine beliebige Anzahl von Positionen vorwärts oder rückwärts zu verschieben. Der erste Parameter gibt an, wie viele Datensätze der Zeiger verschoben werden soll. Positive Zahlen bewegen den Zeiger vorwärts, negative rückwärts. Ein zweiter, optionaler Parameter gibt an, von welcher Startposition aus die Bewegung erfolgen soll, meistens wird dieser aber nicht verwendet.<\/p>\n Beispiel:<\/p>\n Das Properties<\/b>-Objekt enthält zusätzliche Informationen zum Recordset – etwa Provider-spezifische Einstellungen.<\/p>\n Hier durchlaufen wir alle Property<\/b>-Elemente in einer Do While<\/b>-Schleife und geben jeweils den Property<\/b>-Namen und den Wert im Direktbereich des VBA-Editors aus:<\/p>\n RecordCount<\/b> liefert die Anzahl der Datensätze. Achtung: Bei Verwendung des Wertes adOpenForwardOnly<\/b> für den dritten Parameter der Open<\/b>-Methode ist diese Information erst nach vollständigem Durchlauf verfügbar.<\/p>\n\n
Detaillierte Beschreibung aller Funktionen<\/h2>\n
Beispielumgebung<\/h2>\n
Public Sub <\/span>TabelleKundenErstellenUndFüllen()\r\n Dim <\/span>cnn As <\/span>ADODB.Connection\r\n Dim <\/span>strPfad As String<\/span>\r\n Dim <\/span>strSQL As String<\/span>\r\n '' Verbindung zur aktuellen Access-Datenbank herstellen\r\n Set<\/span> cnn = New<\/span> ADODB.Connection\r\n strPfad = CurrentProject.FullName\r\n cnn.ConnectionString = \"Provider=Microsoft.ACE.OLEDB.12.0;\" & _\r\n \"Data Source=\" & strPfad & \";\" & _\r\n \"Persist Security Info=False;\"\r\n cnn.Open\r\n '' Bestehende Tabelle löschen (falls vorhanden)\r\n On Error Resume Next<\/span>\r\n cnn.Execute \"DROP TABLE tblKunden\"\r\n On Error GoTo<\/span> 0\r\n '' Tabelle erstellen\r\n strSQL = \"CREATE TABLE tblKunden (\" & _\r\n \"KundenID AUTOINCREMENT PRIMARY KEY, \" & _\r\n \"Nachname TEXT(50), \" & _\r\n \"Vorname TEXT(50), \" & _\r\n \"Ort TEXT(50))\"\r\n cnn.Execute strSQL\r\n '' Beispieldatensätze einfügen\r\n cnn.Execute \"INSERT INTO tblKunden (Nachname, Vorname, Ort) VALUES (''Müller'', ''Anna'', ''Berlin'')\"\r\n cnn.Execute \"INSERT INTO tblKunden (Nachname, Vorname, Ort) VALUES (''Schmidt'', ''Peter'', ''Hamburg'')\"\r\n cnn.Execute \"INSERT INTO tblKunden (Nachname, Vorname, Ort) VALUES (''Lehmann'', ''Julia'', ''München'')\"\r\n cnn.Execute \"INSERT INTO tblKunden (Nachname, Vorname, Ort) VALUES (''Weber'', ''Klaus'', ''Stuttgart'')\"\r\n cnn.Execute \"INSERT INTO tblKunden (Nachname, Vorname, Ort) VALUES (''Klein'', ''Maria'', ''Düsseldorf'')\"\r\n '' Verbindung schließen\r\n cnn.Close\r\n Set<\/span> cnn = Nothing\r\n MsgBox<\/span> \"Tabelle ''tblKunden'' wurde erstellt und mit Daten gefüllt.\", vbInformation\r\nEnd Sub<\/span><\/pre>\nVerbindung und Recordset öffnen<\/h2>\n
Public Sub <\/span>KundenRecordsetOeffnen()\r\n Dim <\/span>cnn As <\/span>ADODB.Connection\r\n Dim <\/span>rst As <\/span>ADODB.Recordset\r\n Set<\/span> cnn = CurrentProject.Connection\r\n Set<\/span> rst = New<\/span> ADODB.Recordset\r\n rst.Open \"SELECT * FROM tblKunden\", cnn, adOpenKeyset, adLockOptimistic\r\n Do Until rst.EOF\r\n Debug.Print<\/span> rst!Vorname & \" \" & rst!Nachname\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n rst.Close\r\n Set<\/span> rst = Nothing\r\n cnn.Close\r\n Set<\/span> cnn = Nothing\r\nEnd Sub<\/span><\/pre>\nEOF und BOF<\/h2>\n
Public Sub <\/span>KundenDurchlaufen()\r\n Dim <\/span>cnn As <\/span>ADODB.Connection\r\n Dim <\/span>rst As <\/span>ADODB.Recordset\r\n Set<\/span> cnn = CurrentProject.Connection\r\n Set<\/span> rst = New<\/span> ADODB.Recordset\r\n rst.Open \"SELECT * FROM tblKunden WHERE 1 = 2\", cnn, adOpenKeyset, adLockOptimistic\r\n If <\/span>rst.BOF And rst.EOF Then<\/span>\r\n MsgBox<\/span> \"Keine Datensätze vorhanden.\"\r\n Else<\/span>\r\n ''Operationen für vorhandene Datensätze\r\n End If<\/span>\r\n rst.Close\r\n Set<\/span> rst = Nothing\r\n cnn.Close\r\n Set<\/span> cnn = Nothing\r\nEnd Sub<\/span><\/pre>\n...\r\nrst.Find \"Nachname = ''Meyer''\"\r\n \r\nIf <\/span>rst.EOF Then<\/span>\r\n MsgBox<\/span> \"Kunde ''Meyer'' wurde nicht gefunden.\", _\r\n vbInformation\r\nElse<\/span>\r\n MsgBox<\/span> \"Kunde gefunden: \" & rst!Vorname & \" \" _\r\n & rst!Nachname\r\nEnd If<\/span>\r\n...<\/pre>\nAuf Felder zugreifen mit Fields<\/h2>\n
Public Sub <\/span>FeldZugriffBeispiel()\r\n...\r\n rst.MoveFirst\r\n Debug.Print<\/span> rst.Fields(\"Vorname\").Value\r\n Debug.Print<\/span> rst.Fields(2).Value\r\n...\r\nEnd Sub<\/span><\/pre>\nEditMode<\/h2>\n
Public Sub <\/span>BearbeitungsstatusPruefen()\r\n ...\r\n rst.Open \"SELECT * FROM tblKunden\", cnn, _\r\n adOpenKeyset, adLockOptimistic\r\n rst.MoveFirst\r\n rst!Ort = \"Leipzig\"\r\n If <\/span>rst.EditMode = adEditInProgress Then<\/span>\r\n Debug.Print<\/span> \"Bearbeitung aktiv.\"\r\n End If<\/span>\r\n rst.Update\r\n ... \r\nEnd Sub<\/span><\/pre>\nDatensätze hinzufügen mit AddNew\/Update<\/h2>\n
Public Sub <\/span>KundeHinzufuegen()\r\n ...\r\n rst.AddNew<\/span>\r\n rst!Vorname = \"Lisa\"\r\n rst!Nachname = \"Neumann\"\r\n rst!Ort = \"Hannover\"\r\n rst.Update\r\n ...\r\nEnd Sub<\/span><\/pre>\nDatensätze löschen mit Delete<\/h2>\n
Public Sub <\/span>KundeLoeschen()\r\n ...\r\n Set<\/span> rst = New<\/span> ADODB.Recordset\r\n rst.Open \"SELECT * FROM tblKunden WHERE Nachname = \" _\r\n \"''Neumann''\", cnn, adOpenKeyset, adLockOptimistic\r\n If <\/span>Not<\/span> rst.EOF Then<\/span>\r\n rst.Delete\r\n End If<\/span>\r\n ...\r\nEnd Sub<\/span><\/pre>\nRecordset filtern mit Filter<\/h2>\n
Public Sub <\/span>KundenInBerlin()\r\n ...\r\n rst.Open \"SELECT * FROM tblKunden\", cnn, _\r\n adOpenKeyset, adLockOptimistic\r\n \r\n rst.Filter = \"Ort = ''Leipzig''\"\r\n Do Until rst.EOF\r\n Debug.Print<\/span> rst!Vorname & \" \" & rst!Nachname\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n ...\r\nEnd Sub<\/span><\/pre>\nDatensatz suchen mit Find<\/h2>\n
Public Sub <\/span>KundeFinden()\r\n ...\r\n rst.Find \"Nachname = ''Schmidt''\"\r\n If <\/span>Not<\/span> rst.EOF Then<\/span>\r\n Debug.Print<\/span> \"Gefunden: \" & rst!Vorname\r\n End If<\/span>\r\n ...\r\nEnd Sub<\/span><\/pre>\nDatensätze sortieren mit Sort<\/h2>\n
Public Sub <\/span>KundenSortieren()\r\n ...\r\n Set<\/span> rst = New<\/span> ADODB.Recordset\r\n rst.CursorLocation = adUseClient\r\n rst.Open \"SELECT * FROM tblKunden\", cnn, adOpenKeyset, adLockOptimistic\r\n \r\n rst.Sort = \"Nachname DESC\"\r\n rst.MoveFirst\r\n Do Until rst.EOF\r\n Debug.Print<\/span> rst!Nachname\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n ---\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>KundenSortierenMehrereKriterien()\r\n ... \r\n rst.Sort = \"Nachname DESC, Vorname ASC\"\r\n rst.MoveFirst\r\n Do Until rst.EOF\r\n Debug.Print<\/span> rst!Nachname, rst!Vorname\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n ...\r\nEnd Sub<\/span><\/pre>\nGetRows<\/h2>\n
Public Sub <\/span>KundenAlsArray()\r\n Dim <\/span>arr As Variant<\/span>\r\n ...\r\n arr = rst.GetRows\r\n For j = LBound<\/span>(arr, 2) To UBound<\/span>(arr, 2) ''Datensätze\r\n For i = LBound<\/span>(arr, 1) To UBound<\/span>(arr, 1) ''Felder\r\n Debug.Print<\/span> arr(i, j);\r\n If <\/span>i < UBound<\/span>(arr, 1) Then<\/span> Debug.Print<\/span> \" | \";\r\n Next<\/span> i\r\n Debug.Print<\/span>\r\n Next<\/span> j\r\n ...\r\nEnd Sub<\/span><\/pre>\n1 | Müller | Anna | Leipzig\r\n 2 | Schmidt | Peter | Hamburg\r\n 3 | Lehmann | Julia | München\r\n 4 | Weber | Klaus | Stuttgart\r\n 5 | Klein | Maria | Düsseldorf\r\n 7 | Klein | Nina | Düsseldorf\r\n 8 | Klein | Andrea | Düsseldorf<\/pre>\n
Navigieren mit MoveFirst, MoveLast, MoveNext und MovePrevious<\/h2>\n
Public Sub <\/span>NavigationKunden()\r\n...\r\nrst.Open \"SELECT * FROM tblKunden\", cnn, _\r\n adOpenStatic, adLockReadOnly\r\nrst.MoveLast\r\nDebug.Print<\/span> \"Letzter Kunde: \" & rst!Nachname\r\nrst.MoveFirst\r\nDebug.Print<\/span> \"Erster Kunde: \" & rst!Nachname\r\nrst.MoveNext<\/span>\r\nDebug.Print<\/span> \"Zweiter Kunde: \" & rst!Nachname\r\n...<\/pre>\nDatensatzzeiger beliebig verschieben mit Move<\/h2>\n
rst.Move 3 \" Springt drei Datensätze vor\r\nrst.Move -1 \" Springt einen Datensatz zurück<\/pre>\n
Properties<\/h2>\n
Public Sub <\/span>EigenschaftenAuflisten()\r\n ...\r\n Dim <\/span>prp As <\/span>ADODB.Property\r\n For Each prp In rst.Properties\r\n Debug.Print<\/span> prp.Name & \": \" & prp.Value\r\n Next<\/span> prp\r\n ...\r\nEnd Sub<\/span><\/pre>\nRecordCount<\/h2>\n