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

Katılım
15 Şubat 2006
Mesajlar
23
Altın Üyelik Bitiş Tarihi
19-04-2022
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
 
Son düzenleme:
Katılım
15 Haziran 2006
Mesajlar
3,704
Excel Vers. ve Dili
Excel 2003, 2007, 2010 (TR)
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)

Kod:
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
 
Üst