Koneksi VB 6.0 dengan MySQL Server

Cara koneksi visual basic 6.0 dengan mySQL server dengan menggunakan ODBC mySQL 5.1 langkah pertama adalah menentukan koneksi di visual basic, sebagai contoh kita menggunakan ADODB dan Connection String.
Sebelum kita melakukan koding(membuat source code) kita harus mempersiapkan bahannya yakni, MySQL ODBC 5.1 dan MySQL server. setelah semua di install baru kita melakukan koneksi di kodingnya.
langsung saja saya sisipkan contoh koneksinya;

Public Cn As New ADODB.Connection
    With Cn
        If .State = adStateOpen Then Exit Sub
        .CursorLocation = adUseClient
        .ConnectionString = "Driver={MySQL ODBC 5.1 Driver};SERVER=localhost;PWD=123;UID=root;PORT=3306;DATABASE=test;"
        .Open
        If Cn.State = adStateOpen Then
         MsgBox "Koneksi ke database Berhasil !",vbInformation,"Informasi" 
        Else
            MsgBox "Koneksi ke database error", vbCritical, "Validasi"
        End If
    End With

Untuk tulisan yang berwarna merah di ganti sesuai dengan instalasi MySQL server yang terinstall.
localhost merupakan nama server atau nama komputer dimana MySQL di install, 123 merupakan password yang di berikan ketika instalasi MySQL atau pasword root MySQL, untuk tulisan test yang erwarna merah merupakan nama database di MySQL.

semoga bermanfaat.

Tweet