Cara Membuat Tombol Hapus Database VB6

Setelah Sebelumnya Cara Membuat Tombol Cari Data pada Database kini selanjutnya untuk membuat Tombol Hapus, Seperti sebelumnya, untuk mengikuti Tutorial kali ini Pastikan telah mengikuti Tutorial sebelumnya, Cara Menampilkan Database ke TextBox VB6 dan Cara Membuat Koneksi Database VB6.

kode untuk hapus data ini tidak terlalu banyak, untuk memilih data yang akan dihapus, yaitu data yang ditampilkan pada textbox dan bisa dipindahkan dengan menu cari ataupun Tombol Navigasi, ini dia Kodenya :

Dim Psn As String ' variable u/ tampung jawaban
        Psn = MsgBox("Yakin?", vbExclamation + vbYesNo, "Hapus")
        If Psn = vbYes Then
            RsBarang.Delete
            RsBarang.Requery
            Kosong Me
        End If

Penjelasan : Psn adalah variable untuk menampung nilai, pada MsgBox, Msgbox digunakan. untuk konfirmasi apakah anda yakin akan menghapus data, sebelumnya pastikan dulu recorset RsBarang, terbuka pada formload, RsBarang.Delete untuk menhapus data, RsBarang.Requery Untuk refresh recordset. kemudian panggil Procedure kosong, lihat Cara membuat Procedure kosong TextBox. Selesai tunggu Tutorial Selanjutnya Cara membuat Tombol Simpan atau (Save) dan Tombol Ubah (Update).

Mohon maaf bila terdapat kesalahan!!
Terimakasih Telah Berkunjung!!