Cara Koneksi ke Database MySql

Selamat malam agan-agan yang saya hormati hehhehe

Berhubung ane lagi ngerjain Tugas Akhir yang berkaitan dengan materi ini, sekalian aja ane akan
sharing cara mengkoneksikan VB.Net dengan MySql :)

Ini contoh coding untuk melakukan koneksi ke database mysql :

        Imports System.Data.Odbc

        Public Class Mysql

Mendefinisikan variabel-variabel

        Dim CONN As ODBCConnection

        Dim DA As ODBCAdapter

        Dim DS As New DataSet

        Dim CMD As ODBCCommand

        Dim DR As ODBCDataReader

        Sub Koneksi()

                Try

String koneksi ke database mysql

                CONN = New OdbcConnection("Driver={MySQL ODBC 3.51 Driver};database=DBPerpustakaan;server=localhost;uid=root")

                CONN.Open()

                MsgBox("koneksi sukses")

        Catch ex As Exception

                MsgBox("ex.Message")

        End Try

        End Sub

        Private SubMysql_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Menampilkan data ke datagrid

        Call Koneksi()

        DA = New OdbcDataAdapter("SELECT Judul, Pengarang from buku", CONN)

        DS = New DataSet

        DA.Fill(DS)

        DataGridView1.DataSource = DS.Tables(0)

        DataGridView1.ReadOnly = True

Menampilkan data ke listbox 

        CMD = New OdbcCommand ("SELECT * FROM buku", CONN)

        DR = CMD.ExecuteReader

        Do While DR.Read

                Listbox1.Items.Add(DR.Item("judul"))

        Loop

        End Sub

        End Class 

Catatan : 

Sebelum menjalankan project, mysql harus keadaan aktif gan

Mohon maaf kalo ada salah hehehe :)