为什么我的数据库里的最后一条记录删除出错？

Question

name应该是数据库中的一个表名。

Answer 1

循环内删除最后一条记录后又执行了一遍rs.delete，所以出错，
db.Execute "Delete From name"即可删除所有记录。

Answer 2

楼上说的对啊！
先判断
IF 表中的记录数=1 THEN
db.Execute "Delete From name"
ELSE
do while not rs.eof and not rs.bof
    rs.movefirst
    rs.delete
loop
END IF

Answer 3

不好意思是我写错了name 是表名那么怎么知道 表中的记录数是多少呀？不要说用循环得到的呀！delete from name 是删除所有的记录还是删除当前的记录呀

Answer 4

Use DAO:
if not rs.bof then rs.movefirst
if not rs.eof then rs.movelast
debug.print rs.recordcountUse ADO:
if not (rs is nothing) then debug.print rs.recordcountdelete from tablename-------->delete all records in table

Answer 5

正确应当是：
dim db as database
dim rs as recordset
set db=opendatabse(path+"数据库文件名.mdb")
set rs=db.openrecordset("name")   'name为数据表中的一个字段
    rs.movefirst
do while not rs.eof 
    rs.delete
    rs.movenext
loop