Question

VB批量更新数据库中的记录

Private Sub Command1_Click()
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Adodc1.Recordset.MoveNext
Loop
End If
End Sub
上面的代码我试过，没错，但删一条更新一次，我总觉得太笨，我想改成下面的
Private Sub Command1_Click()
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Loop
End If
Adodc1.Recordset.Update
End Sub
结果却报错，是什么原因呢，能说下吗？我的意思是想批量删除，一次更新，如果不用UpdateBatch，怎样改？如果用UpdateBatch呢？
务求详细！

Answer 1

Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
删除后，当前条就不存在了，所以下一条，不知道是指的那一条的下一条。

Answer 2

试试这个代码：
Private Sub Command1_Click()
If Adodc1.Recordset.RecordCount > 0 Then
for i=0 to Adodc1.Recordset.RecordCount-1
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Delete
Adodc1.Recordset.Move i
next
Adodc1.Recordset.Update
End If
End Sub