Cara mudah bikin koneksi MySql ke visual basic pake ODBC

Ternyata lumayan gampang juga bikin koneksi mySql ke visual basic. Hehem,,
Kesempatan buat posting ini …
Nah, berikut langkah-langkahnya :
1. Download dan Install ODBC connector di PC milik anda sendiri.
2. Usahakan sudah membuat database yang akan dikoneksikan ke vibi.
3. Aktifkan xampp
4. Buka ODBC connector. Bisa lewat control panel-administratif tools, atau jika OS kita windows 7, kita search aja lewat start menu “administrative tools atau ODBC data source”.

5. Lalu pada window ODBC data source administrator. Kita pilih tab System DSN. Klik Add untuk menambah data source.

Klik finish.

Isikan data sebagai berikut :

Klik tombol test untuk memeriksa apakah connection sudah sukses apa belum. Kemudian klik Ok.
6. Selanjutnya buka Microsoft visual basic.
7. Pada tab menu project pilih references, centang pada Microsoft ActiveData Object recordset 2.8 library, Microsoft ActiveData Object 6.0 library atau pilih versi terbaru.
8. Setelah itu klik Ok,, buka lagi tab menu project pada vibi kemudian add module terus open.
Kemudian isikan prosedur baru di Module. dan pastikan  prosedur anda adalah Public sehingga dapat dipanggil dari form utama anda. Berikan nama prosedur koneksi anda. Misalkan buat_koneksi.

Dan berikut isi prosedurnya :

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Public 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
'//error traping
On Error GoTo buat_koneksi_Error
'/isi variable
db_name = "latihan"
db_server = "localhost" 'ganti jika server anda ada di komputer lain
db_port = "3306" 'default port is 3306
db_user = "root" 'sebaiknya pakai username lain.
db_pass = ""
'/buat connection string
ConnString = "DRIVER={MySQL ODBC 5.1 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
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

10. Dan ingat pada prosedur diatas, jangan lupa mengubah bagian pada :

db_name = "latihan"
db_server = "localhost" 'ganti jika server anda ada di komputer lain
db_port = "3306" 'default port is 3306
db_user = "root" 'sebaiknya pakai username lain.
db_pass = "" //jika tak pake pasword

isi sesuai dengan milik anda.
Dan jangan lupa periksa MySql ODBC nya, apakah anda menggunakan ODBC 5.1 driver atau ODBC 3.51 driver atau versi yang lainnya.

11. Kemudian untuk memanggil prosedur itu, kita panggil melalui form utama kita yaitu di form load (atau form dimana anda mau memulai koneksi anda) dengan mengetik :

Private Sub Form_Load()
buat_koneksi
End Sub

Pokoknya sesuai dengan nama prosedur yang telah dibuat di project module.

12. Lalu jangan lupa untuk membuat object Conn dulu dan buatlah variable Conn menjadi Public sehingga bisa dipanggil dari mana saja. Dan dibuat di project module ditaruh paling atas sendiri. yang isinya adalah koleksi public. Yaitu seperti ini :

Public Conn As New ADODB.Connection


13. Selanjutnya, seperti biasa ketika kita menutup aplikasi, kita harus menutup dulu koneksi kita ke MySql. Untuk menutup koneksi ini, kita taruh prosedur berikut di form utama bukan pada module. Seperti berikut :

Private Sub Form_Unload(Cancel As Integer)
If Conn.State = adStateOpen Or Conn.State = adStateConnecting Then
Conn.Close
Set Conn = Nothing
End If
End Sub


14. Nah setelah itu coba lakukan Run .. jika tidak ada peringatan eror maka koneksi sudah sukses. Jika masih ada peringatan  masih eror silahkan konsultasikan kepada yang lebih pintar.. ahaha :D

referensi dari http://edisusanto.com

• Tweet
• Share
• Share
• Share
• Share

Sign up here with your email