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 trapingOn Error GoTo buat_koneksi_Error '/isi variabledb_name = "databaseku" db_server = "localhost" 'ganti jika server anda ada di komputer laindb_port = "3306" 'default port is 3306db_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 .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
call buka_koneksibuka_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
If Conn.State = adStateOpen Or Conn.State = adStateConnecting Then Conn.Close Set Conn = Nothing End If
Share On
No comments:
Post a Comment
Silahkan masukkan komentar sobat, komentar sobat sangat berarti buat saya