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”.
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
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
Sign up here with your email
6 comments
Write commentswah sangat bermanfaat artikelnya, namun alangkah baiknya menyertakan gambar :)
Replymau tanya dongg bantu pencerahannya,
Replyaku ada tugas buat aplikasi penjualan pake VB Database nya MYSQL, aku dah koneksi kan seperti cara yang diatas, cuman pas buat form 1 untuk login, ketika kita masukan data terjadi sintak eror. itu kenapa yaa? mohon pencerahannya yaaa :)
terima kasih
Mantep
Replymatur tengkiyu artikelnya mbak
Replytempeletenya juga keren
artikel yg bagus
Replyditunggu kunjungan baliknya gan
carakuvb6.blogspot.com
ConversionConversion EmoticonEmoticon