Contoh Script koneksi database mysql dan Visual basic 6.0

Bismillahirrohmanirrohim..
Ini adalah contoh script sederhana untuk koneksi database mysql dengan visual basic 6.0. Untuk memulainya silahkan buat database dengan nama barang dan sebuah tabel dengan nama barang dahulu, misal tabel barang dengan field sbb:
- Kode_barang type varchar
- Nama_barang type varchar
Setelah itu silahkan buat modul berikut ini namanya modul 1 aja ga apa-apa.

Public AdoBarang As New ADODB.Connection
Public rsBarang As New ADODB.Recordset

Setelah itu buat classmodul dengan nama Clskoneksi yang isinya sbb:

Private Sub Class_Initialize()
DoEvents
Set AdoBarang = New ADODB.Connection
With AdoBarang
.ConnectionString = “DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;UID=root;PWD=;DATABASE= barang;” _
& “OPTION=” & 1 + 2 + 8 + 32 + 2048 + 163841
.CursorLocation = adUseClient
.Open
End With
End Sub

setalah itu buat form1 dan tambahkan datagrid1, kemudian tambahkan script ini waktu form load.
If rsBarang.State = adStateOpen Then Set rsBarang = Nothing
DoEvents
Set Cn = New ClsKoneksi
rsBarang.Open “barang”, AdoBarang, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rsBarang
Setelah itu jalankan project untuk mengetahui hasilnya.