Access Bağlantı

[mu_tek]

Merhaba,

Excelden Access'e bağlantı kurarken
Dim conn As Database
Dim rs As DAO.Recordset
Set conn = OpenDatabase("C:\Users\srk\Desktop\kayıt.mdb")
Set rs = conn.OpenRecordset("tblmusteri")


bu kodu kullanıyordum yanlız access 2007 de uzantı .accdb oldu bu bağlantı 2007 uzantısını yazınca hata veriyor bağlantı kodunu nasıl yazmalıyım bilen arkadaşlar yardımcı olursa sevinirim...

 

[Zeki Gürsoy]

Merhaba,

Burayı inceleyin.

http://www.connectionstrings.com/access-2007

 

[mu_tek]

Dim conBaglanti As New ADODB.Connection
Dim rstTablo As New ADODB.Recordset
conBaglanti.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\aa\Desktop\1.accdb;Persist Security Info=False;"

rstTablpen ("SELECT * FROM tblmusteri"), conBaglanti, 3, 3


böyle bir çözüm buldum yardım için teşekkürler...

 

[hsayar]

Zeki bey ben mdb uzantıısınd kullandığım yöntemi değiştirmeden accdb için nasıl uyarlarım?
Saygılarımla;
mdb yöntemi:

Private connMAHALLIBIRIM As ADODb.Connection
Private rsetMAHALLIBIRIM As ADODb.Recordset
Private Const kynMHBRM   As String = "C:\HSR\HsDatabase\vtMHBRM.mdb"    'vtmahbirimler.xls"

Sub subBAGLANMAHALLIBIRIM()
If Dir(kynMHBRM) = "" Then
    MsgBox kynMHBRM & " " & Chr(10) & " Dosyası Bulunamadı.", vbInformation, "Bilgi"
    boolMAGBIRBAG = False
Else
  Set connMAHALLIBIRIM = CreateObject("ADODB.Connection")
  With connMAHALLIBIRIM
        .Provider = "Microsoft.Jet.OLEDB.4.0"
'        .Properties("Extended Properties").Value = "Excel 8.0"
        .Properties("Data Source").Value = kynMHBRM
        .CursorLocation = adUseClient
        .Mode = adModeReadWrite
        .CommandTimeout = 60
        '.Properties("User ID") = vbNullString
        '.Properties("Password") = vbNullString
        .Open
    End With
    boolMAGBIRBAG = True
End If
End Sub
.........
'bağlantı komut gönderilene kadar açık kalacak ve aradaki prosodürler işletilecektir.

accdb de Persist Security Info değeri proportiese yazılıyor mu? mdb de kullanlılan cursor location, user ID vs. seçenekleri yok mu?

 

[Zeki Gürsoy]

Merhaba,

Veritabanı versiyonu ne ise, conn. string de o olmalıdır. Connection String dediğimiz şey tek satırlık bir cümleden ibarettir.

http://www.connectionstrings.com/access

http://www.connectionstrings.com/access-2007

 

[hsayar]

zeki bey mümkünse kodlar üzerinde gösterir misiniz?

 

[erkankamilonas]

Peki 2010 için bağlantı kodu nedir?

 

[yenilik025]

2013 Excel İçin Acces Vri bğlantı Hatası Veriyor

Private Sub CommandButton1_Click()

Set baglanti = CreateObject("ADODB.Connection")
baglanti.Provider = "Microsoft.ACE.OLEDB.12.0;Data Source=D:\data.accdb"
bağlanti.Open "D:\data.accdb"

Label7.Caption = "bağlantınız hazır"

End Sub

Kodumuz budur bunda da bağlanamıyorum

Bir de dosya ekledim inceleyebilir misiniz ?



QUOTE=Zeki Gürsoy;508875]Merhaba,

Veritabanı versiyonu ne ise, conn. string de o olmalıdır. Connection String dediğimiz şey tek satırlık bir cümleden ibarettir.

http://www.connectionstrings.com/access

http://www.connectionstrings.com/access-2007[/QUOTE]

 

[Zeki Gürsoy]

Dosyadaki bağlantı açılıyor.