access中查询问题

[killua820812]

Set adoCon = Application.CurrentProject.Connection
sqlStr = "select * from Test"
Set adoRS = adoCon.Execute(sqlStr)
MsgBox adoRS.RecordCount
查询Test表中所有记录，表中已添加了2条件记录，但是为什么最后消息框显示的值是-1?

[迈克揉索芙特]

Set adoCon = Application.CurrentProject.Connection
sqlStr = "select * from Test"
Set adoRS = adoCon.Execute(sqlStr)
adoRS.MoveLast
MsgBox adoRS.RecordCount

[faysky2]

使用RecordCount 来获得记录数的时候,需要设置客户端游标,否则不管记录集里是否有记录,返回值都是-1
adoCon.CursorLocation=adUseClient '设置客户端游标
Set adoCon = Application.CurrentProject.Connection
sqlStr = "select * from Test"
Set adoRS = adoCon.Execute(sqlStr)
MsgBox adoRS.RecordCount

[ZOU_SEAFARER]

adoRS.CursorType = adOpenKeyset
adoRS.LockType = adLockOptimistic
MsgBox adoRS.RecordCount

[killua820812]

应该不是指针没有移动的问题，应该EOF和BOF都是False啊。
加上movelast以后就直接报错了。

[ZOU_SEAFARER]

好象还要设置这个
adoCon.CursorLocation=adUseClient

[killua820812]

ok， 在对adoRS操作之前要设置客户端的游标，然后才能对adoRS进行操作，原来是这样的，谢谢大家。