Script Koneksi MySQL Dengan Visual Basic 6

Source code berikut untuk mengoneksikan MySQL dengan VB 6. Menggunakan MySQL ODBC 3.51 Driver sebagai penghubung antara VB dan MySQL nya.

Simpan source code berikut di Module :

01 Public Conn As New ADODB.Connection
02
03 Public Sub koneksi()
04 Dim ConnString As String
05 Dim db_name As String
06 Dim db_server As String
07 Dim db_port As String
08 Dim db_user As String
09 Dim db_pass As String
10
11 On Error GoTo buat_koneksi_Error
12
13 db_name = "honorer" 'nama database anda
14 db_server = "localhost" 'server database anda
15 db_port = "3306"
16 db_user = "root" 'username db anda
17 db_pass = "" 'isi jika db anda menggunakan password
18
19 'ganti DRIVER berikut menjadi {MySQL ODBC 5.1 Driver} jika ODBC yang anda gunakan versi  5.1
20 ConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"
21
22 If Conn.State = 1 Then Conn.Close
23 With Conn
24 .ConnectionString = ConnString
25 .Open
26 End With
27
28 On Error GoTo 0
29 Exit Sub
30
31 buat_koneksi_Error:
32 MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan !", vbInformation, "Cek Server"
33 End Sub

Untuk pemanggilannya, gunakan pada setiap event Form_Load

1 Private Sub Form_Load()
2 koneksi
3 End Sub

Jika membutuhkan ADODB Connection, gunakan variabel ‘Conn’ seperti contoh berikut :

1 rsAdo.Open "select * from tabel", Conn

Posted in: MySQL,Visual Basic 6