关于SQL存储过程调用问题。。

Question

服务器上有下面存储过程CREATE PROCEDURE sp_GnzGnml
@GnzID varchar(8)='',
@RecCount int =0 OUTPUT
ASselect b.GnID,b.Gnmc,b.GnCode from GnzToGnml a,Gnml b where a.gnmlID=b.gnID and a.GnzID=@GnzID
set @RecCount=@@RowCount
我想在客户端同时获得结果集及@RecCount参数的返回值。 用TQuery组件各TStoredProc分别如何实现？
procedure TPropertyForm.FindGnzGnml(GnzID: string);
var param: TParam;
begin
  with SystemDataModule.spGnzGnml do        {sp_GnzGnml 是一个TStoredProc}
  begin
     Param:=Params.CreateParam(ftString,'@GnzID',ptInput);
     Param.Value:=GnzID;
     Param:=Params.CreateParam(ftString,'@RecCount',ptOutput);
     Param.Value:=0;
     showmessage(GnzID);
     ExecProc;      
     if Params.ParamByName('@RecCount').Value=0 then
      showmessage('no record')
     else
      showmessage('have record');
  end;
end;
将ExecProc改为OPen,会返回错误：Error Creating Cursor Handle,何解？用TStoredProc能否返回结果集？

Answer 1

当然可以返回结果集sqlserver
create proc test(@i int,@count int output)
as 
begin
  --创建临时表
  create table #t(a int ,b int ,constraint Pk_t primary key (a) )
  insert into #t select 0,1
  union all select 1,2
    select * from #t where a = @i
  set @count = @@rowcount enddelphiprocedure TForm1.Button1Click(Sender: TObject);
begin
  with ADOStoredProc1 do
  begin
    close;
    Parameters.Refresh;
    Parameters.ParamByName('@i').Value:=0;
    Parameters.ParamByName('@count').Value:=0;
    Open; //返回存储过程select的结果集   用dbgrid连接就知道了
    //  ExecProc; 不返回select的结果集
    if Parameters[0].Value=0 then showmessage('01');  //参数return_value 返回0代表存储过程返回成功
    if Parameters[2].Value = 1 then showmessage('21'); //输出参数@count 返回行数
  endend;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADOStoredProc1 do
  begin
    close;
    Parameters.Refresh;
    parameters.parambyname('@GnzID').Value:=GnzID;
      Parameters.ParamByName('@count').Value:=0;  随便也可为''    Open; //返回存储过程select的结果集   用dbgrid连接就知道了
    //  ExecProc; 不返回select的结果集
    if Parameters[0].Value=0 then showmessage('01');  //参数return_value 返回0代表存储过程返回成功
    if Parameters[2].Value = 1 then showmessage('21'); //输出参数@count 返回行数
  endend;

Answer 3

这不是BDE的问题，而是从严格意义上来说，你返回了两个数据集，所以报错。

Answer 4

但@RecCount返回值总是0，但在analyzer中查询结果集有记录

Answer 5

使用open返回结果 ,在存储过程中最后需要有Select语句，并且不包含into
使用ExecProc,则不限制，不返回结果，多用纯执行性过程。