Rabu, 06 November 2013
Hapus beberapa Record Data / semua record tabel dengan ADODC
Private Sub hapus_pesan()
Adopesan.RecordSource = "select * from pesan where kodepesan='" & txtkodepesan.Text & "'"
Adopesan.Refresh
Dim hapus As Integer
For hapus = 1 To Adopesan.Recordset.RecordCount
Adopesan.Recordset.Delete
Adopesan.Recordset.Update
Adopesan.Recordset.MoveNext
Next hapus
End Sub
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar
hay friend... sebelum exit, jgn lupa tinggalkan comment dulu ya...
kalau mau bertanya bisa tulis komentar atau email/fb ke: aranama@ymail.com
thank you...