Cara mudah mengkoneksikan vb6 keMYSQL

Sebelumnya sudah saya tulisakan bagaimana mengkoneksikan vb6 dengan menggunakan database acces, Sekarang 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.Hehehee…emangnya handphone…komunikasi…

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 StringDim db_name As StringDim db_server As StringDim db_port As StringDim db_user As StringDim db_pass As String'//error trapingOn Error GoTo buat_koneksi_Error
'/isi variabledb_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 stringConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"'/buka koneksiWith Conn
    .ConnectionString = ConnString    .OpenEnd 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

saja.

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 form MDIForm_Unload.

If Conn.State = adStateOpen Or Conn.State = adStateConnecting Then   Conn.Close   Set Conn = NothingEnd If

Nah, itu bagian pertama dalam membuat aplikasi Visual Basic 6 dan MySQL, untuk selanjutnya kita akan berdiskusi tentang cara membuka tabel-tabel dengan menggunakan MySQL.

anda juga bisa lihat di sini untuk menambah pengetahuan anda tentang pemrograman dengan visualbasic.

Selamat untuk mencoba...

Jangan lupa tinggalkan jejak anda dipesan komentar untk lebih mempererat hubungan silahturohmi.

Sekian dan terimakasih.

Tweet

Artikel terkait :