Yang udah stay tune di artikel ini sampe part ini makasih banget yah, postingan ini lanjutan dari Part 2.
User menentukan baris mana yang akan dihapus lalu klik tombol Delete. Jadi kita akan membuat prosedure berikut pada event tbrDelete_Click. Sebelum meniadakan data diberikan pesan konfirmasi proses hapus apalagi dulu.
Private Sub tbrDelete_Click(sender As Object, _
e As EventArgs) Handles tbrDelete.Click
If MsgBox("Yakin akan meniadakan 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.
Sumber http://rani-irsan.blogspot.com
EmoticonEmoticon