怎么得到多个存储过程返回值！

Question

怎么样才能在delphi中接受SQL存储过程多结果集返回值
例如这么一个存储过程
Create proc   ab
 @a1 char(8)
as
declare @PROCEDURE_ID int
select * from table1 
SELECT @PROCEDURE_ID = -80030000
begin
   RETURN @PROCEDURE_ID - 301 --没有记录返回
 end
我这样去调用
declare @returnva int exec @returnva =ab 988 select @returnva
我得到的结果集是两个，一个是SELECT的结果集，另外一个是@returnva
我如果在DELPHI中放一个ADOQUERY
这样的话我只能返回一个结果了。另外一个怎么样才能得到另外一个结果

Answer 1

将参数设为OUTPUT类型。
 Create proc ab
 @a1 char(8)，
 @a2 Varchar(8) OutPut,
 @a3 Varchar(8) OutPut,
 @a4 Varchar(8) OutPut,
 as  
  select @a2=a2,@a3=a3,@a4=a4 from table1 where a1=@a1
  Return 0 然后在程序中exeproc后读AdoStoredProc1.Params[2].asstring,
AdoStoredProc1.Params[3].asstring,
AdoStoredProc1.Params[4].asstring