COMPUTE 如何得到其返回值

Question

没办法，分开做吧，用两个语句分别得到两个recordset。
或者通过客户段端的处理得到小计数。

Answer 1

得到多结果集：NextRecordset
Dim cmd As New ADODB.Command
Dim rs As ADODB.Recordset    Cmd.ActiveConnection = "DSN=MySamples;UID=sa"
Cmd.CommandText = "MyNextProc"
Cmd.CommandType = adCmdStoredProcSet rs = Cmd.Execute()
While Not rs Is Nothing
    If (Not rs.EOF) Then
        Debug.Print rs(0)
    End If
    Set rs = rs.NextRecordset()
Wend