Sharing With Passion

May 25, 2011

Posted by Sabar Santoso in , | May 25, 2011 No comments
Saya beranggapan bahwa 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 laindb_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 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
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 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.

0 comments:

Post a Comment

Silahkan Isi Komentar Anda :

Search

Bookmark Us

Delicious Digg Facebook Favorites More Stumbleupon Twitter