Koneksi VB ke database MySql

Met pagi sobat blogger, ne aq cuman mw share script koneksi vb ke mysql ja, ya dari pada nganggur iseng2 aq share ja.....

y siapa tahu ja bermanfaat...

sebelumnya kita buat modul dulu, bisa kan buat modul, biar nanti scriptnya bisa di akses di semua form, nah setelah itu ketikkan script di bawah, jika males ngetik ya copas ja.. hehehe

Public Conn                 As New ADODB.Connection


Private Sub buat_koneksi()
Dim ConnString As String
Dim db_name As String
Dim db_server As String
Dim db_port As String
Dim db_user As String
Dim db_pass As String


On Error GoTo buat_koneksi_Error



'/isi variable

db_name = "databaseku"   'nama database
db_server = "localhost"      'nama server kalo menggunakan komputer sendiri defaultya local host
db_port = "3306"              'default port is 3306
db_user = "root"                'sebaiknya pakai username lain.
db_pass = ""                     'password


'/buat connection string

ConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"


'/buka koneksi

 With Conn
    .ConnectionString = ConnString
    .Open
End With
On Error GoTo 0
Exit Sub

buat_koneksi_Error:
    MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan !", vbInformation, "Cek Server"
End Sub

ya itu tadi scriptnya, pemanggilannya sama saja seperti koneksi ke access, bagi temen2 yang kurang mengerti bisa di tanyakan melalui komentar temen2...