Tabellen und Abfragen über DAO verwalten

Lies diesen Artikel und viele weitere mit einem kostenlosen, einwöchigen Testzugang.

Der Umgang mit den Datensätzen einer Tabelle über das Recordset-Objekt der DAO-Bibliothek ist das A und O der Programmierung unter Access und dürfte Ihnen deshalb wahrscheinlich geläufig sein. Nicht selten aber wird auch der Zugriff auf die Eigenschaften der Tabellen und Abfragen selbst benötigt – und hier kommt abermals DAO mit seinen TableDef- und QueryDef-Objekten ins Spiel.

Beispieldatenbank

Die Beispiele dieses Artikels finden Sie in der Datenbank 1501_DAO.mdb.

Tabellen und Abfragen im Objektmodell von DAO

Access legt beim Erstellen einer Datenbankdatei automatisch einen Verweis auf die DAO-Bibliothek im VBA-Projekt an, weil ohne sie keine Möglichkeit besteht, an die Datenobjekte heranzukommen. Zwar gibt es auch eine weitere Bibliothek namens ADODB, die ersatzweise verwendet werden kann, doch diese wird inzwischen von Microsoft weder weiterentwickelt, noch empfohlen. Sie war einst in erster Linie für den erweiterten Zugriff auf den SQL-Server gedacht, als Access 2000 mit den Access-Projekten (ADP) aufwartete. Doch da diese etwa von Access 2013 gar nicht mehr unterstützt werden, gibt es auch keinen triftigen Grund mehr, diese Bibliothek einzusetzen.

DAO als Abkürzung für Data Access Objects ist nur der Modellname der Bibliothek. In der Liste der Verweise finden Sie sie jedoch unter der monströsen Bezeichnung Microsoft Office 14.0 Access database engine Object Library, wobei sich das je nach Version von Access geringfügig unterscheidet. Vor Access 2007 lautete die Bezeichnung allerdings tatsächlich Microsoft DAO 3.6 Object Library.

öffnen Sie im VBA-Editor über das Menü Ansicht den Objektkatalog und wählen aus dem Kombinationsfeld oben links den Eintrag DAO aus, wie in Bild 1. Der Katalog füllt sich dann mit allen Objektklassen, die die Datenzugriffsbibliothek aufweist, bei denen die Klasse Database von zentraler Bedeutung ist und quasi das Ebenbild der Datenbank ausmacht. Beim Klicken auf diese Klasse zeigen sich im rechten Abteil die Methoden und Eigenschaften des Database-Objekts. Da uns für das Thema dieses Beitrags nun besonders die Tabellen und Abfragen interessieren, die in einer Datenbank enthalten sind, müsste das Database-Objekt wohl irgendwelche Methoden aufweisen, um auf diese zugreifen zu können. Tatsächlich ist das mit den beiden Auflistungseigenschaften TableDefs und QueryDefs gegeben, die in Bild 1 markiert wurden. Sie sind beide Container für die einzelnen Tabellen- und Abfragen-Objekte. Dabei steht TableDef für “Tabellendefinition” und QueryDef für “Abfragedefinition”.

Bild 1: DIe DAO-Bibliothek im VBA-Objektkatalog

Nehmen wir uns zunächst die Aufgabe vor, über diese DAO-Klassen alle Tabellen aufzulisten, die die aktuelle Datenbank enthält. Als Erstes braucht es dafür ein Database-Objekt, von dem sich dann die TableDefs-Auflistung ableitet. Allerdings ist Database ja nur eine Modellklasse und noch kein Objekt – eine Klasse muss erst in Form einer Objektvariablen instanziiert werden. Und da die DAO-Bibliothek eine externe Komponente ist, die lediglich als Modell in das VBA-Projekt eingeklinkt ist, weiß sie eigentlich auch gar nichts von der Access-Datenbank, in der sie untergebracht wurde. Es muss also ein Bezug zu einem Database-Objekt hergestellt werden, das Access bereitstellt. Das tut es auch mit der Eigenschaft CurrentDb des Access-Application-Objekts:

Dim dbs As Database
Set dbs = Application.CurrentDb

Das Application kann auch weggelassen werden, da es sich um eine globale Eigenschaft von Access handelt.

Auch das übertragen auf eine Objektvariable dbs ist nicht zwingend notwendig, da CurrentDb jederzeit erneut abgefragt werden kann. Neben CurrentDb gibt es noch eine weitere Variante der Zuweisung:

Set dbs = Application.DbEngine(0)(0)

Die Nullen in Klammern sind eine zulässig abgekürzte Form von

Dbengine.Workspaces(0).Databases(0)

Nachdem nun ein gültiges Database-Objekt vorliegt, kann es auch an die Liste der Tabellen gehen:

 CurrentDb.TableDefs.Count

Das gibt die Anzahl der in der Datenbank enthaltenen Tabellen im Direktfenster aus. Analog geht das für die Abfragen mit

 CurrentDb.QueryDefs.Count

Damit Sie nicht spekulieren müssen, wie mit diesen Auflistungen weiter verfahren wird, sind in Bild 2 deren Methoden aus dem Objektkatalog dargestellt.

Bild 2: Methoden der TableDefs- und QueryDefs-Auflistungsklassen

Count ermittelt die Anzahl der jeweiligen Objekte. Delete löscht ein Element. Da ein TableDef-Objekt direkt an die zugehörige Tabelle gekoppelt ist, bedeutet Löschen hier, dass auch die Tabelle aus der Datenbank entfernt wird:

Currentdb.TablesDefs.Delete "Tabelle1"

Tabelle1 wandert damit ins Nirwana. Append würde eine Tabelle zur Datenbank hinzufügen. Das Vorgehen ist hier allerdings nicht so einfach, wie beim Löschen, denn Append erwartet ein fertiges TableDef-Objekt, das erst über die Database-Methode CreateTableDef erzeugt und mit allerlei weiteren Eigenschaften, wie Feldern, versehen sein muss. Tabellen über VBA anlegen zu müssen, dürfte jedoch ziemlich selten vorkommen, so dass dies hier nicht weiter besprochen wird.

Refresh ist eine Methode, die die Auflistung auf den neuesten Stand bringt. Löschen Sie etwa eine Tabelle per Delete, so findet sie sich zunächst trotzdem noch in der Auflistung. Erst ein Refresh aktualisiert die Liste wieder.

Item schließlich ist der Bezug zu einem einzelnen TableDef-Objekt, das über den Index der Auflistung angesprochen wird:

CurrentDb.TablesDefs.Item(0)

Hier erhält man das TableDef-Objekt, welches auf die erste Tabelle der Datenbank verweist. Weil Item die sogenannte Default-Eigenschaft der Klasse ist, erkennbar am blauen Punkt im Objektkatalog, kann der Methodenname auch weggelassen werden:

Dim tdf As TableDef
Set tdf = CurrentDb.TableDefs(0)

Außerdem kann auch direkt der Name des Objekts als Index statt der Ordinalzahl verwendet werden:

CurrentDb.TableDefs("Tabelle1")

Mit diesem Wissen könnten Sie bereits die Routine zum Ausgeben aller Tabellen der Datenbank anfertigen. Es muss nur die Zahl der TableDefs mit Count ermittelt und dann in einer Schleife über eine Zählervariable n jedes Objekt mit Item(n) angesprochen werden. Name ist die Eigenschaft des TableDef-Objekts, welches auch dem Namen der Tabelle entspricht.

Es geht aber noch einfacher. Weil die Auflistungen COM-Enumeration unterstützen, kann man auf das Ansprechen per Index verzichten und eine For..Each-Schleife einsetzen. Der Beispielcode steht in Listing 1. Im VBA-Direktfenster wird erst die Zahl der Tabelle ausgegeben, danach jedes Element der Auflistung durchlaufen und der Name der entsprechenden Tabelle angezeigt.

Sub ListTables()
     Dim tdf As DAO.TableDef
     
     Debug.Print CurrentDb.TableDefs.Count & " Tabellen"
     For Each tdf In CurrentDb.TableDefs
         Debug.Print tdf.Name
     Next tdf
     
End Sub

Listing 1: Ausgeben aller Tabellen der Datenbank über die TableDefs-Auflistung

Ende des frei verfügbaren Teil. Wenn Du mehr lesen möchtest, hole Dir ...

Testzugang

eine Woche kostenlosen Zugriff auf diesen und mehr als 1.000 weitere Artikel

diesen und alle anderen Artikel mit dem Jahresabo