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
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