Prosedure Koneksi Ms. Visual Basic 6.0 with MySQL

Buatlah prosedur baru di form MDI anda atau di Module (dan pastikan kalau di Module, prosedur anda adalah Public sehingga dapat dipanggil dari form utama anda). Berikan nama prosedur itu yang mewakili dengan koneksi anda. Misalnya, buat koneksi.
Prosedur yang saya buat adalah sebagai berikut:

Private Sub buat_koneksi()
Dim ConnString As String
Dim db_name As String
Dim db_server As String
Dim db_port As String
Dim db_user As String
Dim db_pass As String
'//error traping
On Error GoTo buat_koneksi_Error
'/isi variable
db_name = "databaseku"
db_server = "localhost" 'ganti jika server anda ada di komputer lain
db_port = "3306"    'default port is 3306
db_user = "root"    'sebaiknya pakai username lain.
db_pass = "password_anda"
'/buat connection string
ConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"
'/buka koneksi
With Conn
    .ConnectionString = ConnString
    .Open
End With
'___________________________________________________________
On Error GoTo 0
Exit Sub
 
buat_koneksi_Error:
    MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan !", vbInformation, "Cek Server"
End Sub

Untuk memanggil prosedur itu, cukup panggil di form utama anda (atau form dimana anda mau memulai koneksi anda) dengan mengetik

call buat_koneksi ATAU buka_koneksi


Dan jangan lupa untuk membuat object Conn dulu dan biasanya variable Conn ini dibuat secara Public sehingga bisa dipanggil dimana saja. Biasaya saya buat disuatu Module yang isinya adalah koleksi variable Public. Nyatakan variable tersebut dengan menuliskan:
Public Conn                 As New ADODB.Connection


Dan seperti biasa, ketika anda menutup aplikasi, anda harus menutup dulu koneksi anda ke MySQL. Biasanya prosedur tutup koneksi ini saya taruh di blokMDIForm_Unload.
If Conn.State = adStateOpen Or Conn.State = adStateConnecting Then
   Conn.Close
   Set Conn = Nothing
End If

Mengkombinasikan Ms. Visual Basic 6.0 dengan MySQL (ADBW Part 1)

MySQL adalah salah satu aplikasi database server yang sudah tidak asing lagi didunia pemrograman web. Hebatnya lagi MySQL adalah produk open source yang terus dikembangkan oleh MySQL AB. Memang sih, ada produk yang enterprise. Tetapi untuk kebutuhan saya sebagai programmer, MySQL sudah dapat diandalkan. Selain gratis juga sangat reliable. :)

Selama ini saya selalu mengkombinasikan antara Visual Basic 6 atau Visual Basic 2005 dengan MySQL. Sebelum MySQL versi 5 memang anda tidak akan menjumpai yang namanya View (Virtual Table), Stored Procedure dan Triggers. Tetapi setelah MySQL 5, semua ‘syarat’ untuk menjadi RDMS database server sudah ada semua.

MySQL sebetulnya lebih dikenal didunia programming web, karena biasanya jika anda memakai CMS (Content Management System) sudah hampir dipastikan pasti anda berhubungan dengan MySQL. Bahkan konon, MySQL pun dipakai oleh Yahoo Finance dan tentu hal itu bisa sedikit menenangkan kita sebagai programmer karena sudah terbukti ketahanannya.

OK, kembali lagi antara kombinasi antara Visual Basic 6 dengan MySQL. Kenapa masih pakai Visual Basic 6.0. Karena compile time nya secepat kilat, debugging nya masih simpel-simpel aja, karena jarang memakai library-library yang ada di framework-nya .NET ya jadi semakin malas aja memakai VB 6 keatas. Memang jika dibandingkan dengan Microsoft SQL, MySQL ini kalah dukungan, maklum satu pabrik antara Visual Basic dan Microsoft SQL. Dengan Microsoft SQL, connectornya pun sudah tidak perlu pakai ODBC yang katanya lambat itu, connectornya sudah tersedia dan bisa langsung akses melalui OLEDB ngga perlu muter ke ODBC dulu.

Sebetulnya kalau kita ingin aplikasi database server yang gratis sih ada beberapa pilihan, yaitu: MySQL, PostgreSQL, Microsoft SQL Server Express Edition, dan Oracle 10g. Tapi orang biasa memilih MySQL atau PostgreSQL yang karena open source jadi alat bantunya banyak yang mengembangkan.

Kembali ke MySQL, Jika anda memang berniat untuk memakainya untuk programming dengan Visual Basic 6.0, langkah pertama yang perlu anda download adalah:

1.  MySQL Server. (Aplikasi Database Servernya.)

2.  MySQL ODBC Connector. (Konektor untuk Visual Basic 6 anda dan MySQL Server-nya.)

3. MySQL GUI Administrator dan Query Browser. (Ini adalah alat untuk mengatur dan meng-query database server anda.)