Koneksi Visual Basic Net dengan MySQL

Sekedar berbagi bagi yang belum tahu cara Koneksi Visual Basic Net dengan MySQL dengan mysql-connector-odbc 5.1, :

1. Download mysql-connector-odbc-5.1 disini
2. Buat sebuah modul beri nama KoneksiData dan masukan code beikut :
Module KoneksiData
    Public KONEKSI As String
    Public xSql As String
    Public STATUS_Input As Boolean = False
    Public CONN_odbc As New Odbc.OdbcConnection     '/koneksi dg ODBC
    Public CMD_odbc As New Odbc.OdbcCommand     '/'perintah query (select,Insert, Delete, Update)
    Public DTReader_odbc As Odbc.OdbcDataReader     '/tempat menampung query
    Public DTReader2_odbc As Odbc.OdbcDataReader     '/tempat menampung query
    Public DTAdapter_odbc As New Odbc.OdbcDataAdapter   '/untuk DataGridView koneksi nya
    Public DTtable_odbc As New DataTable    '/untuk DataGridView datanya
    Public BARIS_Edit As Integer

    Dim ser, db, user, pass As String

    Sub BUKA_MYSQL_dg_ODBC()
        ser = "namaserver"
        db = "namadatabase"
        user = "namauser"
        pass = "password"
        Try
                       KONEKSI = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & ser & ";DATABASE=" & db & ";UID=" & user & ";PWD=" & pass & ";port=3306;OPTION=2105"
            CONN_odbc = New Odbc.OdbcConnection(KONEKSI)
            CONN_odbc.Open()

        Catch Salah As Exception
            MessageBox.Show(Salah.Message, "Error Koneksi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End
        End Try

    End Sub

End Module

3. Dan untuk pemanggilan disetiap form tinggal ketik aja :
    Call BUKA_MYSQL_dg_ODBC()
    ........ code lainnya

Posted in: Tutorial