sql - Recordcount 返回值为 -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

rs.CursorType = 3 似乎工作

Answer 2

ADO 记录集将永远显示这一点，直到它们第一次跳到最后。所以只需使用 rs.Movelast，然后使用 rs.MoveFirst。

现在应该没问题...

希望这可以帮助