Sqlite, Odbc, Ado Ve Addnew

Birde excele almak istedim sqlite veritabanından bağlnantı hatası var galiba nasıl çözülecek.Anlıyorsunuz diye konu açmadan size danışayım dedim.

Private Sub CommandButton1_Click()



    Dim conn As Object, rst As Object

    

    Set conn = CreateObject("ADODB.Connection")

    Set rst = CreateObject("ADODB.Recordset")

    

    conn.Open "DRIVER=SQLite3 ODBC Driver;Database=" & ThisWorkbook.Path & "\ee.db;"

    

    strSQL = "SELECT * from tbltest;"

    

    rst.Open strSQL, conn, 1, 1

    Sheets("Sayfa1").Cells.Clear

    Sheets("Sayfa1").Range("A1").CopyFromRecordset rst

    rst.Close

    conn.Close

    Set rst = Nothing: Set conn = Nothing



End Sub

Sn. @feraz Kelin merhemi olsa başına sürermiş.

(16/05/2020, 04:41)accessman yazdı: Sn. @feraz Kelin merhemi olsa başına sürermiş.

Yazılarınızda sqlite veritabanı kullanıyorum diyordunuz o yüzden yazmıştım.Neyse bakayım biraz.Olmazsa bende bir konu açayım.

Odbc üzerinden sihirbazla Access e bağlıyorum 
Excel bana zor geliyor

(16/05/2020, 15:17)accessman yazdı: Odbc üzerinden sihirbazla Access e bağlıyorum 
Excel bana zor geliyor

Bende öyle yayıp çıkan bağlantıyı almayı planlıyordum.Deneyeceğim sonucu yazarım.Sqlite kullanacağımdan değilde iş olsun Biraz baktım ODBC de sqlite bağlantısı çıkmıyor.

(16/05/2020, 15:17)accessman yazdı: Odbc üzerinden sihirbazla Access e bağlıyorum 
Excel bana zor geliyor

Biraz uğraşınca sqliteye excelden bağlanmayıda buldum.Bir küçük exe yükleniyor.Sonra sqlite veri tabanından veri çekiliyor yani menüde bağlantıda çıkıyor ado için daha bakamadım.

https://menne-biomed.de/blog/sqlite-excel