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