{"id":55000271,"date":"2015-02-01T00:00:00","date_gmt":"2020-01-24T15:59:19","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=271"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Tabellen_und_Abfragen_ueber_DAO_verwalten","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Tabellen_und_Abfragen_ueber_DAO_verwalten.html","title":{"rendered":"Tabellen und Abfragen über DAO verwalten"},"content":{"rendered":"

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.<\/p>\n

Beispieldatenbank<\/h2>\n

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

Tabellen und Abfragen im Objektmodell von DAO<\/h2>\n

Access legt beim Erstellen einer Datenbankdatei automatisch einen Verweis auf die DAO-Bibliothek<\/b> im VBA-Projekt an, weil ohne sie keine Möglichkeit besteht, an die Datenobjekte heranzukommen. Zwar gibt es auch eine weitere Bibliothek namens ADODB<\/b>, 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<\/b>) aufwartete. Doch da diese etwa von Access 2013 gar nicht mehr unterstützt werden, gibt es auch keinen triftigen Grund mehr, diese Bibliothek einzusetzen.<\/p>\n

DAO<\/b> als Abkürzung für Data Access Objects<\/b> 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<\/b>, 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<\/b>.<\/p>\n

öffnen Sie im VBA-Editor über das Menü Ansicht<\/b> den Objektkatalog und wählen aus dem Kombinationsfeld oben links den Eintrag DAO<\/b> aus, wie in Bild 1. Der Katalog füllt sich dann mit allen Objektklassen, die die Datenzugriffsbibliothek aufweist, bei denen die Klasse Database<\/b> 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<\/b>-Objekt wohl irgendwelche Methoden aufweisen, um auf diese zugreifen zu können. Tatsächlich ist das mit den beiden Auflistungseigenschaften TableDefs<\/b> und QueryDefs<\/b> gegeben, die in Bild 1 markiert wurden. Sie sind beide Container für die einzelnen Tabellen- und Abfragen-Objekte. Dabei steht TableDef<\/b> für „Tabellendefinition“ und QueryDef<\/b> für „Abfragedefinition“.<\/p>\n

\"DIe<\/a><\/p>\n

Bild 1: DIe DAO-Bibliothek im VBA-Objektkatalog<\/p>\n

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<\/b>-Objekt, von dem sich dann die TableDefs<\/b>-Auflistung ableitet. Allerdings ist Database <\/b>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<\/b>-Objekt hergestellt werden, das Access bereitstellt. Das tut es auch mit der Eigenschaft CurrentDb<\/b> des Access-Application-Objekts:<\/p>\n

Dim <\/span>dbs As <\/span>Database\r\nSet<\/span> dbs = Application.CurrentDb<\/pre>\n
Das Application<\/b> kann auch weggelassen werden, da es sich um eine globale Eigenschaft von Access handelt.<\/p>\n
Auch das übertragen auf eine Objektvariable dbs<\/b> ist nicht zwingend notwendig, da CurrentDb<\/b> jederzeit erneut abgefragt werden kann. Neben CurrentDb <\/b>gibt es noch eine weitere Variante der Zuweisung:<\/p>\n
Set<\/span> dbs = Application.DbEngine(0)(0)<\/pre>\n
Die Nullen in Klammern sind eine zulässig abgekürzte Form von<\/p>\n
Dbengine.Workspaces(0).Databases(0)<\/pre>\n
Nachdem nun ein gültiges Database<\/b>-Objekt vorliegt, kann es auch an die Liste der Tabellen gehen:<\/p>\n
 CurrentDb.TableDefs.Count<\/pre>\n
Das gibt die Anzahl der in der Datenbank enthaltenen Tabellen im Direktfenster aus. Analog geht das für die Abfragen mit<\/p>\n
 CurrentDb.QueryDefs.Count<\/pre>\n
Damit Sie nicht spekulieren müssen, wie mit diesen Auflistungen weiter verfahren wird, sind in Bild 2 deren Methoden aus dem Objektkatalog dargestellt. <\/p>\n
\"Methoden<\/a><\/p>\n
Bild 2: Methoden der TableDefs- und QueryDefs-Auflistungsklassen<\/p>\n
Count<\/b> ermittelt die Anzahl der jeweiligen Objekte. Delete<\/b> löscht ein Element. Da ein TableDef<\/b>-Objekt direkt an die zugehörige Tabelle gekoppelt ist, bedeutet Löschen hier, dass auch die Tabelle aus der Datenbank entfernt wird:<\/p>\n
Currentdb.TablesDefs.Delete \"Tabelle1\"<\/pre>\n
Tabelle1<\/b> wandert damit ins Nirwana. Append<\/b> würde eine Tabelle zur Datenbank hinzufügen. Das Vorgehen ist hier allerdings nicht so einfach, wie beim Löschen, denn Append<\/b> erwartet ein fertiges TableDef<\/b>-Objekt, das erst über die Database<\/b>-Methode CreateTableDef<\/b> 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.<\/p>\n
Refresh<\/b> ist eine Methode, die die Auflistung auf den neuesten Stand bringt. Löschen Sie etwa eine Tabelle per Delete<\/b>, so findet sie sich zunächst trotzdem noch in der Auflistung. Erst ein Refresh<\/b> aktualisiert die Liste wieder.<\/p>\n
Item<\/b> schließlich ist der Bezug zu einem einzelnen TableDef<\/b>-Objekt, das über den Index der Auflistung angesprochen wird:<\/p>\n
CurrentDb.TablesDefs.Item(0)<\/pre>\n
Hier erhält man das TableDef<\/b>-Objekt, welches auf die erste Tabelle der Datenbank verweist. Weil Item <\/b>die sogenannte Default<\/b>-Eigenschaft der Klasse ist, erkennbar am blauen Punkt im Objektkatalog, kann der Methodenname auch weggelassen werden:<\/p>\n
Dim <\/span>tdf As <\/span>TableDef\r\nSet<\/span> tdf = CurrentDb.TableDefs(0)<\/pre>\n
Außerdem kann auch direkt der Name des Objekts als Index statt der Ordinalzahl verwendet werden:<\/p>\n
CurrentDb.TableDefs(\"Tabelle1\")<\/pre>\n
Mit diesem Wissen könnten Sie bereits die Routine zum Ausgeben aller Tabellen der Datenbank anfertigen. Es muss nur die Zahl der TableDefs<\/b> mit Count<\/b> ermittelt und dann in einer Schleife über eine Zählervariable n<\/b> jedes Objekt mit Item(n<\/b>) angesprochen werden. Name ist die Eigenschaft des TableDef<\/b>-Objekts, welches auch dem Namen der Tabelle entspricht.<\/p>\n
Es geht aber noch einfacher. Weil die Auflistungen COM-Enumeration unterstützen, kann man auf das Ansprechen per Index verzichten und eine For..Each<\/b>-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. <\/p>\n
Sub <\/span>ListTables()\r\n     Dim <\/span>tdf As <\/span>DAO.TableDef\r\n     \r\n     Debug.Print<\/span> CurrentDb.TableDefs.Count & \" Tabellen\"\r\n     For Each tdf In CurrentDb.TableDefs\r\n         Debug.Print<\/span> tdf.Name\r\n     Next<\/span> tdf\r\n     \r\nEnd Sub<\/span><\/pre>\n
Listing 1: Ausgeben aller Tabellen der Datenbank über die TableDefs-Auflistung<\/p>\n
Wie aus Bild 2 hervorgeht, gleichen sich die Auflistungen für TableDefs<\/b> und QueryDefs<\/b> vollständig. Deshalb ist der Code zur Ausgabe aller Abfragen ebenfalls identisch (Listing 2).<\/p>\n
Sub <\/span>ListQueries()\r\n     Dim <\/span>qdf As <\/span>DAO.QueryDef\r\n     \r\n     Debug.Print<\/span> CurrentDb.QueryDefs.Count & \" Abfragen\"\r\n     For Each qdf In CurrentDb.QueryDefs\r\n         Debug.Print<\/span> qdf.Name\r\n     Next<\/span> qdf\r\n     \r\nEnd Sub<\/span><\/pre>\n
Listing 2: Ausgeben aller Abfragen der Datenbank über die QueryDefs-Auflistung<\/p>\n
Das TableDef-Objekt<\/h2>\n
Hat man erst einmal ein TableDef<\/b>-Objekt, so lässt sich damit natürlich noch mehr anstellen, als nur die Ausgabe des Tabellennamens. Eine übersicht aller Methoden sowohl der TableDef<\/b>– als auch der QueryDef<\/b>-Klassen zeigt der kombinierte Screenshot des Objektkatalogs in Bild 3. Einige davon sind nur für sehr spezielle Aufgaben von Belang, etwa für Tabellen, die über ODBC<\/b> in die Datenbank verknüpft sind, oder PassThrough-Abfragen<\/b>, die ebenfalls auf einen SQL-Server aufsetzen. Gleiches gilt für Tabellen, die in Datenbanken mit Replikation<\/b> vorkommen – teilweise Features, die die aktuellen Versionen von Access gar nicht mehr unterstützen! Diese Methoden sind der Kompatibilität wegen noch im Objektmodell vorhanden, geben meist aber gar keine Werte mehr zurück. In Bild 3 sind alle Methoden, die Sie kaum interessieren dürften, grau hinterlegt.<\/p>\n
\"TableDef-<\/a><\/p>\n
Bild 3: TableDef- und QueryDef-Methoden<\/p>\n
Im Folgenden werden die relevantesten Methoden der TableDef<\/b>-Klasse angeführt. Alles Weitere erfahren Sie in der Hilfe zu DAO, die allerdings leider nicht automatisch mit den neueren Access-Versionen installiert wird. Es gibt auch keine aktualisierte Hilfedatei zu DAO seit Access 2003. Deshalb gelangen Sie auch nicht zur Hilfe, wenn Sie etwa in Listing 2 den Ausdruck QueryDef<\/b> markieren und F1<\/b> drücken. Denn in das Objektmodell ist nach wie vor ein Bezug zur Hilfedatei DAO360.chm<\/b> gespeichert, der ins Leere führt, wenn sich diese Datei nicht auf ihrem System befindet.<\/p>\n
Wenn Sie die kontextsensitive Hilfe verwenden wollen, so besorgen Sie sich diese Hilfedatei im Internet und speichern sie im Windows-Verzeichnis im Unterordner Help<\/b>. Ansonsten sind Sie darauf angewiesen, die Hilfe zu Access-VBA über das Menü des VBA-Editors aufzurufen und dann in der Access Entwicklerreferenz<\/b>  den Zweig Microsoft-Datenzugriffsobjekte (DAO)-Referenz<\/b> zu erforschen. Zurück zu den TableDef<\/b>-Methoden:<\/p>\n
DateCreated<\/b> gibt zurück, wann eine Tabelle erstellt, LastUpdated<\/b> den Zeitpunkt, wann sie zuletzt im Entwurf aktualisiert wurde. Fields<\/b>, Indexes<\/b> und Properties<\/b> sind Auflistungseigenschaften, auf die wir noch gesondert zu sprechen kommen.<\/p>\n
RecordCount<\/b> ist eine interessante Eigenschaft: Sie zeigt die Zahl der in der Tabelle gespeicherten Datensätze an, soweit es sich um eine nicht-verknüpfte Tabelle handelt.<\/p>\n
Im Gegensatz zu den missverständlichen Erläuterungen der DAO-Hilfe stimmt diese Zahl immer, auch wenn nicht, wie dort angeführt, bereits erst auf alle Datensätze zugegriffen wurde. Dies gilt nur für ein Recordset-Objekt.<\/p>\n
Updatable<\/b> kennzeichnet, ob der Inhalt einer Tabelle schreibgeschützt ist, oder aktualisierbar. Für die Systemtabellen wird hier in der Regel ein False<\/b> zurückgegeben.<\/p>\n
ValidationRule<\/b> und ValidationText<\/b> sind Synonyme für die Gültigkeitsregel einer Tabelle und die gegebenenfalls ausgegebene Meldung. Das sind Eigenschaften, von denen selten Gebrauch gemacht wird, da Gültigkeitsbeschränkungen meist auf Feldebene definiert werden.<\/p>\n
Die Create<\/b>-Methoden korrelieren mit den entsprechenden Auflistungen zu Fields, Indexes und Properties. Hierüber können neue Felder in einer Tabelle erzeugt, neue Indizes oder neue benutzerdefinierte Eigenschaften hinzugefügt werden.<\/p>\n
Connect<\/b> und RefreshLink<\/b> haben nur Bedeutung im Zusammenhang mit verknüpften Tabellen. In Connect<\/b> wird der Pfad zu einer Backend-Datenbank angegeben und mit RefreshLink<\/b> erst wirklich aktualisiert. Alle anderen Tabellen zeigen für Connect<\/b> einen leeren String.<\/p>\n
OpenRecordset<\/b> öffnet eine Datensatzgruppe auf die Tabelle. Das dürfte Ihnen bekannt vorkommen. Hier handelt es sich um eine Alternative zur Syntax mit<\/p>\n
CurrentDb.OpenRecordset(\"tblXY\")<\/pre>\n
Dasselbe Ergebnis erhalten Sie mit<\/p>\n
Dim <\/span>tdf As <\/span>TableDef\r\nSet<\/span> tdf = CurrentDb.TableDefs(\"tblXY\")\r\ntdf.OpenRecordset<\/pre>\n
Beide Varianten sind in Listing 3 aufgeführt. Im ersten Teil kommt die konventionelle Methode zum Einsatz, im zweiten das TableDef<\/b>-Objekt. Eigentlich gibt es keinen Grund, zu dieser Variante zu greifen. Sie ist hier aber aufgeführt, weil sie so schön zwei VBA-Spezialitäten demonstriert: Einmal die With-Anweisung<\/b> – in dieser Ausgabe bereits besprochen – und dann die Gültigkeit eines Objekts. Machen Sie den Versuch und schreiben zum Setzen der TableDef<\/b>-Variablen diesen Code:<\/p>\n
Set<\/span> tdf = _\r\n     CurrentDb.TableDefs(\"tblLaender\")\r\nSet<\/span> rs = tdf.OpenRecordset()<\/pre>\n
Während die erste Zeile noch anstandslos ausgeführt wird, kommt es bei der zweiten Zeile zu der Fehlermeldung, dass ein Objekt nicht mehr festgelegt sei. Dass die tdf<\/b>-Variable nicht der übeltäter sein kann, erfahren Sie über den Test im Direktfenster, nachdem Sie einen Haltepunkt auf die Zeile setzten:<\/p>\n
 tdf.Name<\/pre>\n
gibt korrekt tblLaender<\/b> zurück. Was aber sollte dann nicht festgelegt sein Es bleibt nur noch das CurrentDb<\/b>-Objekt. Tatsächlich handelt es sich bei diesem um ein nichtpersistentes Objekt, welches nur eine Momentaufnahme der aktuellen Datenbank versinnbildlicht. In der zweiten Code-Zeile ist es sozusagen bereits wieder verschwunden. Die übliche Lösung für diesen Umstand besteht im zusätzlichen Anlegen einer Database<\/b>-Variablen:<\/p>\n
Dim <\/span>dbs As <\/span>Database\r\nSet<\/span> dbs = CurrentDb\r\nSet<\/span> tdf = dbs.TableDefs(\"tblLaender\")<\/pre>\n
Mö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
\n\n\t\t\n\t\t