Hallo Freaks
Beim Veruch ein ConnestionsString zu einer Access-DB zu schreiben, scheitere ich seit Stunden grandios!
Die oben auskomentierten Versuche sind mit folgender Fehelemeldung gescheitert: "Microsoft OLE DB Service Components"
Wie muss mein ConnectionString aussehen?
Danke im voraus und liebe Grüsse Alex
Beim Veruch ein ConnestionsString zu einer Access-DB zu schreiben, scheitere ich seit Stunden grandios!
Quellcode
- Sub checkConnection()
- Dim con As ADODB.Connection
- Dim i As Long
- Set con = New ADODB.Connection
- 'Provider=Microsoft.Jet.OLEDB.4.0;Initial
- On Error GoTo ErrConStr
- ' con.ConnectionString = "Catalog=" & fName & ;" &' "Integrated Security=False"
- ' con.ConnectionString = "{Microsoft Access Driver (*.mdb, *.accdb)};""DBQ=path to mdb/accdb file=" & fName & ";Integrated Security=False"
- ' con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.12.0;UID=Admin;Data Source=" & fName & ";" & "Integrated Security=False"
- con.Open
- con.Close
- Set con = Nothing
- Exit Sub
- ErrConStr:
- Debug.Print con.Errors(i).Source
- Set con = Nothing
- End Sub
Die oben auskomentierten Versuche sind mit folgender Fehelemeldung gescheitert: "Microsoft OLE DB Service Components"
Wie muss mein ConnectionString aussehen?
Danke im voraus und liebe Grüsse Alex