Koneksi VB dan MySQL tanpa MyODBC
Koneksi VB dan MySQL tanpa MyODBC >>
Koneksi VB dan MySQL merupakan salah satu hal yang cukup penting dalam pemrograman database. Untuk mengkoneksi VB dan MySQL tanpa menggunakan MyODBC dalam tulisan ini adalah dengan menggunakan koneksi VBMySQLDirect, yang filenya dapat didownload dari halaman download pada blog ini. Setelah itu Ekstrak filenya dan klik VBMySQLDirect_Setup.exe.
Langkah berikutnya untuk koneksi VB dan MySQL yaitu buka VB project baru, kemudian tambahkan VbMySQLDirect pada Referensi program yaitu dengan Klik (Project->References->VbMySQLDirect 1.0).
Selanjutnya buat form baru seperti pada gambar diatas:
Source:
Dim koneksi As New MYSQL_CONNECTION Dim rs As New MYSQL_RS Dim a As Integer Private Sub CmdAwal_Click() If Not rs.BOF Then rs.MovePrevious txtAname.Text = rs.Fields("Aname") txtSex.Text = rs.Fields("Sex") TxtType.Text = rs.Fields("Type") TxtCountry.Text = rs.Fields("Country") TxtYear.Text = rs.Fields("YearOfBirth") TxtCnum.Text = rs.Fields("Cnum") Else pesan = MsgBox("Data Sudah Paling Awal", vbOKOnly, "Peringatan") End If End Sub Private Sub CmdLanjut_Click() If Not rs.EOF Then rs.MoveNext txtAname.Text = rs.Fields("Aname") txtSex.Text = rs.Fields("Sex") TxtType.Text = rs.Fields("Type") TxtCountry.Text = rs.Fields("Country") TxtYear.Text = rs.Fields("YearOfBirth") TxtCnum.Text = rs.Fields("Cnum") Else pesan = MsgBox("Data Sudah Habis", vbOKOnly, "Peringatan") End If End Sub Private Sub cmdLihat_Click() rs.CloseRecordset rs.OpenRs "select * from theanimals", koneksi rs.MoveFirst txtAname.Text = rs.Fields("Aname") txtSex.Text = rs.Fields("Sex") TxtType.Text = rs.Fields("Type") TxtCountry.Text = rs.Fields("Country") TxtYear.Text = rs.Fields("YearOfBirth") TxtCnum.Text = rs.Fields("Cnum") End Sub Private Sub Form_Load() koneksi.OpenConnection "localhost", "root", "root", "dbzoo", 3306 End Sub
Sebelum membuat program koneksi vb dan mysql terlebih dahulu membuat database, table dan isinya yang bisa di lihat pada posting link1 dan link2
Selamat Mencoba.
Download file contohnya di Sini
Free Email Newsletter
And then confirm your email subcription
6 Comments to “Koneksi VB dan MySQL tanpa MyODBC”
wah membantu banget tutosial ini,selamat mas
maksudnya tutorial ini,wah salah ketik
Wah.. 🙂 mantapp2 artikelnya.., aq lg butuh buat koneksi ke Mysql.., klo bs., tlong kasih contoh yg pake datagrid dunk bozz.. 😉
Terima kasih sudah berkunjung. sementara baru sedikit yang bisa saya posting. lainnya menyusul
kalo binding ke datacombo dan datagrid knp error ya ? thx
kalo koneknya kekomputer sebelah ko ga mau ya muncul bugnya
Host “Comp Name” is not allowed to connect to this MySQL server
Mohon pencerahannya ga..