ADODB RecordSet.RecordCount屬性始終返回-1

Question

下面的代碼正確導出數據，但是我的debug.print行總是給出-1。我想檢索debug.print聲明中的行數。請提出什麼是錯的。

Sub TEST() 

     Dim rs As Object 
     Dim iCols As Integer 
     Set rs = CreateObject("ADODB.Recordset") 
     On Error GoTo ERR 
     Dim SQLSTR As String, MYVAL As String 
     MYVAL = InputBox("Enter Query") 
     SQLSTR = " " & MYVAL & "" 
     CONNECT_TO_DWHS 
     rs.Open SQLSTR, PERSONALDBCONT 

      For iCols = 0 To rs.Fields.Count - 1 
       ActiveSheet.Cells(1, iCols + 1).Value = rs.Fields(iCols).Name 
      Next 
     Debug.Print rs.RecordCount 
     ActiveSheet.Cells(2, 1).CopyFromRecordset rs 
     ActiveSheet.Cells(1, 1).Select 

     CLOSE_CONNECTION_TO_SQL 

      With ActiveWindow 
       .SplitColumn = 0 
       .SplitRow = 1 
       .FreezePanes = True 
      End With 

     Exit Sub 

    ERR: 
     CLOSE_CONNECTION_TO_SQL 
     MsgBox "There was an error" 

    End Sub 

Answer 1

嘗試指定光標位置。在打開連接之前指定光標位置。

rs.CursorLocation = adUseClient 
rs.Open SQLSTR, PERSONALDBCONT 
For iCols = 0 To rs.Fields.Count - 1 
    ActiveSheet.Cells(1, iCols + 1).Value = rs.Fields(iCols).Name 
Next 
Debug.Print rs.RecordCount 

請閱讀這篇文章：http://www.geeksengine.com/article/recordcount-ado-recordset-vba.html

Answer 2

當你打開一個RecordSet爲ForwardOnly（默認值，如果沒有明確的聲明遊標類型）RecordCount屬性返回-1。

更多檢查here。