KONEKSI DATABASE MYSQL DENGAN VB 6.0

MySQL merupakan salah satu program
aplikasi pengolah database berbasis RDBMS yang sering digunakan dalam
pemrograman database. Database yang dibuat menggunakan MySQL juga dapat
dihubungkan dengan program aplikasi pembangun progam lain termasuk Visual
BASIC.
Untuk lebih mudah memahami cara pembuatan database, kita akan langsung
membuat Database Pengajaran diatas dengan menggunakan MySQL.
Untuk dapat membuat database dengan MySQL, maka kita harus mengaktifkan
terlebih dahulu program MySQL Server (winMySQLAdmin) dan program MySQL
(mysql.exe) pada folder instalasi mysql .
C:/apache/mysql/bin (jika menggunakan PHPTriad)
C:/mysql/bin (jika menggunakan MySQL Server)

BERIKUT 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.

demikianlah yang bisa saya sampaikan semoga dapat bermanfaat buat anda semua,,amiieenn!!!!
akhir kata WASSALAMUALAIKUM WARAHMATULLAHI WABARAKATU