VB.NET Ms Access: Create, Read, Update, Delete (CRUD) Part 3

Yang udah stay tune di artikel ini sampe part ini makasih banget yah, artikel ini lanjutan dari Part 2.

User memilih baris mana yang akan dihapus kemudian klik tombol Delete. Jadi kita akan membuat prosedure berikut pada event tbrDelete_Click. Sebelum menghapus data diberikan pesan konfirmasi proses hapus terlebih dahulu.
Private Sub tbrDelete_Click(sender As Object, _
        e As EventArgs) Handles tbrDelete.Click

    If MsgBox("Yakin akan menghapus data?", MsgBoxStyle.YesNo, _
       "Konfirmasi") = MsgBoxResult.No Then Exit Sub

    Dim myCommand As New OleDbCommand
    Dim SQL As String

    Try
        If Not con.State = ConnectionState.Open Then Open_Koneksi()
        SQL = "DELETE FROM kategori WHERE kodekategori = " & _
              "'" & grdData.CurrentRow.Cells(0).Value & "'"

        myCommand.Connection = con
        myCommand.CommandText = SQL
        myCommand.ExecuteNonQuery()

        MsgBox("Data terhapus")

        tbrCancel_Click(Nothing, Nothing)

        con.Close()
    Catch myerror As OleDbException
            MessageBox.Show("Error: " & myerror.Message)
    Finally
        con.Dispose()
    End Try
End Sub

Terakhir tambahkan procedure untuk menutup form pada event tbrClose_Click.

Private Sub tbrClose_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles tbrClose.Click
    Me.Close()
End Sub

Nah sudah lengkap deh, mari kita coba...

 

 

 

Kode selengkapnya ada di Part 4....

Click here if you like this article.