学步园

DAO里批量删除记录

     Dim intNums As Integer '返回删除的记录数量'
    DBEngine.Workspaces(0).BeginTrans
    Call db.Execute("DELETE FROM 数据表 WHERE", intNums)
    DBEngine.Workspaces(0).CommitTrans

ADO里批量删除记录

     Dim cnn As New ADODB.Connection
    Dim cmd As New ADODB.Command
    
    cnn.open   ....
    Set cmd.ActiveConnection = cnn
    cmd.CommandType = adCmdText
    cmd.CommandText = "DELETE FROM 数据表 WHERE a>22"
    cmd.Execute

其他相关的文章：DAO中删除表和记录及处理自动编号