Hapus Data koneksi vb.net ke mysql

sobat semua, kali ini saya ingin membagikan source code hapus data untuk membantu kalian yang kesulitan untuk procedure hapus data.

klik tombol hapus dan masukkan source code berikut  :

   Private Sub Hapus_Click(sender As Object, e As EventArgs) Handles Hapus.Click
        If MsgBox("Anda Yakin Ingin Hapus ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Hapus") = MsgBoxResult.No Then
            Exit Sub
        End If
        deletepihak(ListView1.SelectedItems(0).Text) 'menghapus dari listview
        Call isilist()  'panggil data yang ada pada listview
    End Sub

    Private Sub deletepihak(ByVal cc As String)

        Dim cmd As New MySqlCommand 'declare
        cmd.Connection = conn 'set koneksi
        cmd.CommandText = "delete from tbl_pihak where kd_pihak='" & cc & "'"  'isi commandtext
        cmd.ExecuteNonQuery() 'execute query
        cmd.Dispose() 'hancurkan cmd

        MsgBox("Data Telah Dihapus")
        Call ClearForm(Me) 'hapus seluruh textbox, combobox, dll. seperti yg sudah dibahas
    End Sub

Sekian dulu ya source code nya, jangan lupa baca artikel lainnya
Terima kasih telah membaca di blog ini.