为什么我的记录集总数只有一个？

[hlf]

dim cn As DAO.Database
dim res As DAO.Recordset
Set cn = OpenDatabase(App.Path & "\db1.mdb")
Set res = cn.OpenRecordset("abc", dbOpenDynaset)
MsgBox res.RecordCount

结果为'1'。
如果打开记录集的类型为'表集型'或'快照型'的话，又不能
使用findfirst等命令。

[derek]

再open res之前加下面一句
res.CursorLocation = adUseClient

[cornerxu]

就用 dbOpenTable
我觉得不存在问题

[foolishtiger]

dim cn As DAO.Database
dim res As DAO.Recordset
Set cn = OpenDatabase(App.Path & "\db1.mdb")
Set res = cn.OpenRecordset("abc", dbOpenDynaset)

'加入
res.MoveLast
res.MoveFirst

MsgBox res.RecordCount

这样得到的RecordCount就正确了.

[hlf]

TO:foolishtiger(吴文智)　
谢谢！为什么用BOF或EOF不能判断出指针已经到达记录头或记录尾呢？
我的方法如下：
If Not res.BOF Then If Not res.EOF Then
res.MovePrevious res.MoveNext
'赋值 '赋值
。 。
。 。
。 。
End If End If
记录指针已经到达记录头或记录尾了，但程序无法判断出，执行赋值语句马上出错。

[foolishtiger]

判断时未到,可判断后,你又移动了指针了,这时就到了,当然会出错了.
把Move语句放到if结构前.
或用Do Loop循环.

[hlf]

谢谢，没想到犯了一个低级错误，哈哈哈！！！！