Membuat CRUD pada Visual Basic .Net - IV [ Delete ]

Berikut adalah cara menghapus data pada Visual Basic .Net, tampilan layout seperti gambar dibawah ini :

lalu buat form1.vb untuk koneksi ke database, pada tutor ini menggunakan Mysql sebagai database:

Klik kanan pada form1.vb, lalu pilih view code, isikan sintak :

Imports MySql.Data.MySqlClient

Public Class Form1

    Dim svr As String = "localhost"

    Dim uid As String = "root"

    Dim pwd As String = ""

    Dim db As String = "dtbase"

    Dim cConn As New MySqlConnection

    'Membuat Koneksi

    Sub Koneksi()

    cConn.ConnectionString = "server= " + svr + "; user id=" + uid + "; password=" + pwd + "; database=" + db + ""

Try

            cConn.Open()

        Finally

            cConn.Dispose()

        End Try

    End Sub

   Sub clearText()

        ' Kosongkan value textbox

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

         TextBox1.Enabled = False

         TextBox2.Enabled = False

         TextBox3.Enabled = False

         TextBox4.Enabled = False

        ' membatasi length Textbox1 

        TextBox1.MaxLength = 15

        ' Panggil koneksi 

        Call Koneksi()

        ' Memanggil table karyawan

da = New MySqlDataAdapter("Select * from karyawan", cConn):

ds = New DataSet

da.Fill(ds, "karyawan")

DataGridView1.DataSource = ds.Tables("karyawan")

 

    End Sub

  End Class

Kemudian tambahkan sintak pada event DataGridView Klik, untuk mengambil Nilai pada 

DataGridView dan tampung ke Textbox

Private Sub DataGridView1_CellMouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick

With DataGridView1 

TextBox1.Text = .Rows(e.RowIndex).Cells(0).Value

TextBox2.Text = .Rows(e.RowIndex).Cells(1).Value

TextBox3.Text = .Rows(e.RowIndex).Cells(2).Value

TextBox4.Text = .Rows(e.RowIndex).Cells(3).Value

End With

 End Sub

Lalu tambahkan sintak pada button klik

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

                Call Koneksi()

                Dim hData As String   

                hData= "delete from karyawan where nip ='" & TextBox1.Text & "'"

                 cmd = New MySqlCommand(eData, cConn)

      cmd.ExecuteNonQuery();

                ' message

                MsgBox("Hapus data berhasil")

                ' mengosongkan Textbox

                Call clearText()

    End Sub

kemudian jalankan tekan F5, maka akan ditampilkan data seperti

Coba klik pada DataGridView, maka akan ditampilkan 

Kemudian klik Button Delete, maka kan menampilkan hasil