Vb.Net Ms Access: Create, Read, Update, Delete (Crud) Part 3

Yang udah stay tune di postingan ini sampe part ini makasih banget yah, artikel ini lanjutan dari Part 2 . User menentukan baris mana yang mau dihapus kemudian klik tombol Delete. Makara kita akan menciptakan prosedure berikut pada event tbrDelete_Click. Sebelum meniadakan data diberikan pesan konfirmasi proses hapus apalagi 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 telah lengkap deh, mari kita coba...       Kode selengkapnya ada di Part 4 .... Click here if you like this article.
Sumber http://rani-irsan.blogspot.com