VB .NET – Menghubungkan Visual Basic 2008 dengan MYSQL local server

Untuk dapat membuat koneksi antara Visual Basic 2008 dengan database MYSQL pada local server kita, maka kita harus menambahkan konektor SQL. Bagaimana caranya? Ikuti langkah-langkah berikut:

1. Anda dapat mendownload MYSQL Connector disini.  Setelah berhasil mendownload, install sampai selesai.
2. Dari Menu Project pilih Add Reference. Kemudian pilih Browse dan cari lokasi file MySql.Data.dll. Biasanya pada directory: C:\Program Files (x86)\MySQL\MySQL Connector Net 8.0.13\Assemblies\v4.5.2
3. Selanjutnya tinggal membuat coding sebagai berikut:

Buat sebuah file class:

Visual Basic .NET

Imports MySql.Data.MySqlClient Public Class connection Private strCon As String = "server=localhost;user id=root;database=cipd" Private da As New MySqlDataAdapter Private cmd As New MySqlCommand Private dt As New DataTable Private Function myCon() As MySqlConnection Return New MySqlConnection(strCon) End Function Private conn As MySqlConnection = myCon() Property con() As MySqlConnection Get Return conn End Get Set(ByVal value As MySqlConnection) conn = value End Set End Property Public Sub reload(ByVal sql As String, ByVal dtg As Object) With cmd .Connection = con .CommandText = sql End With da = New MySqlDataAdapter(sql, con) da.Fill(dt) dtg.DataSource = dt End Sub End Class

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Imports MySql.Data.MySqlClient Public Class connection     Private strCon As String = "server=localhost;user id=root;database=cipd"     Private da As New MySqlDataAdapter     Private cmd As New MySqlCommand     Private dt As New DataTable     Private Function myCon() As MySqlConnection         Return New MySqlConnection(strCon)     End Function     Private conn As MySqlConnection = myCon()     Property con() As MySqlConnection         Get             Return conn         End Get         Set(ByVal value As MySqlConnection)             conn = value         End Set     End Property     Public Sub reload(ByVal sql As String, ByVal dtg As Object)         With cmd             .Connection = con             .CommandText = sql         End With         da = New MySqlDataAdapter(sql, con)         da.Fill(dt)         dtg.DataSource = dt     End Sub End Class

Selanjutnya pada form, coding seperti berikut:

Referensi:

http://ekasolusi.blogspot.com/2015/06/mengkoneksikan-vbnet-2008-dengan.html

File digunakan:

MySql.Data.dll

Download File