Skip to main content

AccessTr.neT


Excele Accessteki Tablo Adları Getirme

Excele Accessteki Tablo Adları Getirme

#7
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task