<\/p>\n
Lernen Sie die DAO-Objekte Database und Recordset kennen.<\/p>\n
VBA, DAO<\/p>\n
Access 97 und höher<\/p>\n
DAO.mdb<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Die Bibliothek DAO (Data Access Objects) liefert dem VBA-Entwickler alles, was er für den Zugriff auf die in einer Datenbank enthaltenen Daten benötigt. Darüber hinaus offeriert diese Bibliothek Funktionen zum Bearbeiten des Tabellenentwurfs oder für den Zugriff auf Abfragen. Access im Unternehmen stellt die wichtigsten Techniken dieser Bibliothek vor.<\/b><\/p>\n
Access erscheint seit Version 2000 mit zwei Bibliotheken für den Datenzugriff unter VBA. Die neuere namens ADO ist vor allem für den Einsatz in Access-Projekten (ADPs) geeignet. Anwendungen, die nicht auf SQL-Server-Datenbanken wie den Microsoft SQL Server und die MSDE zugreifen sollen, sondern die JET-Engine verwenden, sind mit DAO besser bedient.<\/p>\n
DAO existiert bereits seit sehr langer Zeit, ist stabil und ADO performance-technisch beim Einsatz mit .mdb-Datenbanken meist überlegen. Wenn also nicht absehbar ist, dass aus einer Datenbank eine Client-Server-Datenbank wird, sollten Sie DAO in Ihrer Datenbank einsetzen.<\/p>\n
Access 97 besitzt standardmäßig nur einen Verweis auf DAO, Access 2000 nur einen auf ADO. Seit Access 2002 sind beide im Boot. Beide Bibliotheken lassen sich parallel in einer Datenbankanwendung einsetzen. Dabei ist zu beachten, dass einige Elemente wie etwa das Recordset-Objekt in beiden Bibliotheken vorhanden sind.<\/p>\n
Bild 1 zeigt den Verweise-Dialog von Access 2003: Hier ist der Verweis auf die DAO-Bibliothek über dem der ADO-Bibliothek angeordnet. In vorhergehenden Versionen war dies noch anders, aber Microsoft hat offensichtlich erkannt, dass der Großteil der Datenbanken auf JET basiert und die Entwickler dabei DAO einsetzen. Auch im Internet finden sich viel mehr DAO- als ADO-Beispiele.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{C969E0B7-CA1E-4573-AD4D-4184C8E1759C}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Verweise-Dialog mit DAO- und ADO-Bibliothek<\/span><\/b><\/p>\n Leider handelt es sich dabei nicht um die gleichen Objekte; sie enthalten je nach Bibliothek unterschiedliche Methoden und Eigenschaften. Daher müssen Sie genau darauf achten, auch die richtige Version einzusetzen. Global lässt sich dies festlegen, indem Sie im Verweise-Dialog die bevorzugte Bibliothek weiter oben platzieren. Access durchsucht die Bibliotheken immer nach ihrer Reihenfolge im Verweise-Dialog.<\/p>\n Auf Nummer Sicher gehen Sie, wenn Sie den jeweiligen Objekten die Bibliothek durch einen Punkt getrennt voranstellen, also etwa so:<\/p>\n Bevor Sie die Kommandos der DAO-Bibliothek auf die Daten Ihrer Tabelle loslassen, müssen Sie diese zunächst einmal referenzieren. Die meistbenutzte Variante ist folgende:<\/p>\n Diese Anweisungen deklarieren und instanzieren ein Database-Objekt und füllen es mit einer neuen Instanz der aktuellen Datenbank, die die CurrentDB-Funktion erzeugt.<\/p>\n Die zweite Variante geht so:<\/p>\n Die zweite Zeile erzeugt keine neue Instanz der aktuellen Datenbank, sondern verweist auf die bestehende Instanz – eben DBEngine(0)(0).<\/p>\n Letzteres ist eine Abkürzung für folgenden Ausdruck:<\/p>\n Microsoft empfiehlt in der Onlinehilfe, die CurrentDB-Funktion für den Zugriff auf die aktuelle Datenbank zu verwenden (siehe Onlinehilfe, Stichwort CurrentDB).<\/p>\n Wenn Sie auf eine externe Datenbank zugreifen möchten, verwenden Sie die OpenDatabase-Methode. Ein Beispielaufruf sieht wie folgt aus (in einer Zeile):<\/p>\n Der Zugriff auf Daten erfolgt unter DAO immer über eine Datensatzgruppe, die im Code durch ein Objekt des Typs Recordset repräsentiert wird.<\/p>\n Ein Recordset-Objekt ist mit einer Tabelle oder dem Ergebnis einer Abfrage vergleichbar: Es enthält keinen, einen oder mehrere Datensätze und ein oder mehrere Felder. Der einzige Unterschied ist, dass Sie diese Repräsentation per VBA bearbeiten und nicht in der Datenblattansicht einer Tabelle oder Abfrage oder in einem Formular.<\/p>\n In den meisten Fällen werden Sie eine Datensatzgruppe mit der OpenRecordset-Methode des Database-Objekts öffnen (was Sie wiederum, wie oben beschrieben, per CurrentDB oder DBEngine(0)(0) erhalten).<\/p>\n <\/p>\n Als Grundlage für das öffnen eines Recordset-Objekts eignen sich Tabellen, Abfragen oder SQL-Ausdrücke. Der Name der Tabelle oder Abfrage beziehungsweise der SQL-Ausdruck ist das erste Argument der OpenRecordset-Anweisung. Die einfachste Variante sieht wie folgt aus:<\/p>\n Diese einfachste Variante öffnet das Recordset mit dem Standardparameter dbOpenTable. Diese Variante funktioniert allerdings nur bei Recordsets auf Basis von Tabellen.<\/p>\n Quellcode 1: Erstellen eines Recordsets auf Basis eines Recordset-Objekts<\/b><\/p>\n Die OpenRecordset-Methode hat neben der Quelle eigentlich drei Parameter, von denen in den meisten Fällen aber nur einer verwendet wird:<\/p>\n Generell werden Sie für den Parameter <Typ> häufig die Konstante dbOpenDynaset verwenden. Er erlaubt das öffnen der allen Typen zugrunde liegenden Daten (Tabelle, Abfrage, SQL-Ausdruck) und hat einen weiteren Vorteil:<\/p>\n Recordsets, die mit dbOpenDynaset geöffnet wurden und auf mehreren verknüpften Tabellen basieren, enthalten zunächst nur die Verweise auf die Datensätze der verknüpften Tabellen. Die eigentlichen Daten werden erst bei Bedarf nachgeladen. Beispiel (in einer Zeile):<\/p>\n Es gibt insgesamt vier Recordset-Typen:<\/p>\n Die weiteren Parameter <Optionen> und <Sperren> kommen eher selten zum Einsatz, weitere Informationen finden Sie in der Online-Hilfe.<\/p>\n Recordsets können nicht nur auf Tabellen, Abfragen oder SQL-Ausdrücken, sondern auch auf bestehenden Recordsets basieren. Quellcode 1 zeigt ein Beispiel dafür.<\/p>\n Das erste Recordset-Objekt rst enthält alle Datensätze der Tabelle Artikel. Die enthaltenen Datensätze werden nach dem Ausdruck „Artikelname LIKE “A*““ gefiltert und das Ergebnis wird in ein neues Recordset namens rstGefiltert übertragen.<\/p>\n Wenn Sie ein Recordset auf Basis einer gespeicherten Abfrage öffnen möchten, haben Sie zwei Möglichkeiten: Sie können die OpenRecordset-Methode mit dem Namen der Abfrage einsetzen oder ein Recordset-Objekt auf Basis eines QueryDef-Objekts erstellen.<\/p>\n <\/b><\/p>\n Bild 2: Abfrage auf Basis zweier Tabellen<\/span><\/b><\/p>\n Quellcode 2: Recordset auf Basis einer gespeicherten Abfrage erstellen<\/b><\/p>\n Quellcode 3: Zugriff auf die in der aktuellen Datenbank enthaltenen Abfragen<\/b><\/p>\n Die erste Methode ist prinzipiell mit dem öffnen einer Tabelle identisch: Sie geben in der OpenRecordset-Methode einfach den Namen der Abfrage statt des Tabellennamens an.<\/p>\n Wenn Sie beispielsweise ein Recordset auf Basis der Abfrage aus Bild 2 erstellen möchten, verwenden Sie die Routine aus Quellcode 2.<\/p>\n Alle im Datenbankfenster befindlichen Abfragen können Sie auch über die QueryDefs-Auflistung referenzieren. <\/p>\n Quellcode 3 zeigt beispielhaft den Zugriff auf die Auflistung der QueryDef-Objekte und gibt die Namen aller in der aktuellen Datenbank enthaltenen Abfragen aus. Quellcode 4 zeigt, wie Sie ein Recordset auf Basis einer Abfrage in Form eines QueryDef-Objekts erzeugen. Dazu erstellen Sie zunächst das QueryDef-Objekt unter Angabe des Namens der gewünschten Abfrage und erzeugen darauf basierend ein Recordset-Objekt.<\/p>\n Quellcode 4: Erzeugen eines Recordsets auf Basis eines QueryDef-Objekts<\/b><\/p>\n Es kommt oft vor, dass man zur Laufzeit einen SQL-Ausdruck zusammensetzt und dann ein<\/p>\n <\/b><\/p>\n Bild 3: Eine einfache Parameterabfrage<\/span><\/b><\/p>\n Quellcode 5: Recordset auf Basis eines zusammengesetzten SQL-Ausdrucks<\/b><\/p>\n Quellcode 6: Recordset auf Basis einer Parameterabfrage<\/b><\/p>\n Recordset-Objekt mit den angegebenen Daten füllt – etwa, indem man Abfrageparameter aus einem Formular einliest und diese in den SQL-Ausdruck integriert.<\/p>\n Quellcode 5 zeigt ein Beispiel für diese Vorgehensweise: Die Routine öffnet ein Recordset auf Basis der Tabelle Artikel, wobei der Artikelname der enthaltenen Datensätze einen bestimmten Wert aufweisen muss. Dieser wird der Routine per Parameter übergeben und in einen SQL-Ausdruck integriert.<\/p>\n Wenn Sie eine solche Technik oft einsetzen, kann dies zu Geschwindigkeitseinbußen führen. Es gibt einen eleganteren Weg, der das vorherige Erstellen einer passenden Parameterabfrage erfordert. Die Parameterabfrage sieht wie in Bild 3 aus.<\/p>\n Quellcode 6 zeigt, wie Sie ein Recordset auf Basis einer gespeicherten Abfrage mit Parametern erzeugen.<\/p>\n Wenn Sie Daten per VBA einlesen, anlegen, ändern oder löschen möchten, ist DAO ein unverzichtbares Hilfsmittel. Im vorliegenden Beitrag haben Sie erfahren, wie Sie sich die Daten in Form eines Recordsets verfügbar machen.<\/p>\n Im nächsten Teil dieser Beitragsreihe zum Thema DAO erfahren Sie, was Sie alles mit Recordsets anfangen können.<\/p>\n","protected":false},"excerpt":{"rendered":" Die Bibliothek DAO (Data Access Objects) liefert dem VBA-Entwickler alles, was er für den Zugriff auf die in einer Datenbank enthaltenen Daten benötigt. Darüber hinaus offeriert diese Bibliothek Funktionen zum Bearbeiten des Tabellenentwurfs oder für den Zugriff auf Abfragen. Access im Un-ternehmen stellt die wichtigsten Techniken dieser Bibliothek vor.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662006,66032006,44000035,44000025],"tags":[],"class_list":["post-55000354","post","type-post","status-publish","format-standard","hentry","category-662006","category-66032006","category-Datenzugriff_programmieren","category-VBA_und_Programmiertechniken"],"yoast_head":"\nDim rst As DAO.Recordset\r\nDim rst As ADODB.Recordset<\/pre>\n
Dim db As DAO.Database\r\nSet db = CurrentDB<\/pre>\n
Dim db As DAO.Database\r\nSet db = DBEngine(0)(0)<\/pre>\n
DBEngine.Workspaces(0).Databases(0)<\/pre>\n
Zugriff auf externe Datenbanken<\/h3>\n
Set db = DBEngine.Workspaces(0).OpenDatabase(\"<Datenbankname\")<\/pre>\n
Datensatzgruppe öffnen<\/h2>\n
öffnen auf Basis eines Objekts oder einer SQL-Abfrage<\/h3>\n
Dim db As DAO.Database\r\nDim rst As DAO.Recordset\r\nSet db = CurrentDb\r\nSet rst = db.OpenRecordset(\"Artikel\")<\/pre>\n
Public Sub RecordsetOeffnenAusRecordset()\r\n Dim db As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Dim rstGefiltert As DAO.Recordset\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset(\"Artikel\", dbOpenDynaset)\r\n rst.Filter = \"Artikelname LIKE ''A*''\"\r\n Set rstGefiltert = rst.OpenRecordset\r\n ''etwas mit rstGefiltert tun\r\n rstGefiltert.Close\r\n rst.Close\r\n Set rstGefiltert = Nothing\r\n Set rst = Nothing\r\n Set db = Nothing\r\nEnd Sub<\/pre>\n
<Database>.OpenRecordset <Quelle>, <Typ>, <Optionen>, <Sperren><\/pre>\n
Set rst = db.OpenRecordset(\"SELECT Artikel.* FROM Artikel INNER JOIN Kategorien ON Artikel.[Kategorie-Nr] =Kategorien.[Kategorie-Nr]\", dbOpenDynaset)<\/pre>\n
Typ-Parameter<\/h3>\n
Recordsets auf Basis von Recordsets<\/h2>\n
Recordset auf Basis von Abfragen<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{C969E0B7-CA1E-4573-AD4D-4184C8E1759C}\/pic002.png\")
<\/p>\nPublic Sub RecordsetAusAbfrage()\r\n Dim db As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset( _ \"qryKategorien\", dbOpenDynaset)\r\n ''etwas mit rst tun\r\n rst.Close\r\n Set rst = Nothing\r\n Set db = Nothing\r\nEnd Sub<\/pre>\n
Public Sub QueryDefsAuflisten()\r\n Dim db As DAO.Database\r\n Dim qdf As DAO.QueryDef\r\n Set db = CurrentDb\r\n For Each qdf In db.QueryDefs\r\n Debug.Print qdf.Name\r\n Next qdf\r\n Set qdf = Nothing\r\n Set db = Nothing\r\nEnd Sub<\/pre>\n
Recordset per Abfragename<\/h3>\n
Recordset per QueryDef<\/h3>\n
Public Sub RecordsetAusQueryDef()\r\n Dim db As DAO.Database\r\n Dim qdf As DAO.QueryDef\r\n Dim rst As DAO.Recordset\r\n Set db = CurrentDb\r\n Set qdf = _ db.QueryDefs(\"qryArtikelMitKategorie\")\r\n Set rst = qdf.OpenRecordset(dbOpenDynaset)\r\n ''etwas mit rst tun\r\n rst.Close\r\n Set rst = Nothing\r\n Set qdf = Nothing\r\n Set db = Nothing\r\nEnd Sub<\/pre>\n
Recordsets mit dynamischen Parametern<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{C969E0B7-CA1E-4573-AD4D-4184C8E1759C}\/pic003.png\")
<\/p>\nPublic Sub SQLAusdruckZusammensetzen(strArtikelname As String)\r\n Dim db As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Dim strSQL As String\r\n Set db = CurrentDb\r\n strSQL = \"SELECT * FROM Artikel WHERE Artikelname LIKE ''\" _ & strArtikelname & \"''\"\r\n Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)\r\n ''etwas mit rst tun:\r\n Do While Not rst.EOF\r\n Debug.Print rst!Artikelname\r\n rst.MoveNext\r\n Loop\r\n rst.Close\r\n Set rst = Nothing\r\n Set db = Nothing\r\nEnd Sub<\/pre>\n
Public Sub RecordsetAufParameterabfrage()\r\n Dim db As DAO.Database\r\n Dim qdf As DAO.QueryDef\r\n Dim prm As DAO.Parameter\r\n Dim rst As DAO.Recordset\r\n Set db = CurrentDb\r\n Set qdf = db.QueryDefs(\"qryArtikelMitParameter\")\r\n Set prm = qdf.Parameters(\"strArtikelname\")\r\n prm.Value = \"A*\"\r\n Set rst = qdf.OpenRecordset(dbOpenDynaset)\r\n ''etwas mit rst tun:\r\n Do While Not rst.EOF\r\n Debug.Print rst!Artikelname\r\n rst.MoveNext\r\n Loop\r\n rst.Close\r\n Set rst = Nothing\r\n Set prm = Nothing\r\n Set qdf = Nothing\r\n Set db = Nothing\r\nEnd Sub<\/pre>\n