Dim <\/span>db As <\/span>DAO.Database\r\nSet<\/span> db = CurrentDb<\/pre>\nWeitere 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>\nDiese 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](\"..\/tl_files\/images\/pic_92_001.png\")
<\/a><\/p>\nBild 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>\nrst.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>\nDie 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>\nRecordset 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>\nrst.Close\r\nSet<\/span> rst = Nothing\r\nSet<\/span> db = Nothing<\/pre>\nDa 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\n- MovePrevious<\/b>: Bewegt den Datensatzzeiger zum vorherigen Datensatz.<\/li>\n
- MoveFirst<\/b>: Positioniert den Datensatzzeiger auf den ersten Datensatz.<\/li>\n
- MoveLast<\/b>: Positioniert den Datensatzzeiger auf den letzten Datensatz.<\/li>\n<\/ul>\n
Zu weit bewegt<\/h2>\nMöchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t