cara koneksi vb.net dengan mysql

Contoh coding untuk melakukan koneksi ke database mysql adalah sebagai berikut:

Imports System.Data.Odbc

Public Class Form1
'Mendefinsisikan variabel-variabel

Dim CONN As ODBCConnection
Dim DA As ODBCDataAdapter
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 Sub Form1_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 :

1. Sebelum menjalan project, mysql harus dalam keadaan aktif

2. Kelemahan driver ODBC versi 3.51 belum bisa melakukan SELECT SUM (*). Silakan lakukan upgrade dengan driver ODBC versi 5.1. atau yang lebih tinggi

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