删除记录出错,大家看看是什么问题

Question

以下是一段删除所有记录的代码,我发现它不能删除所有的记录,请问是什么原因?
rstcourseclassroom.MoveLast
rstcourseclassroom.MoveFirst
Do While Not rstcourseclassroom.EOF()
   rstcourseclassroom.Delete
   rstcourseclassroom.Requery
   If rstcourseclassroom.EOF() Then
      rstcourseclassroom.MoveLast
   Else
      rstcourseclassroom.MoveNext
   End If
Loop

Answer 1

rstcourseclassroom.ActiveConnection.Execute "delete from 表名"

Answer 2

rstcourseclassroom.Delete只是删除某条记录而已，你要是想删除所有符合条件的记录，可以这样：
cn.Execute("delete from 表 where 条件") '其中cn为数据库的连接对象

Answer 3

conn.execute "truncate table 表名"