rizaarifudin[dot]com

Berbagi ilmu, pengalaman, tips dan trik, software

You are here: » Koneksi VB dan MySQL tanpa MyODBC

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).

Koneksi VB dan MySQL

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

Posted by 6 Responses
 

Free Email Newsletter

Stay Updates with this Blog. Get Free email newsletter updates..

And then confirm your email subcription

   

6 Comments to “Koneksi VB dan MySQL tanpa MyODBC”

  1. ahmed ghufron says:

    wah membantu banget tutosial ini,selamat mas

  2. ahmed ghufron says:

    maksudnya tutorial ini,wah salah ketik

  3. Semot Ireng says:

    Wah.. 🙂 mantapp2 artikelnya.., aq lg butuh buat koneksi ke Mysql.., klo bs., tlong kasih contoh yg pake datagrid dunk bozz.. 😉

  4. riza says:

    Terima kasih sudah berkunjung. sementara baru sedikit yang bisa saya posting. lainnya menyusul

  5. Athallah says:

    kalo binding ke datacombo dan datagrid knp error ya ? thx

  6. Papih says:

    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..

Leave your comment here:

*

May
18
2011
 
Archives
Chat
Name:
Email:
For:  
Mail will not be published
(but it's required)