VB - Menghubungkan ke Access DB

Isu

Saya punya tabel Excel Saya ingin menyalin DB di Access ketika saya mengklik tombol pada lembar. Xls mengandung tabel ini.

Untuk saat ini saya sedang menguji koneksi dan pembuatan tabel. Kode saya terlihat seperti ini:

 Sub cnxBDD () string = "Provider = Microsoft.Jet.OLEDB.4.0; Sumber Data = C: \ Users \ Nant \ Desktop \ MABDD.mdb; Info Keamanan Tetap = Salah" Set DB = New ADODB. Set Sambungan recSet = ADODB Baru. Set Ulang BDD. Buka CSQL Me. Ubah Sun DB Sebagai ADODB. Konektivitas Set ulang Matahari Sebagai ADODB. Rekor Setel Sun CSQL Sebagai String BDD. Eksekusi "CREATE TABLE test (nama varchar (60), FirstName varchar (60), mail varchar (60), Nickname varchar (60), DateAjout date bukan null) "End Sub

Kesalahan yang terjadi adalah

ini: "ADO: Kesalahan Kompilasi: tipe yang ditentukan pengguna tidak didefinisikan" dan pada "ADODB Baru. Koneksi"

Larutan

Itu harus menambahkan referensi Microsoft ActiveX Data Objects xx Library proyek.

Dalam menu editor VB => Alat => Referensi ... centang sesuai.

Maka Anda perlu mendeklarasikan objek sebelum membuatnya ...

 DB Sebagai ADODB.Koneksi Sun Sun Sun recSet Sebagai ADODB.Recordset CSQL Sebagai String Set DB = New ADODB.Connection Set recSet = New ADODB.Recordset 'String koneksi str = "Penyedia = Microsoft.Jet.OLEDB.4.0; Sumber Data = C: \ Users \ Nant \ Desktop \ MABDD.mdb; Info Keamanan Tetap = Salah "'Kami membuat string koneksi BDD.Buka' Kami menulis permintaan CSQL 'Kami mengirimkan permintaan ke basis data recSet.Open CSQL, DB,, , adCmdText 'Ini menutup koneksi dan melepaskan objek pada BDD. Tutup recSet.Close = Nothing Set DB = Nothing Set recSet

Itu harus bekerja!

Juga periksa tip ini tentang menghubungkan VB ke database Access:

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