Koneksi ke Database MySql ( VB-MySql )

Untuk membuat program Database dengan menggunakan MySql, disini saya menggunakan program tambahan, yaitu :

1.  Appserv-win32-2.4.2, yaitu aplikasi yang akan kita gunakan sebagai server dan Database pada program yang kita buat.
2. MyVbQL.dll dan libmySQL.dll, yaitu file dynamic link library  yang akan membantu program yang kita buat terhubung dengan MySql Database.

Untuk itu, sebelum melangkah kepembuatan program, ada beberapa langkah dasar
yang perlu kita lakukan :

1. Install aplikasi appserv-win32-2.4.2 di computer kerja kita. Appserv-win32-2.4.2 merupakan aplikasi terpadu dimana didalamnya terdapat MySql Databse dan Apache Server yang kita butuhkan dalam pembuatan program ini (Lihat Gambar 01). 
2.  Letakan file MyVbQL.dll dan libmySQL.dll di C:\WINDOWS\system32 kemudian registrasikan dengan perintah regsvr32 C:\WINDOWS\system32\ MyVbQL.dll dan C:\WINDOWS\system32\ libmySQL.dll dengan menggunakan Command Prompt (Lihat Gambar 02).

Gambar 01

Gambar 02

Setelah kedua langkah di atas berhasil dilakukan, baru kita mulai pada pembuatan program. Langkah pertama yang dilakukan tentunya kita buka dahulu aplikasi Visual Basic di computer kerja kita, kemudian  pilih File > New Project > Standard EXE. 

Gambar 03

Agar MyVbQL.dll dapat digunakan, maka MyVbQL.dll mesti terdaftar di Visual Basic, caranya pilih menu project > references, kemudian pilih Browse dan cari file MyVbQL.dll kemudian pilih Ok. Kita lihat terdapat MySql Visual Basic API v2.0.0 dalam daftar Available References, dan pastikan kotak di sebelahnya dalam keadaan dicentang, lalu pilih Ok.

Gambar 04

Langkah selanjutnya adalah membangun form. Buat satu Label dan tiga Commandbutton, kemudian atur propertinya sesuai dengan daftar di bawah :

       Tabel Properti

Keterangan	Name	Caption	StarUpPotition
Form	KoneksiFrm	Koneksi Database MySql	2 - CenterScreen
Label	StatusLbl	Label Status
Comandbutton	BkKoneksiCmd	Buka
	TtpKoneksiCmd	Tutup
	SelesaiCmd	Selesai

Gambar 05

 

Setelah selesai, double click form dan kita akan dibawa ke layar pengkodean. Kemudian isikan kode (syntak) di bawah ini:

Option Explicit

Public Koneksi  As MYSQL_CONNECTION

Private Sub Form_Load()

StatusLbl.Caption = "Database tidak terhubung.."

TtpKoneksiCmd.Enabled = False

End Sub

Private Sub BkKoneksiCmd_Click()

Set koneksi = New MYSQL_CONNECTION

koneksi.OpenConnection "", "", "", ""

If koneksi.State = MY_CONN_OPEN Then

StatusLbl.Caption = "Database terhubung.."

BkKoneksiCmd.Enabled = False

TtpKoneksiCmd.Enabled = True

End If

End Sub

Private Sub TtpKoneksiCmd_Click()

koneksi.CloseConnection

If koneksi.State = MY_CONN_CLOSED Then

StatusLbl.Caption = "Database tidak terhubung.."

BkKoneksiCmd.Enabled = True

TtpKoneksiCmd.Enabled = False

End If

End Sub

Private Sub SelesaiCmd_Click()

Unload Me

End Sub

Sampai disini, langkah pembuatan program kita selesai. Save dulu program yang telah kita buat kemudian lakukan uji coba dengan menekan tombol F5 pada keyboard. Selamat mencoba… :-D

Contoh kode program download disini.
aplikasi appserv-win32-2.4.2 download disini.