Cara Menghapus Data yang ada Dalam Database VB.NET

Kalau sebelumnya saya memposting cara menyimpan data dengan VB.Net

kali ini saya akan membahs mengenai cara menghapus data di dalam database.

Berikut adalah source codenya:

====== source code untuk menghapus data, penghapusan data mengacu pada kode barang ======

Sub hapus2()

        Dim sql4 As String

        konek()

        sql4 = "delete from BARANG where KODE ='" & tkode.Text & "' "

        cmd = New OleDbCommand(sql4, Conn)

        cmd.ExecuteNonQuery()

        DataGridView1.Refresh()

    End Sub

====== dan source code berikut ini adalah untuk tombol simpan yang berfungsi untuk memanggil sub yang sebelumnya pernah dibuat. =================

    Private Sub bhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bhapus.Click

        If tkode.Text = "" Then

            MsgBox("Kode Barang yang akan dihapus belum ditentukan", MsgBoxStyle.Critical, "Perhatian")

            tkode.Focus()

        Else

            Dim PS As String

            PS = MsgBox("Anda yakin data akan dihapus", MsgBoxStyle.YesNo, "Perhatian")

            If PS = vbYes Then

                Call hapus2()

            Else

                tkode.Focus()

            End If

        End If

    End Sub

::Selamat mencoba, silahkan tinggalkan komentar jika ada yang mau ditanyakan ::