none
Zugriff von Excel 2010 auf Access 2010

    Frage

  • Ich möchte von Excel 2010 aus via VBA auf eine Access-Datenbank zugreifen:

    Public Sub openAccessDB()
    Dim dbConn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim sProvider As String
    Dim sDataSource As String
    Dim sSQLcmd As String
    Dim s As String
    Dim i As Integer


    sProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
    sDataSource = "Data Source=L:\AG9TAS\TAS01\Controlling\CS.accdb"
    sSQLcmd = "SELECT ServerName from Server ORDER BY ServerName ASC"

    'open ACESS-Database
    s = sProvider & sDataSource
    dbConn.Open (s)                            ' Hier erhalte ich die Fehlermeldung "Nicht erkennbares Datenformat 'L:\AG9TAS ....

    'open Record Set
    rs.Open sSQLcmd, dbConn

    i = 0
    While Not rs.EOF
     i = i + 1
     MsgBox (CStr(i) & ". Server: " & CStr(rs!servername))
     rs.MoveNext
     Wend
     
     'Close Record Set
     rs.Close
      'Close DB Connection
     dbConn.Close
      

    End Sub

    Ich habe folgende Verweise gesetzt

    - Visual Basic for Applications
    - Microsoft Excel 14.0 Object Library
    - OLE Automation
    - Microsoft Office 14.0 Object Library
    - Microsoft Scripting Runtime
    - Microsoft Office 14.0 Access database engine Object
    - Microsoft ActiveX Data Objects 6.1 Library

    Wo liegt der Fehler?

    Danke vorab für die Unterstützung

    Donnerstag, 7. April 2016 07:18

Alle Antworten

  • Hi Albert,
    für das accdb-Format benötigst du den neuen Treiber:

     sProvider = "Provider=Microsoft.ACE.OLEDB.12.0;"


    --
    Viele Grüsse
    Peter Fleischer (MVP, Partner)
    Meine Homepage mit Tipps und Tricks
    Kommas richtig setzen!
    Schüler sagen, Lehrer haben es gut.
    Schüler, sagen Lehrer, haben es gut

    • Als Antwort vorgeschlagen Roland Franz Donnerstag, 7. April 2016 08:02
    Donnerstag, 7. April 2016 07:27
  • Hallo Albert,

    mit der von Dir gezeigten Open-Methode kannst Du .mdb Datenbanken öffnen.

    Grüße

    Roland


    PS: Wie Peter geschrieben hat benötigst Du den neuen Treiber um die Connection auf accdb herzustellen.
    Donnerstag, 7. April 2016 07:38
  • Liebe Kollegen,

    danke für die schnelle Antwort.

    Nun funktioniert es. Super!!!

    Donnerstag, 7. April 2016 10:14