Menurut pendapatku pribadi, koneksi VB6 dan MySQL menggunakan ODBC terasa kurang nyaman. Aku lebih suka pakai VBMySQLDirect.
vbmysqldirect.zip
(update: ouch original link is broken, download here)

Pertama-tama download terlebih dahulu VBMySQLDirect, dengan link diatas, kemudian install di PC/Laptop-mu. Berikut ini contoh pembuatan koneksinya:
Buatlah sebuah project VB baru, pilih VB Enterprise Edition Controls kemudian klik Open.



Sebuah project baru dan sebuah form akan terbentuk.


Tambahkan referensi VBMySQLDirect ke project dengan cara klik menu
Project --> References...


Akan muncul Dialog Box Reference, cari VB MySQL Direct v1.0 di list Available References. Cek pada check box sebelah kirinya dan klik OK.
Pastikan sudah menginstall  MySQL Direct v1.0 yah, klo ngga ga akan muncul reference nya.


Kita akan membuka koneksi ke database latihan di server local (localhost). Jika kita tidak melakukan setting lebih lanjut pada server MySQL kita biasanya secara default nama database user adalah root dengan password kosong.Kita akan membuka koneksi database saat membuka Form1. Dan menutup koneksi saat Form1 tertutup.Pada bagian paling atas setiap form, module, dan report selalu tambahkan code:
Option Explicit



Kode tersebut berfungsi untuk mendeteksi error variable tanpa deklarasi , sangat berguna pada proses pembuatan aplikasi untuk meminimalisir error terjadi pada saat aplikasi digunakan nanti.Buat sebuah variable koneksi bernama oConn dengan cara mengetikan code sebagai berikut:

Dim oConn As MYSQL_CONNECTION

Lalu buat 4 buah variable string untuk memuat data-data koneksi ke database server
Dim server As String 'variabel string untuk server database

Dim UserDB As String 'variabel string untuk user login mysql
Dim password As String 'variabel string untuk password mysql 
Dim database As String 'variabel string untuk namadatabase

Tentukan nilai-nilai 4 variable tersebut pada event Form_load
server = "localhost"
UserDB = "root"
password = ""
database = "latihan"

Buka koneksi dengan code berikut:
SET oConn = New MYSQL_CONNECTION
oConn.OpenConnection server, UserDB, password, database

Tambahkan pesan yang menyatakan koneksi telah terbuka:
MsgBox "Anda telah terkoneksi dengan database " & database

Tutup koneksi pada event Form_QueryUnload
oConn.CloseConnection
Set oConn = nothing

Setelah itu coba Anda Run project aplikasi yang baru saja Anda buat. Jika code program telah tersusun dengan baik dan berhasil koneksi ke database maka akan muncul pesan seperti di bawah ini:
Kode lengkapnya:

Click here if you like this article.


Artikel Selanjutnya: