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

Question

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

Answer 1

首先要Rs.CursorLocation = adUseClient

Answer 2

cnn.CursorLocation = adUseClient

Answer 3

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