Koneksi Visual basic 6 ke My SQL

Sesuai janji saya di artikel ini, saya akan menulis tentang bagaimana aplikasi Visual Basic 6 anda terkoneksi dengan MySQL. Saya beranggapan anda sudah belajar tentang dasar-dasar Visual Basic 6. Artikel ini hanya akan membahas tentang bagaimana Visual Basic 6 dapat berkomunikasi aplikasi database 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 buka_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 blok MDIForm_Unload.
 
If Conn.State = adStateOpen Or Conn.State = adStateConnecting Then
Conn.Close
Set Conn = Nothing
End If
 
Nah, itu bagian pertama dalam membuat aplikasi Visual Basic 6 dan MySQL,
untuk selanjutnya kita akan berdiskusi tentang cara membuka tabel-tabel
yang ada di MySQL. 
 

Postingan terkait:

Belum ada tanggapan untuk "Koneksi Visual basic 6 ke My SQL"

Post a Comment