记录计数返回值-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.MoveFirst。

现在应该可以了...

希望这可以帮助

Answer 2

rs.CursorType = 3似乎可以工作