一个access数据库的奇怪问题

Question

不知大家有没有见过这样的问题。在access数据库中，其中的一个表里边明明一条记录都没有，而程序里边却显示有100多条记录。表刚建立好的时候正常，在运行一周多以后发生的。这多半是我程序的问题，我还没有找到。但为什么库里没有记录，而程序却显示有，奇怪。求大家帮我分析分析

Answer 1

在foxpro 中有完全删除 和不完全删除 不完全删除就是在记录前 加一个记号 在查询的时候是没 显示的 需要显示 要加产参数
不知道 access有没有这种可能

Answer 2

TO yoki(小马哥--鬓微霜，又何妨)  
你是怎么判断有100多条记录的？又是怎么判断表里无数据的？？1.我在access中直接打开表里边就没有记录2.判断记录的代码为：
Set DB = OpenDatabase(App.Path & "\aaa.mdb")
Set RECS = DB.OpenRecordset("start")
I = RECS.RecordCount
I就显示为188条了

Answer 3

会不会是RECS.RecordCount出了问题？你先写句
recs.movelast再
RECS.RecordCount
看结果怎么样？

Answer 4

如果用
Print RECS.RecordCount或msgbox RECS.RecordCount
会显示多少呢?

Answer 5

要么建立了空记录，
你打开access数据库看看不就得了

Answer 6

//判断记录的代码为：
//Set DB = OpenDatabase(App.Path & "\aaa.mdb")
//Set RECS = DB.OpenRecordset("start")
//I = RECS.RecordCount
//I就显示为188条了建议使用：
Dim Rs as Recordset
Set Rs=DB.OpenRecordset("select count(*) from start",DBOpenSnapshot)
I=Rs.Field(0)
'此处的I即为表的记录数
'本方法得到的记录条数准确！
另一种方法就如 winterball(羊羊) 所述：
先MoveLast，再使用RecordCount属性。