Bu access veri tabanına bir türlü bağlanamadım ?

[suatsuphi]

Merhaba arkadaşlar,

Db bağlantısını başka mdb lerde yapabiliyorum bunda bir türlü yapamadım ekteki bağlantıyı sağlayabiline varsa lütfen yardım etsin...

database yapısı farklı sanırım o yüzden
yardımcı olan bilir misiniz
benim
vrx.mdb (ekteki dosya) database deki RECORD tablosuna bağlanmak istiyorum. Ne denediysem olmadı örnek bir bağlantı (denemelisiniz o yüzden ekteki dosyayı gönderiyorum) çünkü çok denedim olmuyor veritabanının yapısı farklı gibi

Vermiş olduğu hata : run-time error '3343'



teşekkürler

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodları bir modul sayfasına kopyalayıp çalıştırınız. Aktif olan Çalışma sayfasında RECORD table'ının tüm verileri görüntülenecektir. Ben sadece RECORD table'na bağlandım. Siz farklı table isimleri için deneme yapabilirsiniz.

ÖNEMLİ NOT : Kodları kopyaladığınız Excel kitabını, veri tabanı ile aynı dizin altına kaydediniz. Excel dosyanıza, "Micorosoft Activex Data Object 2.x Library" ve "Microsoft ADO Ext.2.x for DDL and Security" referanslarını ekleyiniz.(Bunun için: VBE'de, Tool->References)

Sub baglan()
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    tablo = "RECORD"
    conn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & ThisWorkbook.Path & "\vrx.mdb;Uid=;Pwd=;"
      conn.Open
        Sql = "SELECT * FROM " & tablo
          rs.Open Sql, conn, adOpenKeyset, adLockOptimistic
    rs.MoveFirst
    Do Until rs.EOF
       y = y + 1
          For i = 1 To 11
             Cells(y, i) = rs(i - 1)
          Next i
       rs.MoveNext
    Loop
    Set conn = Nothing
    Set rs = Nothing
End Sub