Monday, January 10, 2011

Koneksi MySqL dengan Visual Basic 6.0

Koneksi MySqL dengan Visual Basic 6.0 menggunakan mysql-connector-odbc 5.1.5, langkah pertama download mysql-connector-odbc 5.1.5 bagi yang belum punya !, yang kedua buat sebuah modul dan ketikan kode berikut :

Option Explicit
Global strCon As New ADODB.Connection

Public Sub BUKA_DATABASE()
On Error GoTo err
Set strCon = New ADODB.Connection
Dim StrString As String
Dim ser, user, pass, db, soc, pro As String
ser = "nama server anda"
db = "nama database"
user = "username"
pass = "password"

StrString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & ser & ";DATABASE=" & db & ";UID=" & user & ";PWD=" & pass & ";port=3306;OPTION=2105"
strCon.Open StrString
strCon.CursorLocation = adUseClient
Exit Sub
err:
MsgBox "Sistem belum terhubung ke server..!", vbOKOnly + vbInformation, "Administrator"
End Sub

untuk membuka koneksinya anda tinggal panggil nama prosedurnya
BUKA_DATABASE  di setiap ada koneksi

1 comments:

klu database kita di web hosting, cara koneksi ya gimana ya....

Share

Twitter Delicious Facebook Digg Stumbleupon Favorites More