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")