Insert, Update, Delete Dengan Vb.Net dan Mysql

Sebelumnya silakan download terlebih mysqlconnector.net –nya,untuk koneksi mysql dengan Net di http://cdn.mysql.com/Downloads/Connector-Net/mysql-connector-net-6.1.3.zip  kemudian silakan  install seperti biasa ,lalu buatlah terlebih dahulu databasenya dengan xampp dengan nama “vbdatabase” ,oh iyah xampp yang digunakan oleh penulis yaitu menggunakan xampp dengan versi yang sudah cukup lama yaitu versi 1.5.3 kemudian buat juga tabelnya dengan nama “biodata” seperti gambar dibawah.

Kemudian buatlah projek baru dengan nama”latihan_mysql_koneksi” dan buatlah design tampilan seperti gambar ya guys,

Jangan lupa tambahkan reference mysql.data dengan cara klik kanan pada objek di solution explore – pilih add reference kemudian pilih tab Net – Mysql.Data seperti gambar dibawah.

Buat kelas baru dengan nama koneksi.vb

Imports MySql.Data.MySqlClient
Public Class koneksi
Public conn As MySqlConnection
Dim database As String = “server=localhost;database=vbdatabase;uid=root;pwd=”;”
Public command As MySqlCommand
Public adp As MySqlDataAdapter
Public Sub konek()
Try
conn = New MySqlConnection(database)
conn.Open()
MsgBox(“Koneksi berhasil”)
Catch ex As Exception
MessageBox.Show(ex.Message())
End Try
conn.Close()
End Sub
Public Sub Query(ByVal query As String)
Try
conn = New MySqlConnection(database)
conn.Open()
command = New MySqlCommand(query, conn)
command.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message())
Finally
conn.Close()
End Try
End Sub
Public Function tampil() As DataTable
Dim dt As New DataTable
Try
Dim sql As String = “Select * from biodata ORDER BY nama DESC ”
conn = New MySqlConnection(database)
conn.Open()
command = New MySqlCommand(sql, conn)
adp = New MySqlDataAdapter(command)
command.ExecuteNonQuery()
adp.Fill(dt)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Return dt
conn.Close()
End Function
End Class

Source Code Main program,

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim koneksi As koneksi
koneksi = New koneksi()
koneksi.konek()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim konksi As New koneksi
konksi.Query(“Insert into biodata (nama,jenkel,alamat) values (‘” & TextBox1.Text & “‘,'” & TextBox2.Text & “‘,'” & TextBox3.Text & “‘)”)
MessageBox.Show(“Insert Succsess”)
‘baris dibawah untuk menampilkan kembali data
‘database yang up to date yang telah di delete
Dim dtb As New DataTable
dtb = koneksi.tampil
DataGridView1.DataSource = dtb
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim koneksi As New koneksi
koneksi.Query(“Update biodata set nama='” & TextBox1.Text & “‘,jenkel='” & TextBox2.Text & “‘ Where alamat = ‘” & TextBox3.Text & “‘ “)
MessageBox.Show(“Update Berhasil”)
‘baris dibawah untuk menampilkan kembali data
‘database yang up to date yang telah di delete
Dim dtb As New DataTable
dtb = koneksi.tampil
DataGridView1.DataSource = dtb
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim koneksi As New koneksi
Dim dtb As New DataTable
dtb = koneksi.tampil
DataGridView1.DataSource = dtb
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim koneksi As New koneksi
koneksi.Query(“Delete from biodata Where alamat = ‘” & TextBox4.Text & “‘”)
MessageBox.Show(“Delete Sukses”)
‘baris dibawah untuk menampilkan kembali data
‘database yang up to date yang telah di delete
Dim dtb As New DataTable
dtb = koneksi.tampil
DataGridView1.DataSource = dtb
End Sub
End Class

Gambar Output aplikasi