Translate

Montag, 18. Juni 2012

Datenbankzugriff per VBA via DAO

Um auf eine Access-Datenbank zuzugreiffen benötigt VBA einen Verweis auf Ihre aktuelle installierte DAO-Schnittstellen.
Diese lautet für MS-Access 2002/2003 "Microsoft DAO 3.6 Object Library"
Ab Version 2007 "Microsoft Office 12.0 Access Database engine object Library"
Ab Version 2010 "Microsoft Office 14.0 Access Database engine object Library"

Möchten Sie ohne Verweis mit DAO arbeiten (Late Binding),
dann sieht die Codierung folgendermaßen aus:
Dim
oDAO As Object, oDB as Object 
Set oDAO = CreateObject("DAO.DBEngine.36")
'
Ab Access 2007: DAO.DBEngine.120
Set oDB = oDAO.OpenDatabase("Datei.mdb")
 
Sollte Access 2007/2010 auf dem System nicht installiert sein, kann man 
die Access DAO Engine unter folgenden Link downloaden:
http://www.microsoft.com/de-de/download/details.aspx?id=13255

Keine Kommentare:

Kommentar veröffentlichen