Abseits der wohlbekannten Objekte Database, der Recordsets und Fields, sowie TableDefs und QueryDefs, finden Sie noch etliche andere Klassen in der Bibliothek DAO für den Datenzugriff unter VBA, die deutlich seltener zur Anwendung kommen. Im überblick stellen wir hier die wichtigsten Vertreter vor und erläutern die grundlegenden Programmierschritte und Verwendungszwecke.<\/p>\n
Die Beispiele dieses Artikels finden Sie in der Datenbank 1510_DAOObjekte.accdb<\/b><\/p>\nAuflistungen und Elemente<\/h2>\n
Unter dem Terminus Auflistung<\/b> versteht man unter VBA eine Klasse, die selbst nur einen Behälter für einzelne Klassenobjekte<\/b>, dessen Elemente, bereitstellt. Sie ähnelt insofern einem Array<\/b>, kommt technisch gesehen aber als VBA-Collection<\/b> daher. Die wesentlichen Methoden sind damit die Eigenschaft Count<\/b>, welche die Zahl der Elemente der Collection<\/b> zurückgibt, die Eigenschaft Item<\/b>, über die auf ein einzelnes Element zugegriffen werden kann, und die Methoden Add<\/b>, sowie Remove<\/b>, mit denen Elemente der Auflistung hinzugefügt oder aus ihr gelöscht werden können. Zudem lassen sich die Elemente der Auflistung grundsätzlich über eine For-Each-Schleife<\/b> durchlaufen. Die Schleifenvariable gibt dabei jeweils ein Item der Auflistung zurück.<\/p>\n
Während die Items<\/b> einer allgemeinen Collection<\/b> keinen besonderen Typ aufweisen, sieht das unter den DAO-Auflistungen<\/b> anders aus. Hier entspricht ein Item<\/b> immer einer speziellen DAO-Klasse<\/b> und spiegelt deren Objektinstanz<\/b> wieder. So sind die Elemente einer Auflistung Fields<\/b> vom Objekttyp Field<\/b>, die Recordsets<\/b> eines Database<\/b>-Objekts haben den Typ Recordset<\/b>. TableDefs<\/b> enthalten TableDef<\/b>-Objekte, QueryDefs<\/b>-Auflistungen QueryDef<\/b>-Objekte, und so fort. Die Auflistungs-Collection ist in der Regel schlicht dadurch gekennzeichnet, dass an den Elementtypnamen ein s<\/b> angehängt wird: Error<\/b> und Errors<\/b>, Parameter<\/b> und Parameters<\/b>.<\/p>\n
Die DAO-Auflistungen<\/b>, um die es aber in diesem Beitrag gehen soll, sind diese:<\/p>\n Sie gelangen an die Containers<\/b>, indem Sie die gleichnamige Eigenschaft eines Database<\/b>-Objekts abfragen. Also etwa so:<\/p>\n Das gibt die Zahl der Container<\/b> aus, die die aktuelle Datenbank enthält. In der Regel sind das neun, wenn die Datenbank keine Besonderheiten, wie etwa Replikation<\/b>, aufweist. Die einzelnen Container<\/b> durchlaufen Sie mit einer Routine, wie in Listing 1. Hier wird die Objektvariable dbs<\/b> auf die aktuelle Datenbank gesetzt, und in der For-Each-Schleife<\/b> werden die Elemente der Auflistung Containers<\/b> abgearbeitet. Die Enumerationsvariable ist mit daoCont<\/b> benannt. Ausgegeben werden die Namen der Container<\/b> im VBA-Direktfenster. Als Ergebnis erhalten Sie diese Liste:<\/p>\n Listing 1: Prozedur zum Durchlaufen der DAO-Auflistung Containers<\/p>\n Sie werden daraus ablesen können, dass es sich dabei um alle Objekte handelt, die die Datenbank enthält. Tatsächlich ist die Containers<\/b>-Auflistung der virtuelle Speicher für alles, was es in der Datenbank gibt. Forms<\/b> etwa ist die Gesamtheit der Formulare der Datenbank. Reports<\/b> verweist auf die Berichte. Modules<\/b> bezieht sich auf alle VBA-Module, Scripts<\/b> auf die Makros. Bei Relationships<\/b> handelt es sich um die Beziehungen zwischen den Tabellen, falls solche festgelegt wurden, während SysRel<\/b> das grafische Layout der Beziehungen, so, wie es im Beziehungsfenster angezeigt wird, wiedergibt. Bei DataAccessPages<\/b> handelt es sich um eine obsolete Auflistung, die die Datenzugriffsseiten<\/b> enthält, welche früher (Office 2000<\/b>) zum Entwickeln von datengebundenen HTML-Seiten verwendet werden konnten, heute aber nicht mehr unterstützt werden. Tables<\/b> ist der Container<\/b> für alle Tabellen und Abfragen der Datenbank. Access macht hier keinen Unterschied – beide geben eben eine Datenmenge zurück.<\/p>\n Irritierend schließlich ist der Databases-Container<\/b>. Kann eine Datenbank nicht nur ein Database<\/b>-Objekt enthalten Nein, denn in VBA können Sie über die OpenDatabase<\/b>-Funktion eine weitere Datenbank in der aktuellen Sitzung öffnen, die sowohl auf die gerade geöffnete Datei verweisen kann, wie auch auf eine andere. Zudem listet der Container interessanterweise auch noch die Datenbankeigenschaften (Summary<\/b>) als eigene Datenbank auf, wie auch die Werteliste, die man in den Datenbankeigenschaften im Backstage<\/b> selbst anlegen kann (UserDefined<\/b>).<\/p>\n Gut zu wissen, dass etwa der Container Forms<\/b> alle Formulare der Datenbank verzeichnet. Doch wie kommt man nun an die einzelnen Formulare Zunächst verweisen Sie auf den Container über eine Hilfevariable:<\/p>\n Sie erhalten also einen bestimmten Container, indem Sie seinen Namen als Index der Collection<\/b> angeben. Alternativ könnte man auch die Ordinalzahl einsetzen, doch deren Wert kann sich von Datenbank zu Datenbank unterscheiden. Elementar ist nun die Methode Documents<\/b> eines Containers<\/b>.<\/p>\n Sie gibt als Auflistungseigenschaft seine einzelnen Dokumente wieder. Der Begriff mag etwas irreführend klingen, denn gewöhnlich spricht man bei Formularen von Datenbankobjekten<\/b>, nicht von Datenbankdokumenten<\/b>. Wie auch immer, die Dokumente können Sie auf die gleiche Weise durchlaufen, wie das bei der Containers<\/b>-Auflistung der Fall war:<\/p>\n Als Ergebnis dieser Routine bekommen Sie die Namen aller Formulare der Datenbank. <\/p>\n Kombinieren Sie die Enumeration der Containers<\/b> und der Documents<\/b> miteinander, so kommen Sie zu einer Prozedur, wie GetDBDocuments<\/b> in Listing 2. Hier werden alle Objekte der Datenbank ausgegeben, da in der äußeren Schleife alle Container<\/b>, in der inneren alle Document<\/b>-Elemente dieser durchlaufen werden.<\/p>\n Listing 2: Durchlaufen der Auflistung Documents<\/p>\n über das Objektmodell von Access selbst wäre das nicht möglich. Die Forms<\/b>-Auflistung von Access bezieht sich etwa nur auf geöffnete, nicht auf alle gespeicherten Formulare. Zwar gibt es auch noch die Auflistung CurrentProject.AllForms<\/b>, doch die ist eben speziell nur für Formulare gemacht, während die Containers<\/b> allgemeinerer Natur sind. Mit keiner anderen VBA-Lösung kommen Sie so schnell und kurz an die Datenbankobjekte, wie mit der im Listing.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>\n
Containers, Container<\/h2>\n
CurrentDB.Containers.Count<\/pre>\n
Sub <\/span>GetContainers()\r\n Dim <\/span>dbs As <\/span>Database\r\n Dim <\/span>daoCont As <\/span>DAO.Container\r\n Set<\/span> dbs = CurrentDb\r\n For Each daoCont In dbs.Containers\r\n Debug.Print<\/span> daoCont.Name\r\n Next<\/span> daoCont\r\nEnd Sub<\/span><\/pre>\nDataAccessPages\r\nDatabases\r\nForms\r\nModules\r\nRelationships\r\nReports\r\nScripts\r\nSysRel\r\nTables<\/pre>\n
Documents, Document<\/h2>\n
Dim <\/span>dbs As <\/span>Database \r\nDim <\/span>daoCont As <\/span>DAO.Container\r\nSet<\/span> dbs = CurrentDb\r\nSet<\/span> daoCont = dbs.Containers(\"Forms\")<\/pre>\nDim <\/span>daoDoc As <\/span>DAO.Document\r\nFor Each daoDoc in daoCont.Documents\r\n Debug.Print<\/span> daoDoc.Name\r\nNext<\/span> daoDoc<\/pre>\nSub <\/span>GetDBDocuments()\r\n Dim <\/span>dbs As <\/span>Database\r\n Dim <\/span>daoCont As <\/span>DAO.Container\r\n Dim <\/span>daoDoc As <\/span>DAO.Document\r\n \r\n Set<\/span> dbs = CurrentDb\r\n For Each daoCont In dbs.Containers\r\n Debug.Print<\/span> daoCont.Name\r\n If <\/span>daoCont.Documents.Count = 0 Then<\/span>\r\n Debug.Print<\/span> , \"-\"\r\n Else<\/span>\r\n For Each daoDoc In daoCont.Documents\r\n Debug.Print<\/span> , daoDoc.Name\r\n Next<\/span> daoDoc\r\n End If<\/span>\r\n Next<\/span> daoCont\r\nEnd Sub<\/span><\/pre>\n
\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