Pada Pembelajaran Visual Basic 6.0 kali ini kami akan menjelaskan cara koneksi Database 2007 dengan Visual Basic 6.0. Format Database access 2007 dan 2010 adalah sama yaitu sama-sama berextension .accdb sehingga jika anda membuat database dengan Microsoft Office Access 2007 atau 2010 anda bisa menggunakan Koneksi Pada Bab ini.
Berikut langkah-langkah dalam Membuat Koneksi Database Access 2007 atau 2010
Buka Komputer Anda
Klik Start pada Windows
Klik All Programs
Visual Basic 6.0
Standart EXE
OK
Simpan Pada Folder contoh "Belajar VB"
Buat Database dengan Nama : DBBelajarvb.accdb
Buat Tabel Barang Dengan Isi Seperti Gambar dibawah :
Kami menyimpan pada Folder : Belajar VB
Kemudian buatlah Form dengan menambahkan Datagrid dan ADODC
Preferences
Klik OK
Kemudian pada Form tersebut masukan Koding dibawah ini :
Dim Koneksi As New ADODB.ConnectionKemudian Run Program, seharusnya muncul seperti gambar dibawah :
Dim RSBarang As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSBarang = New ADODB.Recordset
Koneksi.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\DBBelajarvb.accdb"
End Sub
Private Sub Form_Load()
Call BukaDB
Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & App.Path & "\DBBelajarvb.accdb; "
Adodc1.RecordSource = "Barang"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Ikuti Terus Tutorial Visual Basic kami selanjutnya...
Silahkan KLIK DISINI untuk download source code diatas
« Prev Post
Next Post »
Penulisan markup di komentar
- Untuk menulis huruf bold silahkan gunakan
<strong></strong>atau<b></b>. - Untuk menulis huruf italic silahkan gunakan
<em></em>atau<i></i>. - Untuk menulis huruf underline silahkan gunakan
<u></u>. - Untuk menulis huruf strikethrought silahkan gunakan
<strike></strike>. - Untuk menulis kode HTML silahkan gunakan
<code></code>atau<pre></pre>atau<pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
5 komentar
Write komentartanpa memanggil procedure BukaDB pun masih bisa memanggil data..Apa fungsinya procedure BukaDB?
Reply
Hi Pengguna,
Terima kasih telah berkomentar.
Fungsi BukaDB adalah sebuah fungtion untuk memanggil database ada di path folder bersamaan dengan Project VB 6.0 yang dibuat.
Melalui function tersebut maka tidak ketergantungan folder. artinya jika dibuka di dicopy di flasdisk dan dibuka dikomputer lain langsung bisa konek.
Apakah cukup jelas atau ada sanggahan???
Hi Bambang,
Sama sama, selamat belajar VB ya, semoga sukses :)
Terima kasih
mw tanya ni ..
saya membuat sebuah macro di ms acces 2013
kemudian sy ingin menjalankan macro itu dari vb6
ini code y saya pakai
Sub accesdatabase()
Dim A As Object
Set A = CreateObject("access.application")
With A
A.opencurrentdatabase "E:emc.mdb"
A.docmd.RunSavedImportExport "import-database"
A.docmd.runmacro "import"
End With
Set A = Nothing
MsgBox " Data Tersimpan"
End Sub
masalahnya saat du run muncul pesan
axtivex cant create object.
bagaimana cara mengatasinya.
terimakasih..