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

Read More

Download Program Rumah Sakit dengan VB6

Bagi anda yang sedang belajar vb6 ini saya ada bahan buat referensi Download Program Rumah Sakit dengan VB6 silahkan download disini. atau kalo mau yang sudah jadi silahkan kunjungi www.kodeonline.net

Read More