Tutorial VB ADODB dan Access

Sebelum melakukan koneksi Data dengan ADODB pada VB terlebih dahulu teman-teman harus membuat sebuah database yang akan dikoneksikan, Contoh : database Access (*.mdb) misalnya maut.mdb (di sini maut dapat kita ganti dengan nama apa saja).

Membuat Database Access :

1. Start -> All Program -> Microsof Office -> Microsoft Office Access 2003 (Untuk Versi 2003)





2. Setelah Ms Acces terbuka Pilih File -> New
3. Setelah itu akan muncul tab baru pada sebelah kiri layar, pilih Blank Database





4. Akan muncul kotak dialog "File New Database", simpanlah file anda pada folder yang telah anda sediakan untuk menyimpan Project anda nantinya dengan misalnya dengan nama Maut kemudian pilih create
5. Setelah muncul form baru, pilih "Create Table in Design View"
6. Masukkan field yang akan anda masukkan ke dalam database seperti : Kode, HargaBeli, HargaJual, de el el (! ingat : dalam membuat field tidak boleh di beri spasi) setelah selesai berikan primary key pada salah satu field kemudian pilih Save masukkan nama dari tabel anda


7. Setelah anda save akan muncul tabel dari database yang telah anda buat sebelumnya pada form pertama tadi klik pada tabel itu jika anda ingin mengedit field-nya
   
   
8. Masukkan data seperti di bawah ini



9. Setelah selesai pilih File -> Save
   

Membuat Form Pada Visual Basic 6.0

1. Start -> All Program -> Microsoft Visual Studio 6.0 -> Microsoft Visual Basic 6.0


2. Setelah masuk Aplikasi Visual Basic 0.6 terbuka akan muncul kotak dialog "New Project" Pilih VB Enterprise Edition Controls -> OK
3. Akan muncul tampilan area kerja Visual Basic
   
   
4. Buatlah Form Seperti di bawah ini



5. Untuk membuat form gunakan Tool Box yang ada di sebelah kiri form


6. Setelah selesai membuat form, save project anda ke direktori / folder yang sama dengan database yang telah anda buat tadi
   

Membuat Sintaks (kode) untuk koneksi ke database

• Pertama aktifkan "Microsft Active Data Object", pilih Project -> Preference , Beri tanda centang pada menu "Microsoft ActiveX Data Objects 2.0 Library"

• Buat modul, Pilih Project -> Add Module -> Open
• Ketikkan sintaks (kode) di bawah ini pada module

Public conbarang As New ADODB.Connection

Public Sub bukadatabase()
conbarang.ConnectionString =_
"provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\maut.mdb"
conbarang.CursorLocation = adUseClient
conbarang.Open
End Sub

• Setelah sintaks pada module selesai di buat kembalilah ke form barang setelah itu masuk ke code editor, pilih view -> code kemudian buat sintaks di bawah ini

Dim recbarang As New ADODB.Recordset

Private Sub bukabarang()
If recbarang.State = adStateOpen Then recbarang.Close
recbarang.Open "select * from barang", conbarang, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = recbarang
End Sub

Private Sub Form_Load()
bukadatabase
bukabarang
End Sub

• Setelah semua sintaks selesai dibuat tekan F5 jika semau benar akan muncul tampilan seperti di bawah :

Untuk lebih lengkapnya silahkan teman-teman download Project nya di sini