Script Koneksi Mysql dengan Visual Basic

[ SCRIPT ]

 Koneksi menggukana Pemesanan Deklarasi (Public) ;

Public Sub buka_db()

On Error GoTo ErrKoneksi

server = "localhost" 'untuk nama servernya sesuaikan dengan akun anda

port = "3306" 'port yang terbuka untuk situs hosting freemysql.net

database = "db_library" 'sesuaikan dengan database anda

username = "root" 'sesuaikan dengan username anda

password = "dcc2011" 'sesuaikan dengan password anda

Set connect = New ADODB.Connection

connect.ConnectionTimeout = 1

connect.CursorLocation = adUseClient

connect.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=" & server _

& ";Port=" & port & ";Database=" & database & ";User=" & username & ";Password=" _

& password & ";Option=3;"

connect.Open

Exit Sub

ErrKoneksi:

    MsgBox "Koneksi Database Error..! Check Koneksi Jaringan", vbCritical, "Program Aplication"

End

End Sub

Keterangan : download file tutorialnya disini.. :D)

Posted in: Programming,Visual Basic