存储过程返回记录集问题

Question

建立表(与过程返回的一样)
insert table1 exec proc_name

Answer 1

http://expert.csdn.net/Expert/topic/2486/2486349.xml?temp=.9402429
--存储过程例子:
create proc p_test
as
select * from  表1
select * from  表2
select * from  表3
select * from  表4
go注意不要在存储过程开始加上
set nocount on
用ADO的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