Question

vb recordcount的值为什么总是返回1？

数据表m.db
表名【mm】
dim rs as new adodb.recordset
sql语句 = "select * from [mm] where n='" & text1.text & "'"
n是字段名
执行语句 = rs.open.sql,conn,3,2
明明表中有12条记录
却返回数值总是1

Answer 1

VB中建立数据集后执行 rs.MoveLast 后才能获得准确的 RecordCount 值
所以在使用 rs 的 RecordCount 值做判断时要注意:
1、获取记录个数
先执行 rs.MoveLast
再取记录数 rs.RecordCount
2、别利用 RecordCount 来判断 rs 是否有记录，因为具有不可靠性
除非先执行 rs.MoveLast 再根据 rs.RecordSet 的值来判断
可靠的方式是：用rs.Eof and rs.Bof 来做判断

Answer 2

在 rs open之前，先设定 rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
adodb.recordset 默认使用的是服务器端游标，改为客户端游标就行了

Answer 3

缺少循环........