VB.Net dan MySQL

Koneksi ke MySQL dari VB menggunakan MySQL ODBC..

Kali ini saya memposting buat yang ingin belajar pemograman VB (Visual Basic.Net). Syntak tersebut digunakan untuk mengkoneksikan dari VB ke MySQL.
 Langsung aja ya,, Cekidot :D

'Menentukan ODBC sebagai koneksi pada Database

Imports System.Data.Odbc

Imports System.Data

Module modulekoneksi

    Public con As OdbcConnection

    Public dr As OdbcDataReader

    Public da As OdbcDataAdapter

    Public ds As DataSet

    Public cmd As OdbcCommand

    Public Sub koneksi()

        'Variabel yang menampung driver dan database

        Dim str As String

        str = "driver={MYSQL ODBC 3.51 Driver};database=db_penjualan;server=localhost;uid=root"

        con = New OdbcConnection(str)

        If con.State = ConnectionState.Closed Then

            con.Open()

            MsgBox("Koneksi Database Berhasil", MsgBoxStyle.Information, "HelloIT")

        End If

    End Sub

End Module

Sampai jumpa di posting yang lain.. :)