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

Leave your comment here:

Click here to cancel reply.

Name (required)

Mail (will not be published) (required)

Website (Optional)

Subscribe to comments feed

Δ

CAPTCHA Code *