Koneksi VB 6.0 dengan MySQL

Assalamu’alaikum wr. wb.
Dalam pembuatan software aplikasi, salah satu hal yang mendasar adalah mengoneksikan aplikasi tersebut terhadap database. Berikut cara mengoneksikan aplikasi yang dibuat dengan menggunakan Microsoft Visual Basic 6.0 dengan database MySQL. Kali ini MySQL yang saya gunakan adalah MySQL bawaan XAMPP versi 1.8.2.

1. Bahan yang perlu dipersiapkan adalah:

a. Software Microsoft Visual Basic 6.0

b. XAMPP versi 1.8.2

c. MySQL Connector ODBC Driver 3.5.1

2. Pastikan komputer anda sudah terinstal 3 Software di atas. Jika belum, instal terlebih dahulu.
3. Pastikan Apache dan MySQL sudah running seperti berikut:

4. Tambahkan database dengan nama CobaSQL.
5. Buatlah tabel dengan nama “t_user” dengan field “nmuser” type varchar panjang 20.
6. Buatlah ODBC dengan nama MySQL. Jika belum paham, silakan buka disini.
7. Buatlah project baru pada Microsoft Visual Basic.

8. Tambahkan referensi pada project baru anda dengan cara:

Project -> References -> pilih Microsoft Activex Data Objects 2.8 Library.

9. Tambahkan sebuah modul kemudian tambahkan script berikut ini:

Option Explicit
Public conn As Connection
Public rs As Recordset
Public sql As String

Function OpenConnMysql()
Set conn = New Connection
conn.CursorLocation = adUseClient
conn.Open “PROVIDER=MSDASQL;Mode=ReadWrite;dsn=MySQL;uid=root;pwd=;database=CobaSQL;”
End Function

Function Query()
Set rs = New Recordset
rs.Open sql, conn, adOpenStatic, adLockOptimistic
End Function

Function CloseConnMySQL()
conn.Close
Set conn = Nothing
End Function

10.Kemudian tambahkan script berikut pada Form1:

Private Sub Form_Load()
OpenConnMysql
sql = “select*from t_user”
Query
MsgBox “Nama user adalah:” & rs.Fields(“nmuser”)
CloseConnMySQL
End Sub

11.Jalankan program.