Variabler Laufwerksbuchstabe bei ADODB-Connection
23.02.2019 15:06:00
nenane
ich komme gerade auf keinen grünen Zweig. Ich habe eine Excel Datei mit der ich über eine ADODB Connection auf eine Access Datenbank zugreife, um mir Abfragen aus der Datenbank zu ziehen. Das funktionierte bisher einwandfrei. Jetzt bin ich an dem Punkt, wo der Laufwerksbuchstabe des Speicherorts der Datenbank variabel sein kann. Aus dem Forum habe ich mir dazu eine Hilfestellung geholt, mit der ich jetzt auch den korrekten Laufwerksbuchstaben ermittle. Das Problem ist, dass ich den String mit dem Dateipfad nicht korrekt in die Data Source eingesetzt bekomme. Anstatt des Laufwerks welches korrekt im String gespeichert ist, verbindet er den Namen des Strings mit dem Pfad.
Könnt ihr mir da weiterhelfen?
Sub str()
Dim bolFound As Boolean, strPath As String, strLaufwerk As String, i As Integer
strPath = ":\Ordner1\Ordner2\Datenbank\Test.accdb"
For i = 67 To 90 '67=C, 90=Z
strLaufwerk = Chr(i)
If Dir(strLaufwerk & strPath) "" Then
bolFound = True
Exit For
End If
Next
If bolFound = True Then
With con
.Provider = "Microsoft.ACE.OLEDB.12.0;Data Source=""strLaufwerk" & ":\Ordner1\Ordner2\ _
Datenbank\Test.accdb"";Mode=Share Deny None;"
.Properties("Jet OLEDB:Database Password") = "*****"
.Open
End With
Else
MsgBox "Verzeichnis """ & strPath & """ auf keinem Laufwerk gefunden", _
vbInformation + vbOKOnly, "Datei öffnen-Dialg anzeigen"
End If
End Sub