Excele Accessteki Tablo Adları Getirme

Excele Accessteki Tablo Adları Getirme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excele Accessteki Tablo Adları Getirme (/konu-excele-accessteki-tablo-adlari-getirme.html)

Sayfalar: 1 2

Cvp: Excele Accessteki Tablo Adları Getirme - feraz - 10/06/2019

Alttaki kodla sorun çözüldü.

sadece cnn.CursorLocation = adUseClient bunu silmek istedim hata verdi.
Birde Reference(Verweice) den Microsoft Activex Data object 2.8 Librariy den işaretlenmezse hata veriyor.

Sub GetTableNames() 'sistem Tablolarini getirmez

'Reference(Verweice) den Microsoft Activex Data object 2.8 Librariy secilecek

Dim cnn As Object
Dim rs As Object
Dim lRow As Long
Dim szConnect As String

With Sheets("kontrol")
    .Range("A2:A" & Rows.Count).ClearContents

    szConnect = "provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\iller.accdb"

    Set cnn = CreateObject("ADODB.Connection")
    cnn.CursorLocation = adUseClient
    cnn.Open szConnect

    Set rs = cnn.openschema( _
    adSchemaTables, _
    Array(Empty, Empty, Empty, "Table"))

    .Range(.Range("A2"), _
    .Range("A2").Cells(rs.RecordCount)) _
    .Value = Application.Transpose( _
    rs.GetRows(, , "TABLE_NAME"))
End With

rs.Close
cnn.Close
End Sub