Office: Access VBA-Modul: aktuelle Datenbank mit ADO ansprechen

Hallo zusammen!

Ich habe eine mit Access erstellte Datenbank, in die ich ein Modul eingefügt habe. In dem Modul wird mit ADO auf die Datenbank zugegriffen.

Set adoCN1 = New ADODB.Connection
DBPfad = "E:\Gruppenprozente\Gruppenprozente.mdb"
With adoCN1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPfad
.Mode = adModeReadWrite
.Open
End With

Gruppenprozente.mdb ist die Datei, zu der auch das Modul gehört.
Mein Problem: Wie kann ich auf die Datenbank zugreifen, zu der das Modul ja gehört, ohne dass ich immer den Dateipfad angeben muss? Denn wenn ich die Access-Datenbank nun an jemand anderes weitergebe, stimmt die Pfadangabe ja meist nicht mehr...


Danke schon mal für die Hilfe!

mfG,

ganimedo

:)

 

Hallo,

nimm das Connection-Objekt des aktuellen Access-Projekts:
Code:

Damit beziehst Du Dich auf die aktuelle Datenbank.

Gruß Alex

 

Hatte es grade auch selbst rausgefunden, so gehts auch:

Set adoCN1 = New ADODB.Connection
With adoCN1
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Mode = adModeReadWrite
.Open CurrentProject.Connection
End With

Und schon läuft der Laden...


Trotzdem Danke!

ganimedo.

 

Äääh, Alex: Wenn ich deine Lösung umsetze, erhalte ich spätestens bei der Benennung des Providers (im with-Block) die Fehlermeldung "Operation is not allowed when the object is open."

 

Hallo,

ja, das liegt daran, das alle Eigenschaften der Connection bereits feststehen, sie besteht ja bereits seit Öffnen der Datenbank, Du mußt Nichts mehr einstellen.

Gruß Alex

 

Ach so...
Jetzt mal ne andere Frage: Ich will noch ne externe Textdatei einlesen. Der Name der Datei ist nicht immer der selbe, das könnte man ja noch mit ner User-Eingabe lösen. Aber gibts ne elegante Lösung, um nicht extra den kompletten Pfad angeben zu müssen? Also z.B. ne Variable oder sowas, in der der Pfad der .mdb-Datei gespeichert ist, mit der ich grade arbeite; das wäre am besten, dann müsste man nur vorher die Datei, die man einlesen möchte, in den Ordner kopieren, in dem sich die Datenbank-Datei befindet.


Gruß,

ganimedo.

 

Einfacher/eleganter wäre es evtl. mit dem Dateiauswahldialog, den Du im Code-Archiv findest. Dann brauchst Du die Textdatei auch nicht zu kopieren.

 

Hallo,

schau Dir einfach mal den Objektkatalog etwas genauer an:
Code:

Gruß Alex

 

Aha... Wo finde ich denn das Code-Archiv? Bin ich jetzt blöde oder ist das gut versteckt???


Gruß,

ganimedo.

 

Starten wir mal die Suche.

Hier ist es zu sehen:
MS-Office-Forum - Powered by vBulletin

Hier auch:
http://www.ms-office-forum.net/forum...p?s=&forumid=3

Jetzt bist Du schon im Code-Archiv:
http://www.ms-office-forum.net/forum...?s=&forumid=78

Und hier ist endlich der Dateiauswahl-Dialog:
http://www.ms-office-forum.net/forum...threadid=40922


SCNR. *wink.gif*