{"id":55000086,"date":"2012-08-01T00:00:00","date_gmt":"2020-01-24T15:57:59","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=86"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"DAO_Datenbank_im_Griff_mit_dem_DatabaseObjekt","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/DAO_Datenbank_im_Griff_mit_dem_DatabaseObjekt.html","title":{"rendered":"DAO: Datenbank im Griff mit dem Database-Objekt"},"content":{"rendered":"

Wenn Sie mit VBA auf Informationen zur aktuellen Datenbank zugreifen möchten, bietet die DAO-Bibliothek mit dem Database-Objekt die perfekte Hilfe an: Dieses Objekt lässt sich mit einem Verweis auf die aktuell geöffnete, aber auch auf andere Datenbanken füllen und erlaubt dann nicht nur den Zugriff auf ihre Eigenschaften, sondern stellt auch eine ganze Reihe Funktionen bereit. Dieser Artikel zeigt, wie Sie mit dem Database-Objekt auf die aktuell geöffnete und auch auf andere Datenbanken zugreifen.<\/p>\n

Beispieldatenbank<\/h2>\n

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

Zugriff auf eine Datenbank<\/h2>\n

Warum sollte man überhaupt per VBA auf eine Datenbank und ihre Eigenschaften und Methoden zugreifen Ganz einfach: Weil früher oder später die Methoden der Benutzeroberfläche und von Formularen ohne Einsatz von VBA-Ereignisprozeduren dazu führen werden, dass Sie Abläufe in Ihrer Access-Datenbank automatisieren werden – und zwar mit VBA.<\/p>\n

Dabei werden Sie auch auf Informationen etwa zur aktuell geöffneten Datenbank angewiesen sein, beispielsweise um den Pfad herauszufinden, in dem sich die aktuelle Datenbank befindet. Oder Sie gehen einen Schritt weiter und möchten gleich noch Daten aus einer der in der Datenbank gespeicherten Tabellen auslesen – dies geht jedoch einen Schritt weiter und wird in einem weiteren Artikel beschrieben (DAO-Recordsets öffnen und lesen<\/b>).<\/p>\n

Wenn Sie auf die aktuelle Datenbank zugreifen möchten, brauchen Sie einen Verweis beziehungsweise eine Referenz auf diese Datenbank. Die Datenbank wird durch ein Objekt der Bibliothek DAO repräsentiert: dem Database<\/b>-Objekt. Dieses Objekt muss nicht zwangsläufig auf die aktuell geöffnete Datenbank verweisen, aber dies wird in den meisten Fällen so sein. Einen Verweis auf dieses Database<\/b>-Objekt erhalten Sie mit einer speziellen Funktion der Access-Bibliothek namens CurrentDb<\/b>.<\/p>\n

Da CurrentDb <\/b>einen Verweis auf ein Database<\/b>-Objekt liefert, können Sie direkt über die Funktion auf das Database<\/b>-Objekt zugreifen. Das bedeutet, dass Sie die Eigenschaften und Methoden des Database-Objekts nutzen können. öffnen Sie zum Beispiel das Direktfenster des VBA-Editors der aktuellen Datenbank mit Strg + G <\/b>und tippen Sie die folgende Anweisung ein:<\/p>\n

Debug.Print<\/span> CurrentDb.Name<\/pre>\n
Bereits nach dem Eingeben des Punktes nach CurrentDb <\/b>bietet IntelliSense eine Liste aller Eigenschaften und Methoden des mit der CurrentDb<\/b>-Funktion gelieferten Database<\/b>-Objekts an (siehe Bild 1). Nach Abschluss der Eingabe mit der Eingabetaste liefert die Name-Eigenschaft den kompletten Pfad mit Dateiname der aktuell geöffneten Datenbank, zum Beispiel:<\/p>\n
\"Eigenschaften<\/a><\/p>\n
Bild 1: Eigenschaften und Methoden des mit CurrentDb gelieferten Database-Objekts<\/p>\n
C:\\Daten\\Fachartikel\\AiUBasic\\Basics\\2011\\09\\DAO_Database\\1109_DAO_Database.mdb<\/pre>\n
Verweis auf die aktuelle Datenbank speichern<\/h2>\n
Wenn Sie mehr als einen Aufruf mit der CurrentDb<\/b>-Funktion absetzen möchten, speichern Sie den damit gewonnenen Verweis auf die Datenbank in einer Variablen, die Sie wie folgt deklarieren:<\/p>\n
Dim <\/span>db As <\/span>DAO.Database<\/pre>\n
Im folgenden Beispiel deklarieren Sie das Objekt, füllen es mit der CurrentDb<\/b>-Funktion, geben Pfad und Dateiname der Datenbank aus und leeren die Objektvariable db <\/b>wieder:<\/p>\n
Public Sub <\/span>Database_Beispiele()\r\n     Dim <\/span>db As <\/span>DAO.Database\r\n     Set<\/span> db = CurrentDb\r\n     Debug.Print<\/span> db.Name\r\n     Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\n
Wo jetzt die Debug.Print<\/b>-Anweisung steht, können Sie beliebige weitere Zugriffe auf den in der Variablen db<\/b> gespeicherten Verweis auf die aktuelle Datenbank absetzen.<\/p>\n
Alle Tabellen auslesen<\/h2>\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