关于ADO,批量删除记录,一直没搞清楚。
各位,我一直想用下面的代码来实现批量删除记录,可是不行。
Dim db As New Connection, re As New Recordset, i As Integer
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False"
db.CursorLocation = adUseClient
db.Open
re.Open "select * from 数据表 where a>22", db, adOpenDynamic, adLockBatchOptimistic
re.Delete adAffectAllChapters '**************
re.UpdateBatch adAffectAllChapters'***********
我只有把最后两句用下面的循环来实现,但速度太慢。
For i = 1 To re.RecordCount
re.Delete adAffectCurrent
re.UpdateBatch adAffectCurrent
re.MoveNext
Next i
我一直没搞清楚 批量删除记录 的正确方法,请大家告诉我, 一定给分。