新手请教关于recordset 的返回记录数问题，谢谢大家！

[HardThink]

前面略
读某表（记录较多）采用如下方法能够或者RowCount 值
rs.Open sql, sqlConn, adOpenKeyset, adLockReadOnly
'数据填充
If Not rs.EOF Then
rs.MoveLast
rs.MoveFirst
RowCount = rs.RecordCount
Else
RowCount = 0
End If
采用如下方法
rs.Open sql, sqlConn, adOpenKeyset, adLockReadOnly
'数据填充
RowCount = rs.RecordCount
End If
RowCount=-1 这是为什么？谢谢大家！

[cnlyh]

在建立数据库连接的地方加这么一句
sqlConn.CursorLocation = adUseClient
就可以了。

[null1027]

-1 就是说vb不知道有多少行

rs.Open sql, sqlConn, adOpenKeyset, adLockReadOnly
这行语句后面跟的参数是很有区别的，你把adOpenKeyset换一下，

[daisy8675]

sqlConn.CursorLocation = adUseClient

rs.Open sql, sqlConn, 3，3

[wojiudaofen]

adOpenKeyset?应该不会呀，你用的是adOpenDynamic吧，动态游标倒是会返回-1。

[wojiudaofen]

adLockReadOnly这个参数造成的。

[wojiudaofen]

上面那句是错的，忽略不计。

[MagicianLiu]

只有静态游标或键集游标可以返回记录个数，即使是这两个游标，rs.RecordCount也会受其他影响(例如锁)不一定能返回个数。
不能信任rs.RecordCount的返回结果。如果需要的话。
例如：pubs数据库里的Authors表
rs.open "select count(*) from Authors select * from Authors",con,adOpenKeyset, adLockReadOnly

Rows=rs(0)
Set rs=rs.NextRecordset

[MagicianLiu]

上面代码不适合AC数据库

[toumingkongjian]

可以这样：
Dim count As Integer
Do Until rs.EOF
count = count + 1
rs.MoveNext
Loop
End Sub

[wojiudaofen]

楼上的做法也太奢侈了吧。

[null1027]

返回来看， 个人觉得 MagicianLiu(魔术师·刘) 的做法算是比较好的