pertama buat tabel dulu sesua dengan tabel yang anda inginkan, setelah buat tabel maka buat mudule supaya bisa di akses dari semua form.
Public cn As New ADODB.Connection
Public Sub BukaDB()
Dim koneksi As String
koneksi = “provider=microsoft.jet.oledb.4.0; Data source= ” & App.Path & “\latihan.mdb;”
cn.Open koneksi
End Sub
Perhatikan kode diatas, jangan asal kopi paste he he tetapi anda harus bisa memahaminya dengan benar, yang pertama yaitu
Public cn As New ADODB.Connection
Berfungsi untuk membuat variable bersifat public menggunakan ADODB
Dim koneksi As String
Berfungsi untuk membuat variable bersifat private bertipe string
koneksi = “provider=microsoft.jet.oledb.4.0; Data source= ” & App.Path & “\coba.mdb;”
Kode ini adalah yang paling di butuhkan dalam mengkoneksikan database ke vb yaitu jembatan dengan menggunakan provider Microsoft jet oledb 4.0 yang memanggil data source/sumber data dari database coba.mdb