Thursday, 19 May 2016

CODING HAPUS

source code

Double Klik pada Command Hapus kemudian isikan coding untuk menghapus data, seperti berikut ini:

Dim hapus As String

hapus = MsgBox("Yakin ingin menghapus?", vbQuestion + vbYesNo, "WARNING")

If hapus = vbYes Then

Adodc1.Recordset.Delete

DataGrid1.Refresh

End If

Note :

MsgBox("Yakin ingin menghapus?") dan ("WARNING") dapat di rubah
sesuai kata-kata yang anda inginkan, bebas !!!

SELAMAT MENCOBA