Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
10/06/2019 20:46
Konu Sahibi
feraz
Yorumlar
6
Okunma
185
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
feraz

feraz

Üye
52596
Za.... Gü....
 42
 3
 10
 30/03/2013
0
 -
 
 -
 13/06/2019,18:37
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




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Mevcut Olan Veri Yapısının, Veritabanı Tablo Yapısına Çevrilmesi. direnist 7 909 14/07/2018, 20:56
Son Yorum: Mehmet Emin Alkan
Çözüldü Php Mysqli Aynı Anda İki Farklı Tablo Güncelleme serkandiker 4 422 25/06/2018, 11:25
Son Yorum: ozguryasin
Çözüldü 2 tablo arasındaki Farklar Durmuş Okur 3 1.531 12/09/2016, 11:01
Son Yorum: atoz112
Çözüldü Alfa-numerik alanlarda min ve max degerleri getirme Accessive 4 1.268 10/06/2016, 20:29
Son Yorum: Accessive
Çözüldü excelde tablo içinde yer eşleştirme orhanbalcı 5 1.843 05/06/2016, 15:59
Son Yorum: atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.