記錄計數返回值-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似乎可以工作