Office中国论坛/Access中国论坛

标题: 紧急求助：DAO的怪问题 [打印本页]

作者: richar 时间: 2004-9-25 01:39
标题: 紧急求助：DAO的怪问题
今日我的ACCESS2000突然出了问题,这是源代码：

Dim rec As DAO.Recordset

Set rec = CurrentDb().OpenRecordset("select * from qpzft")

（无自动编号字段,qpzft是一个SQL表)

Debug.Print rec.RecordCount

rec.Close

可是返回的结果总是1,我换了其它的表也是一样，在其它的电脑上

用ACCESS测试结果也是一样，小弟真不是百思不得其解.

[此贴子已经被作者于2004-9-24 17:39:09编辑过]

作者: skylark 时间: 2004-9-25 03:54
To richar

im rec As DAO.Recordset

Set rec = CurrentDb().OpenRecordset("select * from qpzft")

（无自动编号字段,qpzft是一个SQL表)rec.MoveLast

rec.movefirstDebug.Print rec.RecordCount

rec.Close试试？

作者: richar 时间: 2004-9-25 16:18
楼主，thank you very much,Done it.

那为什么我以前都没有那样做也可以呀，

MicroSoft MSDN也都没有那样做,Why?

[此贴子已经被作者于2004-9-25 8:20:03编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)