delphi 取得存储过程中的返回值

最新推荐文章于 2021-02-23 08:13:09 发布

原创最新推荐文章于 2021-02-23 08:13:09 发布 · 5.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #存储 #parameters

Delphi 操作Sql Server 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个使用Delphi调用SQL Server存储过程的例子。通过创建输入参数和输出参数，展示了如何执行存储过程并获取返回结果。该示例适用于初学者了解Delphi与数据库交互的基本方式。

procedure TForm1.Button1Click(Sender: TObject);
var x:Integer;
begin
    with ADOStoredProc1 do
    begin

      ProcedureName := 'My_Test';
      Parameters.Clear;  
      Parameters.CreateParameter('Msg', ftstring, pdInput, 20,'test str'); //   用户输入参数 
      Parameters.CreateParameter('Return', ftInteger, pdOutput, 0, 0);      // 存储过程返回参数 
      Prepared := True; 
      ExecProc; 
      x:= Parameters.ParamByName('Return').Value ; 
      end; 
     ShowMessage(IntToStr(x));
     end;

存储过程
alter PROCEDURE[dbo].[My_Test]
  @Msg nvarchar(50),
  @Return int output
AS
declare @x int

--declare @re int

select @x=0
IF @x=0
  begin
   set @Return=11
   return 0 
  end
ELSE
 begin
       --  ...
  set @Return=2
  RETURN -1 
end