Hallo,
ich möchte lesend über Excel auf Daten einer ACCESS-DB (V97) zugreifen die mit der System.mdw mit den entsprechenden Benutzerrechten geschützt ist. Wie kann ich die Verbindung herstellen um User und Paßwort an die Datenbank zu übergeben, damit ich darauf zugreifen kann? Mit OpenDatabase/Openrecordset klappt das leider nicht.
Danke und Gruß
Oliver
Hi,
versuch das ganze mal über ADO.
Füge über Komponenten Microsoft ADO hinzu und dann schreib folgenden Code
Public Function get_data(sql As String) As Recordset
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open „PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=“ & App.Path & „\Data.mdb;“
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open sql, db, adOpenStatic, adLockOptimistic
Set get_data = adoPrimaryRS
End Function
Jetzt musst du nur noch den korrekten Datenbankpfad und -name eintragen und dann kannst du einen SQL-Abfrage einfach absetzen
Hoffe, es hilft dir weiter
greetz
Mario