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:
- Anda dapat mendownload MYSQL Connector disini. Setelah berhasil mendownload, install sampai selesai.
- 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
- Selanjutnya tinggal membuat coding sebagai berikut:
Buat sebuah file class:
12345678910111213141516171819202122232425262728 Imports MySql.Data.MySqlClientPublic Class connectionPrivate strCon As String = "server=localhost;user id=root;database=cipd"Private da As New MySqlDataAdapterPrivate cmd As New MySqlCommandPrivate dt As New DataTablePrivate Function myCon() As MySqlConnectionReturn New MySqlConnection(strCon)End FunctionPrivate conn As MySqlConnection = myCon()Property con() As MySqlConnectionGetReturn connEnd GetSet(ByVal value As MySqlConnection)conn = valueEnd SetEnd PropertyPublic Sub reload(ByVal sql As String, ByVal dtg As Object)With cmd.Connection = con.CommandText = sqlEnd Withda = New MySqlDataAdapter(sql, con)da.Fill(dt)dtg.DataSource = dtEnd SubEnd Class
Selanjutnya pada form, coding seperti berikut:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
Imports MySql.Data.MySqlClient Public Class Form1 Dim Mycon As connection = New connection Dim stud As student = New student Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Mycon.con.Open() If Mycon.con.State = ConnectionState.Open Then MsgBox("connected") Mycon.reload("SELECT * FROM tani", DataGridView1) Else MsgBox("not connected") End If Catch ex As Exception MsgBox(ex.Message) End Try Mycon.con.Close() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class |
Referensi:
http://ekasolusi.blogspot.com/2015/06/mengkoneksikan-vbnet-2008-dengan.html
File digunakan:
MySql.Data.dll
Recent Comments