RECORDSET对象的记录个数怎么得到

ncow

RECORDSET对象(RST2)的记录个数怎么取出啊,我写RST2.RECORDCOUNT是不对的,这个怎么写啊

Set rst2 = CreateObject("adodb.recordset")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='Excel 8.0';data source=" & ThisWorkbook.FullName
rst2.Open "select distinct jzm from [data$]", conn, 2, 3

dim m

m=rst2.recordcount

rst2的记录是有5个的,但m返回的结果为-1,请问如何写啊

sunsoncheng

帮楼主顶一个

我知道产生的问题在那，但我不明白根本的原因，也想借贵贴，向高人问路：

rst2.Open "select distinct jzm from [data$]", conn, 2, 3

这一句中的2————其实是代表动态游标（0也是含有动态的成份），VBA中在  动态游标 情况是得不到相关的记录行数的（在VB6。0的一些例子上好象又行，不太明白个中原因）

2或者0不行，1或3就可以即：

conn, 2（0）, 3   不行   而conn, 1（3）, 3  OK

之前也发过多贴问关于游标与锁定的选择是如何配合的，但一直没有答案，希望楼主能带来好运！

[此贴子已经被作者于2006-6-30 12:17:10编辑过]

ncow

这是我网上找的资料

"这是指打开的记录集的游标方式，和锁定方式

光标
Const adOpenForwardOnly　　 = 0 ''游标只向前浏览记录，不支持分页、Recordset、BookMark
Const adOpenKeyset　　　　 = 1 ''键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark
Const adOpenDynamic　　　　 = 2 ''动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。
Const adOpenStatic　　　　 = 3 ''静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动

锁定
Const adLockReadOnly　　　　= 1 ''锁定类型，默认的，只读，不能作任何修改
Const adLockPessimistic　　 = 2 ''当编辑时立即锁定记录，最安全的方式
Const adLockOptimistic　　　= 3 ''只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等
Const adLockBatchOptimistic = 4 ''当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的

注意：一般来说浏览数据用1,1，添加数据用1,2，修改删除数据用2,3"

我用的CONN,2,3都是在这里学的.

请高人指导!!!!!

qee用

参考:
http://club.excelhome.net/viewthread.php?tid=168546&replyID=&skin=0
注:原解答不是很严谨,具体请参考ADO/recordcount帮助.

爱歌学习

另外要想使用 rst2.recordcount 得到记录个数好像一定得设置引用才行，即使你采用了 adOpenKeyset 或 adOpenStatic 参数？

dengni

我也遇到过类似问题,后用下面的方法得到了记录的总数.你试试,原因不知道,是试出来的

rst2.Open "select distinct jzm from [data$]", conn, adOpenKeyset, adLockPessimistic

ghl-ghl

http://www.yesky.com/imagesnew/software/ado/index.html

去这个网址查一下

爱歌学习

试验结果：要使用 adLockPessimistic 参数，也是一定要设置引用。

爱歌学习

QUOTE:

以下是引用ghl-ghl在2006-6-30 17:22:59的发言：

http://www.yesky.com/imagesnew/software/ado/index.html

去这个网址查一下

不错，在线 ADO 手册！

wangrunqun

Stpath = ThisWorkbook.Path & Application.PathSeparator & "DB1.mdb" '设定路径

strSQL = "查询语句"

'ADO连接到ACCESS
cnnAccess.Provider = "Microsoft.Jet.OLEDB.4.0"
cnnAccess.Open "Data Source =" & Stpath & ";Jet OLEDB:Database Password=" & ""
rstAnswers.Open strSQL, cnnAccess, adOpenKeyset, adLockOptimistic

MsgBox "共找到" & rstAnswers.RecordCount & "条记录"

不知道这样能不能帮到楼主,