Hapus Beberapa Record (ADO)

Kali ini Mencobar share sintaks untuk menghapus beberapa record sekaligus di VB 6.0.

Untuk sintaksnya bisa menggunakan prosedur tambahan, sehingga dapat digunakan berkali kali tanpa harus mengetik ulang, atau dapat digunakan di module, untuk penggunaan di module, silahkan kembangkan sendiri :-)

Public Sub clear_tempo()
  p$ = "Select * from t_temp_kpi"
    Adodc1.RecordSource = p$
    Adodc1.CommandType = adCmdText
    Adodc1.Refresh
    While Not Adodc1.Recordset.EOF
        Adodc1.Recordset.Delete
        Adodc1.Recordset.MoveNext
    Wend
End Sub