VBA Recordset.GetRows返回不完整结果集

Question

我遇到了这个奇怪的问题：

我有一个MSSQL存储过程性能差，所以我重写它。重写后，如果从SSMS或控制台调用，新的存储过程仍然可以返回相同的结果。但是当被VBA调用时，返回结果的几列是空的。

设置康恩=新ADODB.Connection conn.Open strConnection

Set rs = New ADODB.Recordset 

    Set cmd = New ADODB.Command 
    cmd.ActiveConnection = conn 
    cmd.CommandText = "[ops].[spReportsDoAnalyticsForAllProducts]" 

    cmd.CommandType = adCmdStoredProc 
    cmd.Parameters.Refresh 
    cmd.Properties.Refresh 

    cmd.Parameters.Append cmd.CreateParameter("runId", adInteger, adParamInput) 
    cmd("runid") = runid 

    Set rs = cmd.Execute 

    If Not rs.EOF Then 
     data = rs.GetRows 
     hasData = True 

    End If 

    rs.Close 
    Set rs = Nothing 

    conn.Close 
    Set conn = Nothing 

以上是VBA代码，rs.GetRows是返回我不完全的结果之一。我被迫使用下面的代码来替换它，并手动填充的结果VBA：

While Not rs.EOF 
     ReDim Preserve data(rs.Fields.count - 1, count) 
     For i = 0 To rs.Fields.count - 1 
      data(i, count) = rs.Fields(i).Value 
     Next i 
     count = count + 1 
     rs.MoveNext 
    Wend 

我想知道造成GetRows的没有工作，但场仍在工作的真正原因，还是有任何替代品，我可以使用，而不是while循环。

Answer 1

获取行需要一个参数，即要检索的行数。请参阅下面的MSDN。

http://msdn.microsoft.com/en-us/library/windows/desktop/ms677500(v=vs.85).aspx

如果您从您的存储过程返回零或N的返回码。

然后使用该数字作为GetRows（）的参数。那么你应该设置。

因为我来自VB 2.0以上，我习惯了rs.Fields。

祝你好运。