Koneksi VB6 dengan MySQL Database

Untuk koneksi VB6 dengan database MySQL ada dua cara yang bisa kita lakukan yaitu menggunakan ODBC atau secara langsung (Direct).

Saya akan mencoba menguraikan koneksidengan ODBC dan secara langsung

A. DENGAN ODBC

1. kita harus menginstalkan MySQL ODBC 3.51 yang dapat kita download secara gratis di www.mysql.com/downloads, sehingga pada ODBC akan muncul seperti berikut

2. Langkah selanjutnya seting ODBC dengan contoh seperti gambar di bawah

3. Pada VB6 jangan lupa tambahkan refersensi tambahkan Microsoft ActiveX Data Objects 2.5 Library

4. pada modul tuliskan listing seperti berikut

Option Explicit

Global db As Connection

Global Con1, Con2, Con3, Con4 As Recordset

Global TDsn, TUser, TPass As String

5. pada form login tuliskan listing program seperti berikut

Misalkan nama ODBC nya MySQL

On Error GoTo eh

Set db = New Connection

db.CursorLocation = adUseClient

db.Open "PROVIDER=MSDASQL;Mode=ReadWrite;dsn=MySQL;uid=” & txtUser.text & ”;pwd=” & txtPassword.text & ”;database=” & txtDB.text & ”;"

Exit Sub

eh:

End

6. untuk melakukan Query (Select,Insert,Update, delete dll) contohnya sebagai berikut

Set Con1 = New Recordset

Con1.Open "select nokapst,nokk,nopen,nmpst from askeskin limit 0,100000;", db, adOpenStatic, adLockOptimistic

B. SECARA LANGSUNG (DIRECT)

Dengan cara ini kita tidak usah mengsintalkan MySQL ODBC atau mengkonfigurasi ODBC tapi kita harus memiliki file dll yaitu VBMySQLDirect.dll dan libmySQL.dll, yang bisa di Downloads DISINI

Caranya

1.Copykan ke dua file tersebut pada

2. instalkan kedua file tersebut dengan perintah regsvr32, seperti contoh berikut

2.Tambahkan  referensi VB MySQL Direct V 1.0pada VB

3.Tuliskan listing program pada modul

Option Explicit

Global gCnn As MYSQL_CONNECTION

Global pRs As MYSQL_RS

Global SQL As String

4. pada form login, tuliskan listing

Set gCnn = New MYSQL_CONNECTION

gCnn.OpenConnection txtHost, txtUserName, txtPassword, cmbDatabase

5. untuk query (Select, Insert, Update, dlete dll) cara penulisannya seperti contoh berikut

Set pRs = New MYSQL_RS

SQL = "select nokapst,nokk,nopen,nmpst from askeskin limit 0,100000"

pRs.OpenRs SQL, gCnn

Mana yang lebih cepat menggunakan ODBC atau secara langsung ? menurut yang saya baca di internet, katanya secara langsung lebih cepat dari pada menggunakan ODBC, tetapi setelah saya lakukan eksperimen untuk membaca dan menuliskannya ke listview dengan membaca 100.000 record, didapat hasil seperti berikut :

Menggunakan ODBC

Secara langsung (Direct)

Dengan ODBC diperlukan waktu 6 detik sedangkan secara langsung memerlukan waktu 2 menit 31 detik. Mana yang akan kita pilih ? yang jelas bila print out nya menggunakan Crystal Report 8.5 yang bisa dipakai yaitu yang menggunakan ODBC