Membuat Koneksi Database VB6 dengan mySql

Agustus 17, 2015

Database yang sering digunakan dalam sebuah aplikasi berbasis desktop maupun berbasis web adalah mySql yang diakses di localhost. Keuntungan menggunakan mySql adalah lebih ringan dan aplikasi berbasis desktop bisa digunakan sebagai Client server. Berikut adalah contoh koneksi antara VB6 dengan mySql :

1. Pastikan PC sudah terinstall XAMPP/WAMP dan mySql connector (ODBC).
2. Buat sebuah database di localhost/phpmyadmin dengan nama "dbMurid" dan sebuah tabel dengan nama "murid" kemudian isi data-datanya.

3. Buka VB6 kemudian buat projek baru, tambahkan 1 form. Dalam form kita masukkan grid data atau Ms flexigrid. disini saya memakai MSFelexi grid dengan nama gridSiswa.

4. Untuk menghubungkan form dengan modul gunakan koding.

Private Sub Form_Load()
Call BukaDatabase
Call TampilGridSiswa
End Sub

'Call BukaDatabase' untuk memanggil class/sub koneksi yang ada dalam modul.

5. Untuk membuat tampilan data di Flexi grid, gunakan coding

Sub TampilGridSiswa()
    Dim Baris As Integer
    gridSiswa.Clear
    Call AktifgridSiswa

    gridSiswa.Rows = 2
    Baris = 0

    Set rsSiswa = New ADODB.Recordset
rsSiswa.Open " SELECT * FROM murid " _
    , KonekDb, adOpenDynamic, adLockBatchOptimistic
    If rsSiswa.BOF Then

        Exit Sub
    Else
        With rsSiswa
        .MoveFirst
        Do While Not .EOF
            Baris = Baris + 1
            gridSiswa.Rows = Baris + 1
            gridSiswa.TextMatrix(Baris, 0) = !kode
            gridSiswa.TextMatrix(Baris, 1) = !nama
            gridSiswa.TextMatrix(Baris, 2) = !alamat
            gridSiswa.TextMatrix(Baris, 3) = !kelas
        .MoveNext
        Loop
        rsSiswa.MoveLast
        End With
    End If
End Sub
Sub AktifgridSiswa()
    With gridSiswa
        .Cols = 5

        .RowHeightMin = 300
        .Col = 0
        .Row = 0
        .Text = "KODE"
        .CellFontBold = True
        .ColWidth(0) = 1300
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter

        .Col = 1
        .Row = 0
        .Text = "NAMA"
        .CellFontBold = True
        .ColWidth(1) = 1700
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter

        .Col = 2
        .Row = 0
        .Text = "ALAMAT"
        .CellFontBold = True
        .ColWidth(2) = 1700
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter

        .Col = 3
        .Row = 0
        .Text = "KELAS"
        .CellFontBold = True
        .ColWidth(3) = 1000
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter


    End With
End Sub

4. Tambahkan sebuah modul, kemudian masukkan kodeng berikut.

Option Explicit
Public KonekDb As New ADODB.Connection

Sub BukaDatabase()
    Dim strSS, strPort, strDB, strUID, strPWD As String
            strSS = "localhost"
            strPort = "3306"
            strDB = "dbMurid"
            strUID = "root"
            strPWD = ""
    Set KonekDb = New ADODB.Connection
    KonekDb.CursorLocation = adUseClient
KonekDb.ConnectionString = "" _
        & "DRIVER={MYSQL ODBC 3.51 Driver};" _
        & "SERVER=" & strSS & ";" _
        & "DATABASE=" & strDB & ";" _
        & "UID=" & strUID & ";" _
        & "PWD=" & strPWD & ";" _
        & "OPTION="
    On Error Resume Next
    If KonekDb.State = adStateOpen Then
        KonekDb.Close
        Set KonekDb = New ADODB.Connection
        KonekDb.Open
    Else
        KonekDb.Open
    End If
    If Err.Number <> 0 Then
        MsgBox "GAGAL KONEKSI SERVER", vbOKOnly, "Kesalahan"
    End If
End Sub

5. Simpan projek kemudian jalankan projek, maka akan tampil data yang ada dalam database.