Koneksi Database Dengan VB 6 Ke MySQL

Koneksi Database Dengan VB 6 Ke MySQL Dengan VB 6 Ke MySQL – Pada kesempatan yang lalu saya sudah memberikan informasi mengenai Koneksi Database Pada VB namun artikel disana adalah menggunakan database access.Pada kesempatan kali ini saya mencoba memberikan contoh  Dengan VB 6 Ke MySQL.Sedikit lebih rumit namun semoga teman – teman dapat memahami mengenai contoh  6 Ke MySQL.

Saya akan menulis tentang bagaimana aplikasi Visual Basic 6 teman – teman terkoneksi dengan MySQL. Saya beranggapan teman – teman sudah belajar tentang dasar-dasar Visual Basic 6. Artikel ini hanya akan membahas tentang bagaimana Visual Basic 6 dapat berkomunikasi aplikasi database MySQL.

Nah,bagaimana caranya untuk  6 Ke MySQL ??

Buatlah prosedur baru pada form teman – teman atau pada Module pastikan jika di Module, prosedur anda adalah Public sehingga dapat dipanggil dari form utama teman – teman. Berikan nama prosedur itu yang mewakili dengan koneksi anda. Misalnya, buat koneksi.

Prosedur Koneksi Database 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 diatas teman – teman cukup panggil di form dengan mengetik call buka_koneksi atau
buka_koneksi saja,namun 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

Mungkin sekian dulu sedikit artikel saya mengenai Koneksi Database Dengan VB ini,semoga teman – teman dapat memahami dan mengerti mengenai artikel saya mengenai .

KASIH RATE YUK!
4 5
Oleh


4 comments on “Koneksi Database Dengan VB 6 Ke MySQL

  1. untuk sintak atau kode2 sqlnya berpengaruh ngak… saya ingin impor database mysql ke acces ntar aplikasi vbnya dan acces kita burn di cd sebagai preview aplikasi VB sebenanrnya yg databasenya mysql. untuk itu apa hanya perlu ganti databse koneksinya trus masalah format data tanggal di acces dan myql yang berbeda bagaimana penyelesaiannya

     

Leave a Reply

Your email address will not be published. Required fields are marked *