Select Insert Delete Data Into Mysql Table Dengan Vb.net

Bahasan kita saat ini adalah bagaimana cara kita untuk menampilkan, insert dan menghapus data mysql pada datagirdview vb.net
Udah kawan, lsg aja ya berikut adalah petikan kode programnya (snipet)

Coding

1. Public Class Form1  
2.     Dim cmd As New MySql.Data.MySqlClient.MySqlCommand  
3.     Dim tambah As New MySql.Data.MySqlClient.MySqlCommand  
4.     Dim hapusdata As New MySql.Data.MySqlClient.MySqlCommand  
5.     Private Sub tampil()  
6.         konek("localhost", "root", "", "menu")  
7.         cmd.CommandText = "SELECT id,name FROM `menu`"  
8.         cmd.Connection = conn  
9.         Dim table As New DataTable  
10.         Dim adapter As New MySql.Data.MySqlClient.MySqlDataAdapter(cmd.CommandText, conn)  
11.         Dim cb As New MySql.Data.MySqlClient.MySqlCommandBuilder(adapter)  
12.         adapter.Fill(table)  
13.         DataGridView1.DataSource = table  
14.     End Sub  
15.     Private Sub hapus()  
16.         If TextBox1.Text = "" Then  
17.             MsgBox("Tentikan pilihan data yang akan dihapus", MsgBoxStyle.Information)  
18.         Else  
19.             hapusdata.CommandText = "delete from menu where name='" & TextBox1.Text & "'"  
20.             hapusdata.Connection = conn  
21.             Dim rsl As Integer = hapusdata.ExecuteNonQuery()  
22.             If rsl > 0 Then  
23.                 MsgBox("data terhapus")  
24.                 tampil()  
25.             End If  
26.   
27.         End If  
28.   
29.     End Sub  
30.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
31.         tampil()  
32.     End Sub  
33.   
34.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
35.         tambah.Connection = conn  
36.         tambah.CommandText = "insert into menu (name) values ('" & TextBox1.Text & "')"  
37.         Dim rsl As Integer = tambah.ExecuteNonQuery()  
38.         If rsl > 0 Then  
39.             MsgBox("data berhasil ditambahkan")  
40.             tampil()  
41.         End If  
42.     End Sub  
43.   
44.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
45.         hapus()  
46.     End Sub  
47.   
48.     Private Sub DataGridView1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseClick  
49.         TextBox1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString  
50.     End Sub  
51. End Class  

Public Class Form1
    Dim cmd As New MySql.Data.MySqlClient.MySqlCommand
    Dim tambah As New MySql.Data.MySqlClient.MySqlCommand
    Dim hapusdata As New MySql.Data.MySqlClient.MySqlCommand
    Private Sub tampil()
        konek("localhost", "root", "", "menu")
        cmd.CommandText = "SELECT id,name FROM `menu`"
        cmd.Connection = conn
        Dim table As New DataTable
        Dim adapter As New MySql.Data.MySqlClient.MySqlDataAdapter(cmd.CommandText, conn)
        Dim cb As New MySql.Data.MySqlClient.MySqlCommandBuilder(adapter)
        adapter.Fill(table)
        DataGridView1.DataSource = table
    End Sub
    Private Sub hapus()
        If TextBox1.Text = "" Then
            MsgBox("Tentikan pilihan data yang akan dihapus", MsgBoxStyle.Information)
        Else
            hapusdata.CommandText = "delete from menu where name='" & TextBox1.Text & "'"
            hapusdata.Connection = conn
            Dim rsl As Integer = hapusdata.ExecuteNonQuery()
            If rsl > 0 Then
                MsgBox("data terhapus")
                tampil()
            End If

        End If

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tampil()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        tambah.Connection = conn
        tambah.CommandText = "insert into menu (name) values ('" & TextBox1.Text & "')"
        Dim rsl As Integer = tambah.ExecuteNonQuery()
        If rsl > 0 Then
            MsgBox("data berhasil ditambahkan")
            tampil()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        hapus()
    End Sub

    Private Sub DataGridView1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseClick
        TextBox1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString
    End Sub
End Class

dan berikut adalah hasil dari snipet code diatas

dan isa juga mendownload source code vb.net di menampilkanData