为什么我下面的SQL语句查询的记录数为-1？电容表里面有很多数据的。

[Baby]

Private Sub Command1_Click()
Dim sql$, rs As New ADODB.Recordset, sCon$
Dim cnn As New ADODB.Connection
    
    sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
            & "D:\customer_lib\30所UserExcelDB.mdb" & ";Persist Security Info=False"
    cnn.Open sCon
    sql = "select * from 电容 "
    Set rs = cnn.Execute(sql)
    On Error Resume Next
    rs.MoveLast: rs.MoveFirst
    On Error GoTo 0
    Debug.Print rs.RecordCount
End Sub

[flfq]

首先要

Rs.CursorLocation = adUseClient

[Baby]

[Quote=引用 1 楼 flfq 的回复:]
首先要

VB code

Rs.CursorLocation = adUseClient
[/Quote]
试过了，不行。还是查询出-1个记录。

[Baby]

自己顶

[vbman2003]

cnn.CursorLocation = adUseClient

[Baby]

[Quote=引用 4 楼 vbman2003 的回复:]
cnn.CursorLocation = adUseClient
[/Quote]
就是这个原因，为什么呀？

[vbman2003]

recordcount这个只有客户端游标才能正确返回。不设置cnn.CursorLocation = adUseClient的话默认是服务端游标，这个游标下不能得到recordcount...
因为你用了set rs=cnn.execute(sql)，这个情况下rs继承cnn游标。所以要设置cnn.CursorLocation = adUseClient

[Baby]

[Quote=引用 6 楼 vbman2003 的回复:]
recordcount这个只有客户端游标才能正确返回。不设置cnn.CursorLocation = adUseClient的话默认是服务端游标，这个游标下不能得到recordcount...
因为你用了set rs=cnn.execute(sql)，这个情况下rs继承cnn游标。所以要设置cnn.CursorLocation = adUseClient
[/Quote]
很详细，谢谢！