Koneksi database MySQL dengan VB

Buat database  : perpustakaan
Buat tabel : anggota

 Desain Form

Untuk koneksi ke database MySQL menggunakan object ADODB. Sebelumnya aktifkan dulu ADODB nya. Caranya Klik Menu Project - References.. lalu ceklis Microsoft ActiveX Data Object 2.6 Library.

Kemudian ketik coding koneksi berikut ini di Module

Public con As New ADODB.Connection
Public rs As New ADODB.Recordset

Public Sub koneksi()
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset

con.Open "Driver={MySQL ODBC 3.51 Driver};server=localhost;database=perpustakaan; uid=root;pwd =password"

con.CursorLocation = adUseClient
End Sub


Untuk menampilkan record tabel ke DataGrid, coding nya :
Private Sub Form_Load()
Call koneksi
If rs.State Then rs.Close
rs.Open "select * from anggota", con
Set DataGrid1.DataSource = rs
End Sub

Penjelasan:
Coding di Modul
Variabel con digunakan sebagai objek untuk koneksi ke database
Variabel rs digunakan sebagai objek untuk koneksi ke tabel
Nama variabel bebas tapi ada aturan mainnya (masih inget kan??)
Untuk koneksi ke database MySQL dibutuhkan driver dan penulis menggunakan MYSQL ODBC 3.51 yang harus diinstal terebih dahulu.
uid=user id; dan pwd =password untuk masuk ke phpMyAdmin. Untuk user nya "root" dan passwordnya disesuaikan.
CursorLocation=adUseClient --> meletakkan kursor ke database Client

Coding di Form_Load
Call koneksi = memanggil sub koneksi
If rs.State =jika tabel dalam kondisi diam tidak ada aksi ataupun sedang terbuka
then rs.Close= maka tabel akan tertutup
rs.Open "select * from anggota",con = menampilkan seluruh record yang ada di tabel anggota

Set DataGrid1.DataSource = rs --> menampilkan ke DataGrid

Untuk contoh lengkapnya silakan download Form Anggota