Office: ADODB Zugriff auf Access 2016

RogerWilco77 · 4. März 2017

Liebes Forum,

ich habe eine Datenbank in Access 2016 erstellt und möchte nun darin über Aggregatfunktionen zusammenfassen, in eine Excelzelle schreiben und dann rechnen.
Der erste Schritt soll eine funktionierende Verbindung sein und den Inhalt testweise zunächst per debug.print auszugeben.

Ich erhalte dabei die Fehlermeldung:

Laufzeitfehler '3706': Der Provider kann nicht gefunden werden. Möglicherweise ist er nicht richtig installiert worden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Auf diesem Firmenrechner kann ich leider auch zu Testzwecken keine Programme installieren. Da aber ein komplettes Office 2016 installiert ist, glaube ich auch nicht, dass da wirklich etwas fehlt.
Code:

Sub calculate()

Dim cell As Range

' database related
Dim strDB As String
Dim objcon As ADODB.Connection
Dim rst As ADODB.Recordset
Dim line As Long

' link to database
Set objcon = New ADODB.Connection

strDB = ThisWorkbook.Path & "Datenbank.accdb"
objcon.Provider = "Provider=Microsoft.ACE.OLEDB.12.0"

objcon.Open (strDB)
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM tbl_downtimes", objcon, adOpenKeyset, adLockOptimistic

Do Until rst.EOF
Debug.Print rst!id_shift
rst.movenext
Loop

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gelb markiert wird übrigens die Zeile "objcon.Open(strDB)", aber der Pfad im Debugger scheint zu stimmen.

:)

Schtief · 6. März 2017

Hallo Roger,

diese Zeile scheint mir falsch zu sein...

Code:

objcon.Provider = "Provider=Microsoft.ACE.OLEDB.12.0"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

tausche diese mal gegen diese und schau ob es funktioniert.
Code:

objCon.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & strDB
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ich glaube dadurch dürftest du auch die Zeile mit objCon.Open weglassen

Grüße
Steffen

RogerWilco77 · 6. März 2017

Vielen Dank! Das war der Grund.*Smilie

Office: ADODB Zugriff auf Access 2016

ADODB Zugriff auf Access 2016

ADODB Zugriff auf Access 2016

ADODB Zugriff auf Access 2016 - Similar Threads - ADODB Zugriff Access

Zugriff auf nicht vorhandene Datei seitens Excel

Fehler beim Zugriff auf Pfad/Datei

Zugriff auf Zellen in geschlossenen Arbeitsmappen

Zugriff aus Access-Datei (xx.accdb)

Zugriff auf andere Excel Datei ohne aktives Öffnen

Access 2013; VBA; Unterformular via ADODB

ADODB recordset Typen unverträglich