Cara Koneksi VB.Net dengan database MySQL

sebelumnya ane sebutin dulu senjata yang harus dipersiapkan. karena mengingat banyak yang masih belum paham bagaimana dan apa saja yang dibutuhkan dalam mengkoneksiakan database dengan vb.net, memang koneksi mysql sedikit berbeda dengan database lain, kalau database lain mungkin tinggal koneksi biasa saja. sedangkan mysql membutuhkan yang namanya jembatan, atau bisa dibilang conector. lah kali ini saya memakai conector odbc 3.51, jadul memang! tapi dari sekian banyak conector yang ane coba, cuma ini saja yang masih work.

oke langsung saja. siapkan senjata:

• kopi & rokok
• xampp pastinya, yang belum punya silahkan download di postingan ane sebelumnya.
• vb.net (wajib) hahahah
• conector odbc, bisa download di sini

oke sebelumnya ente harus buat databasenya dulu bro di xampp.. sudah tau caranya kan! kalo belum ya cari aja digoogle. ane ingetin, ente harus inget2 nama databasenya (penting) karena buat koneksi, nama database harus baik dan benar. hahaha.
kalau database sudah terbentuk, silahkan masuk ke vb.net, buat project baru dengan nama terserah ente.
kemudian yang dibutuhkan di vb.net:

• button
• datagriedview (ubah nama menjadi dgv1)

 kemudian taroh script dibawah ini ke project ente.

Imports System.Data.Odbc
Imports System.Data.OleDb
Public Class Form1
    Dim conn As OdbcConnection
    Dim da As OdbcDataAdapter
    Dim ds As DataSet
    Dim str As String
    '----------------------------
    Sub Koneksi()
        str = "Driver={MySQL ODBC 3.51 Driver};database=biodata;option=0;port=0;server=localhost;uid=root"
        'hasil dari langkah konfigurasi yang tadi telah dilakukan
        conn = New OdbcConnection(str)
        conn.Open()
    End Sub
    Sub Tampilkan()
        da = New OdbcDataAdapter("Select * from mhs", conn)
        ds = New DataSet
        da.Fill(ds, "mhs")
        dgv1.DataSource = ds.Tables("mhs")
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call Koneksi()
        Call Tampilkan()
    End Sub

nah ini dia cara koneksinya: