Gewusst wie: abrufen von Daten aus access-Datenbank(.accdb) in excel mit vba

Arbeite ich auf Excel-VBA-Makros und ich möchte das abrufen von Daten aus einer MS Access-Datenbank (.accdb- Datei).

Ich habe versucht, mit unten Verbindungszeichenfolge und es wirft Laufzeitfehler '438'

   Dim cn As Object, rs As Object,DBFullName As String,Target As Range
   DBFullName = "D:\Tool_Database\Tool_Database.accdb"
   Set Target = Sheets("Sheet1").Range("A1")
   Set cn = CreateObject("ADODB.Connection")
   cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & DBFullName & ";"

   Set rs = CreateObject("ADODB.Recordset")
   rs.Open "SELECT * FROM test", cn, , , adCmdText

  For int i = 0 To rs.Fields.Count - 1
  Target.Offset(1, i).Value = rs.Fields(i).Name
  Next
  Target.Offset(1, 0).CopyFromRecordset rs
  rs.Close
  Set rs = Nothing
  cn.Close
  Set cn = Nothing

Bitte helfen Sie mir, um den Fehler zu beheben

Sie sagen, es ist ein .accdb Datei - warum sind Sie dann usnig eine .mdb Erweiterung in Ihrem Verbindungs-string?? DBFullName = "D:\Tool_Database\Tool_Database.mdb" ??
.mdb ist ein Tippfehler es ist .accdb

InformationsquelleAutor user2514925 | 2016-09-02

  1. 2

    Ich habe versucht, mit unten Verbindungszeichenfolge und es wirft Laufzeitfehler '438'

    Run-time error: '438' bedeutet, dass die Object doesn't support this property or method..

    Sind Sie immer, dass Fehler, weil Sie mischen VB.Net mit VBA

    Diese

    For int i = 0 To rs.Fields.Count - 1

    sollte

    For i = 0 To rs.Fields.Count - 1

    Neben dem oben genannten, ich denke DBFullName = "D:\Tool_Database\Tool_Database.mdb" ist ein Tippfehler von Ihrem Ende, wie Sie mit Hilfe .Accdb?

    ja .mdb ist ein Tippfehler. Wie um diesen Fehler zu beheben muss ich hinzufügen, Referenz
    Nein. ändern Sie einfach die Zeile, wie ich oben erwähnt
    Ich habe versucht den obigen code, und es ist in Ordnung, die für die Datenbank, die ich habe. Ich Zweifel die Daten in der Datenbank. Versuchen Sie dieses recordset öffnen-Befehl: rs.Open "SELECT * FROM Books", cn, adOpenStatic, adLockReadOnly
    Sind Sie Benutzer user2514925?
    Siddharth Rout: ich bin Nicht user2514925

    InformationsquelleAutor Siddharth Rout

  2. 1

    Dies sollte es tun für Sie. Fallen die WHERE-Klausel, wenn Sie nicht wollen, um einen filter anzuwenden.

    Stellen Sie auch einen Verweis auf:
    Microsoft ActiveX Data Objects 2.8 Library

    Sub Select_From_Access()
    Dim cn As Object, rs As Object
    Dim intColIndex As Integer
    Dim DBFullName As String
    Dim TargetRange As Range

    DBFullName = "C:\Users\Ryan\Desktop\Nwind_Sample.mdb"

    'On Error GoTo Whoa

    Application.ScreenUpdating = False

    Set TargetRange = Sheets("Select").Range("A1")

    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DBFullName & ";"

    Set rs = CreateObject("ADODB.Recordset")
    rs.Open "SELECT * FROM [OrderDetails] WHERE [OrderID] = 10248", cn, , , adCmdText

    ' Write the field names
    For intColIndex = 0 To rs.Fields.Count - 1
    TargetRange.Offset(1, intColIndex).Value = rs.Fields(intColIndex).Name
    Next

    ' Write recordset
    TargetRange.Offset(1, 0).CopyFromRecordset rs

    Application.ScreenUpdating = True
    On Error Resume Next
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
    On Error GoTo 0
    Exit Sub

End Sub

    InformationsquelleAutor

Schreibe einen Kommentar