Menghapus Data Pada Datagrid Form1 atau Form Utama

Perhatikan Gambar Di bawah ini,gambar tersebut adalah gambar Form1 yang telah kita buat "Button Hapus".

Untuk Menghapus Data pada DataGrid Form1,kali ini anda tidak perlu ribet harus membuat Form-form berikut nya,anda hanya cukup memasukan Source Code di bawah ini pada "Button Hapus" yang sudah anda Buat pada Form1,seperti inilah Souerce Code nya yang anda masukan pada "Button Hapus"

Private Sub CmdHapus_Click()

X = MsgBox("Anda Yakin Ingin Menghapus Data ini..?", vbQuestion + vbYesNo, "Hapus Data")

If X = vbYes Then

Set DataGrid1.DataSource = rsdata

rsdata.Delete

X = MsgBox("Data Sudah Terhapus", vbQuestion + vbYes, "Hapus Data")

Else

Cancel = 1

X = MsgBox("Data Tidak Terhapus", vbQuestion + vbYes, "Hapus Data")

End If

End Sub

Jika Anda Sudah memasukan Source Code tersebut kedalam "Button Hapus",Silahkan anda "run" Program nya,kemudian anda sorot data dalam Datagrid pada Form1 yang ingin anda hapus,maka hasil nya akan nampak seperti pada gambar di bawah ini.

Jika Anda menekan tombol "Yes", maka data akan terhapus, jika anda menekan Tombol "No",maka Data dalam DataGrid Tetap utuh dan tidak terhapus.

Selamat Mencoba..!!