{"id":55000092,"date":"2012-10-01T00:00:00","date_gmt":"2020-01-24T15:58:02","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=92"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"DAO_Recordsets_oeffnen_lesen_und_bearbeiten","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/DAO_Recordsets_oeffnen_lesen_und_bearbeiten.html","title":{"rendered":"DAO: Recordsets öffnen, lesen und bearbeiten"},"content":{"rendered":"

Die DAO-Bibliothek liefert alle für den Zugriff auf und die Manipulation von Daten in den Tabellen einer Access-Datenbank. Sie können damit Datensätze einer Tabelle oder Abfrage durchlaufen und dabei Informationen auslesen, Datensätze anlegen, bearbeiten oder löschen. Für all diese Aktionen benötigen Sie ein DAO-Recordset – ein Objekt, dass den Zugriff auf die benötigten Daten ermöglicht. Dieser Artikel stellt die Techniken vor, die zum öffnen und Durchlaufen von Datensatzgruppen mittels VBA nötig sind.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1111_DAO_Recordsets.mdb<\/b>.<\/p>\n

Es gibt diesmal ausschließlich Code-Beispiele. Wenn Sie diese ausprobieren möchten, legen Sie in einer Datenbank ein neues Standardmodul an, geben die Listings ein, platzieren die Einfügemarke irgendwo im Code der auszuführenden Routine und betätigen die Taste F5 <\/b>(oder F8 <\/b>für den Einzelschrittmodus).<\/p>\n

Records und Recordsets<\/h2>\n

Ein Record entspricht einem Datensatz, ein Recordset einer Datensatzgruppe. Dabei kann eine Datensatzgruppe allerdings auch keinen oder auch nur einen Datensatz enthalten.<\/p>\n

Unter VBA greifen Sie auf Datensätze zu, um diese zu zählen, neu zu erstellen, zu bearbeiten, zu löschen oder einfach um die enthaltenen Werte zu untersuchen.<\/p>\n

Recordset öffnen<\/h2>\n

Das öffnen eines Recordsets erfordert das vorherige Deklarieren und Instanzieren eines Database<\/b>-Objekt, das einen Verweis auf die Datenbank mit dem zu öffnenden Objekt enthält. Dies geht auf die Schnelle mit den folgenden beiden Zeilen:<\/p>\n

Dim <\/span>db As <\/span>DAO.Database\r\nSet<\/span> db = CurrentDb<\/pre>\n
Weitere Informationen hierzu finden Sie im Artikel DAO: Datenbank im Griff mit dem Database-Objekt<\/b>. Das auf diese Weise verfügbar gemacht Database<\/b>-Objekt bietet die Funktion OpenRecordset <\/b>an, mit der Sie die zu öffnende Datensatzgruppe definieren und die einen Verweis auf die zu erstellende Datensatzgruppe zurückliefert.<\/p>\n
Für den besseren überblick steigen wir gleich mit einem größeren Beispiel ein:<\/p>\n
Public Sub <\/span>RecordsetOeffnen()\r\n     Dim <\/span>db As <\/span>DAO.Database\r\n     Dim <\/span>rst As <\/span>DAO.Recordset\r\n     Set<\/span> db = CurrentDb\r\n     Set<\/span> rst = db.OpenRecordset(\"tblArtikel\", _\r\n         dbOpenDynaset)\r\n     Do While<\/span> Not<\/span> rst.EOF\r\n         Debug.Print<\/span> rst!ArtikelID, rst!Artikelname\r\n         rst.MoveNext<\/span>\r\n     Loop<\/span>\r\nEnd Sub<\/span><\/pre>\n
Diese Prozedur deklariert neben dem Database<\/b>– auch ein Recordset<\/b>-Objekt namens rst<\/b>, dass den Verweis auf die zu erstellende Datensatzgruppe aufnehmen soll. über diesen Verweis greifen Sie später auf die Daten der Datensatzgruppe zu. Dann erstellt die OpenRecordset<\/b>-Methode ein Recordset, dass alle Felder und alle Datensätze der Tabelle tblArtikel <\/b>enthält. Dazu brauchen Sie nur den Namen der betroffenen Tabelle als ersten Parameter anzugeben. Zur Bedeutung des zweiten Parameters kommen wir später; vorerst können Sie den Wert dbOpenDynaset <\/b>als Standard verwenden.<\/p>\n
Nach dem Ausführen dieser Anweisung macht rst <\/b>prinzipiell den kompletten Inhalt der angegebenen Datenherkunft, hier der Tabelle tblArtikel <\/b>verfügbar. Danach folgt ein Konstrukt, dass Sie noch ganz oft einsetzen werden: Das Durchlaufen der Datensätze einer Datensatzgruppe. Dies geschieht innerhalb einer Do While<\/b>-Schleife. Diese prüft jeweils zu Beginn den Wert der Eigenschaft EOF <\/b>der Recordset-Objekts rst<\/b>.<\/p>\n
Hierzu zur Erläuterung: Der Datensatzzeiger kann sich vor dem ersten Datensatz einer Datensatzgruppe befinden, aber auch hinter dem letzten Datensatz. Wenn EOF <\/b>den Wert True <\/b>zurückgibt, befindet sich der Datensatzzeiger hinter dem letzten Datensatz. In diesem Fall sollen die in der Do While<\/b>-Schleife enthaltenen Anweisungen nicht mehr ausgeführt werden.<\/p>\n
Dies wird jedoch zu Beginn nicht der Fall sein. Die Beispieltabelle enthält 77 Datensätze, die erst einmal durchlaufen werden wollen. Damit der Datensatzzeiger, der beim öffnen einer Datensatzgruppe standardmäßig auf den ersten Datensatz zeigt, sich zum nächsten Datensatz der Datensatzgruppe bewegt, rufen Sie die Methode MoveNext <\/b>des Recordset<\/b>-Objekts rst <\/b>auf.<\/p>\n
Vorher jedoch soll eine weitere Anweisung ein paar Daten des aktuellen Datensatzes im Direktfenster ausgeben, und zwar die Werte der Felder ArtikelID<\/b> und Artikelname<\/b>. Dies gelingt auch auf Anhieb, wie Bild 1 zeigt. Die Debug.Print<\/b>-Anweisung gibt die beiden Werte eines Datensatzes jeweils in einer eigenen Zeile aus.<\/p>\n
\"Ausgabe<\/a><\/p>\n
Bild 1: Ausgabe von Daten im Direktfenster<\/p>\n
Auf Daten zugreifen<\/h2>\n
Im Beispiel haben Sie bereits eine Methode kennengelernt, auf die Feldinhalte des aktuellen Datensatzes zuzugreifen: die Ausrufezeichen-Syntax (rst!Artikelname<\/b>). Insgesamt gibt es die folgendenMöglichkeiten, auf den Inhalt eines Feldes zuzugreifen:<\/p>\n
rst.Fields(\"Artikelname\").Value\r\nrst.Fields(\"Artikelname\")\r\nrst.Fields(1).Value\r\nrst.Fields(1)\r\nrst(1).Value\r\nrst(1)\r\nrst(\"Artikelname\").Value\r\nrst(\"Artikelname\")\r\nrst!Artikelname.Value\r\nrst!Artikelname<\/pre>\n
Die erste Variante verwendet explizit die Fields<\/b>-Auflistung des Recordset<\/b>-Objekts. Mit dieser können Sie auf alle Felder zugreifen, entweder über den Namen eines Feldes oder über den Index (0 <\/b>für das erste Feld, 1 <\/b>für das zweite Feld und so weiter).<\/p>\n
Mit Value <\/b>greifen Sie explizit auf den Wert zu, ohne Value <\/b>wird der Wert der Standardeigenschaft des Field<\/b>-Objekts ausgegeben – und diese lautet auch Value<\/b>.<\/p>\n
Fields <\/b>ist wiederum die Standardauflistung des Recordset<\/b>-Objekts, sodass Sie hier Fields(1) <\/b>einfach durch (1) <\/b>ersetzen können. Alternativ verwenden Sie auch hier den Feldnamen, also Fields(„Artikelname“) <\/b>oder („Artikelname“)<\/b>. Schließlich gibt es die Ausrufezeichen-Syntax, wie Sie auch im ersten Beispiel zum Einsatz kam.<\/p>\n
Recordset und Database schließen und leeren<\/h2>\n
Nach der Verwendung sollten Sie das Recordset<\/b>-Objekt schließen und die Objektvariable leeren, die Database<\/b>-Variable brauchen Sie nur zu leeren. Die drei notwendigen Anweisungen sehen wie folgt aus:<\/p>\n
rst.Close\r\nSet<\/span> rst = Nothing\r\nSet<\/span> db = Nothing<\/pre>\n
Da diese immer gleich sind, führen wir sie in den folgenden Beispielen nicht explizit auf.<\/p>\n
Vor und zurück<\/h2>\n
Eine der Methoden zum Bewegen des Datensatzzeigers haben Sie mit MoveNext <\/b>bereits kennengelernt. Es gibt noch weitere ähnliche Methoden:<\/p>\n