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 Recordsets将永远显示这一点，直到他们第一次跳到最后。所以只需使用rs.Movelast，然后使用rs.MoveFirst。

现在应该没问题......

希望这有帮助

Answer 2

rs.CursorType = 3 似乎工作

Recordcount返回-1的值

2 个答案: