07-Desember-2012

Hari ini saya coding comand delete :)
ini codingnya :



Private Sub cmd_hapus_Click()
If Rs.State Then Rs.Close
eksekusiSQL "delete from pintu where nama_pintu = '" & entri.Text & "'"
Rs.Open eksekusiSQL, con, adOpenKeyset, adLockBatchOptimistic
'If Rs.State Then Rs.Close
'    eksekusiSQL = "delete from pintu " & _
'    " where kd_pintu  = '" & entri.Text & "';"
'    Rs.Open SQLstr, con, adOpenKeyset, adLockOptimistic
kosong
Call list
MsgBox "Data telah di hapus"
End Sub