Question

VB怎样删除数据库全部记录？

ado控件连接的ACCESS数据库：
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Finance.mdb;Persist Security Info=False"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource _
= "select * from Trainee"
我想删除表 Trainee中的所有元组，我是这样写的代码：
Do While Adodc2.Recordset.RecordCount > 0
Adodc2.Recordset.Delete
Loop
可是一执行就报错，见附图

必须改成：
Do While Adodc2.Recordset.RecordCount > 0
Adodc2.Recordset.Delete
MsgBox Adodc2.Recordset.RecordCount ’不知道为什么必须要有这句.....
Loop
应该怎么改？或者有没有别的更好的代码？

Answer 1

下面语句刚刚做成，并通过测试。
Private Sub Command5_Click()
If (Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF) Then
MsgBox "无记录可删除", , "提示"
End If
While Not Adodc1.Recordset.EOF()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Wend
MsgBox "记录已经全部清除！", vbOKOnly, "提示"
End Sub

Answer 2

我好像很久以前也碰到过一样的问题，必须加一条语句，不想显示就换成一条普通的赋值语句。

追问

赋值不行啊...就得msgbox...

Answer 3

试看看以下代码

If Adodc2.Recordset.RecordCount > 0 then
Adodc2.Recordset.MoveFirst
Do While Not Adodc2.Recordset.EOF = True
Adodc2.Recordset.Delete
Adodc2.Recordset.MoveNext
Loop
Msgbox "Successfully Delete All Record"
Else
Msgbox "No Data Record"
End If

Answer 4

Adodc2.Recordset.Delete
后面加上
Adodc2.Recordset.Update呢？

Answer 5

delete Trainee
全部