VB - Access DB'ye Bağlanma

Konu

Bir tablo Excel'im Sayfasındaki bir düğmeyi tıkladığımda Access'te bir DB kopyalamak istiyorum. Bu tabloyu içeren Xls.

Şimdilik bağlantıyı ve tablonun oluşturulmasını test ediyorum. Kodum şöyle görünüyor:

 Alt cnxBDD () string = "Provider = Microsoft.Jet.OLEDB.4.0; Veri Kaynağı = C: \ Users \ Nant \ Desktop \ MABDD.mdb; Persist Güvenlik Bilgisi = Yanlış" DB = Yeni ADODB Ayarla. Bağlantı Seti recSet = Yeni ADODB.Recordset BDD.Open CSQL Me.Ref'in SunDD ADODB.Connection Sun RecSet ADODB.Refkenin Sun CSQL Olarak Doldurun BDD., mail varchar (60), Takma isim varchar (60), DateAjout tarihi boş değil) "End Sub

Oluşan hata

this: "ADO: Derleme Hatası: kullanıcı tanımlı tanımlı değil" ve "Yeni ADODB.Connection"

Çözüm

Başvuru Microsoft ActiveX Veri Nesneleri xx Kütüphanesi projesine eklenmelidir.

VB editörünün menüsünde => Araçlar => Referanslar ... yazışmayı işaretleyin.

O zaman yaratmadan önce nesneleri ilan etmelisin ...

 DB ADODB.Connection Sun Sun Sun ADSTB.Recordset CSQL Olarak Dize Ayarı CSQL DB = Yeni ADODB.Connection Set recSet = Yeni ADODB.Recordset 'Olarak DB Bağlantı dizisi str = "Provider = Microsoft.Jet.OLEDB.4.0; Veri Kaynağı = C: \ Users \ Nant \ Desktop \ MABDD.mdb; Persist Güvenlik Bilgisi = Yanlış "'BDD.Open bağlantı dizesini oluşturduk' CSQL sorgusunu yazdık 'Sorguyu recSet.Open CSQL, DB, veritabanına aktardık., adCmdText 'Bağlantıyı kapatır ve BDD'deki nesneleri serbest bırakır. Kapat recSet.Close = Nothing Set DB = Nothing Set recSet

İşe yaramalı!

Ayrıca VB'yi Access veritabanına bağlamakla ilgili şu ipucunu da kontrol edin:

//ccm.net/faq/6079-connecting-vb-to-database