Sebenarnya ini bukanlah hal yang baru, tetapi masih saja asyik untuk dibahas. Seperti kita ketahui, MySQL adalah database yang sangat populer saat ini dan umumnya digunakan untuk database web. Jika kita biasa menggunakan Access atau MS SQL untuk database program VB kita, sekarang kita akan coba menggunakan MySQL sebagai salah satu alternatif database.

Pertama2 yang harus kita siapkan adalah program MySQL ODBC
Untuk MySQLnya versi 4, disarankan menggunakan MyODBC versi 3.51 yang dapat didownload di http://dev.mysql.com/downloads/connector/odbc/3.51.html
Jika MySQLnya versi 5 keatas, disarankan menggunakan MyODBC versi 5.1 http://dev.mysql.com/downloads/connector/odbc/5.1.html
Berikutnya kita akan menginstall MyODBC yang sesuai
jalankan Service MySQL dan dari Control Panel buat koneksi ke MySQL

Setelah itu kita buka VB dan mulailah bercoding…

Public conn As New ADODB.Connection
Public rs As ADODB.Recordset

Private Sub Form_Load()
Set rs = New ADODB.Recordset
serverIP = “127.0.0.1”
username = “aku”
passwd = “apaaja”
db = “dataku”
conn.ConnectionString = “DRIVER={MySQL ODBC 3.51 Driver};SERVER=” & serverIP & “;UID=” & username & “;PWD=” & passwd & “;DATABASE=” & db & “”
conn.Open
rs.Open “SELECT * FROM coba “, conn, adOpenDynamic, adLockOptimistic
End Sub