Recordcount returns value of -1

Question

我有下面的代码，它可以正确地检索数据，但总是为rs.RecordCount返回值-1。请提供帮助。

    Sub TEST()
        Dim rs As Object
        Set rs = CreateObject("ADODB.Recordset")
        Dim SQLSTR As String, MYVAL As String
        MYVAL = InputBox("Enter Query")
        SQLSTR = " " & MYVAL & ""
        CONNECT_TO_DWHS
        rs.Open SQLSTR, PERSONALDBCONT
        ActiveSheet.Cells(2, 1).CopyFromRecordset rs
        ActiveSheet.Cells(1, 1).Select
            Debug.Print rs.RecordCount
        CLOSE_CONNECTION_TO_SQL

    End Sub

Answer 1

ADO记录集将显示此信息，直到它们第一次跳到末尾。所以只需使用rs.Movelast，然后使用rs.MovFirst.

现在应该可以了…

希望这能帮助

Answer 2

rs.CursorType=3看起来工作