VB.NET Koneksi Database MySQL dengan ODBC

Sudah sangat lama rasanya blog ini tanpa ada artikel baru, namun SteemPress mebuat saya ingin menulis lagi walau ini hanya untuk berujicoba dan adu nasib di steemit menggunakan media blog. Abaikan saja niatnya, yang pengting artikel jadi walau sangat sederhana.

Microsoft mengelurakn versi terbaru untuk produk Visual Studio baik yang community edition, professional edition maupun enterprise edition. Punulis menggunakan community edition karena gratis walau terbatas dalam fungsi. Untuk perbedaan ketiga edisi tersebut akan kita bahasa pada artikel yang lain.

Untuk bisa terkoneksi ke database dengan engine MySQL anda tentu harus sudag memiliki MySQL server, kalau belum ada silahkan install dulu. Kalau sudah ada selanjutnya kita install MySQL ODBC sebagai konektor antara Visual Studio (aplikasi yang kita bangun) dengan MySQL database. Lalu pertanyaannya Kenapa MySQL? ya karena MySQL punya versi gratis tanpa ada batasan query dan space, kalau MSSQL yang maksimum 10GB :D

Kita lanjutkan untuk proses instalasi MySQL ODBC, pertama unduh dulu dari website MySQL pada link ini (klik pada Looking for previous GA versions? untuk versi lama), dalam hal ini penulis memilih versi 3.51 ansi karena konon katanya lebih stabil. Ikut step-by-step proses instalasi sampai selesai.

Setelah selesai buka aplikasi Visual Studio dan buat proyek baru, sesuaikan nama dan lokasi penyimpanan proyek sesuai keinginan anda, jangan lupa pilih Net Framework version (Penulis pakai 3.5 karena lebih stabil).

Lalu klik Project > Add Modul

berinama modul sesuai keinginan dan ketikkan kode berikut ini:

[sourcecode language="plain"]Imports System.Data.Odbc

Module Connection
Dim ConnStr As String = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; UID=root; PWD=nanggroe; DATABASE=penjualan"
Public Conn As OdbcConnection
Public DA As OdbcDataAdapter
Public DS As DataSet
Public CMD As OdbcCommand
Public RD As OdbcDataReader

Public Sub Koneksi()
    Try
        Conn = New OdbcConnection(ConnStr)
        Conn.Open()
    Catch ex As Exception
        MsgBox("Koneksi Gagal")
    End Try
End Sub

End Module[/sourcecode]

Ya begitulah kira-kira script koneksi database MySQL menggunakan ODBC driver pada VB.net, semoga berguna.

---

Posted from my blog with SteemPress : https://www.fadli.web.id/vb-net-koneksi-database-mysql-dengan-odbc/

---