Beberapa pekan yang lalu banyak yang bertanya kepada saya, dapatkah database My SQL di kelola menggunakan aplikasi berbasis Visual Basic 6.0? Jawabannya tentu saja bisa. MySQL merupakan Salah satu Database Management System (DBMS) yang saat ini banyak digunakan oleh sebagian besar bahasa pemrograman yang kompatibel.
Menghubungkan database MySQL dari Visual Basic 6.0 menggunakan wizard mungkin agak rumit, karena MySQL tidak didukung secara default (seperti SQL Server atau ms.Access). Dengan cara dibawah ini, saya akan menunjukkan script cara menghubungkannya ke database MySQL.
Baik kita langsung saja. Saya asumsikan bahwa Anda sudah belajar tentang dasar-dasar Visual Basic 6.0. Artikel ini hanya akan membahas tentang bagaimana Visual Basic 6.0 dapat berkomunikasi dengan database MySQL.
Buatlah prosedur baru di MDI Form atau di Module dan pastikan kalau di Module, prosedur yang digunakan adalah Public sehingga dapat dipanggil dari form utama atau form yang lainnya.
Berikan nama prosedur yang mewakili dengan koneksi Anda. Misalnya nama prosedurnya adalah buat_koneksi(). Adapun 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
On Error GoTo buat_koneksi_Error '/isi variable
db_name = "databaseku"
db_server = "localhost" 'ganti alamat IP jika berada di komputer lain
db_port = "3306" 'default port adalah 3306 db_user = "root" 'sebaiknya pakai username yang 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 (atau form dimana Anda mau memulai koneksi Anda) dengan mengetik :
call buka_koneksiatau
buka_koneksi saja.
Dan jangan lupa untuk membuat object Conn terlebih dahulu dan biasanya variable Conn ini dibuat secara Public sehingga bisa dipanggil dimana saja. Biasaya saya buat disuatu Module yang isinya adalah koleksi dari 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 Visual Basic 6.0 ke MySQL. Biasanya prosedur tutup koneksi ini saya taruh di blok MDIForm_Unload.
If Conn.State = adStateOpen Or Conn.State = adStateConnecting Then Conn.Close Set Conn = Nothing End If
0 Response to "Cara Mudah Koneksi Visual Basic 6.0 Ke Database MySQL (Multi User)"
Posting Komentar