delphi 中如何调用sql 存储过程

最新推荐文章于 2023-11-16 10:56:56 发布

转载最新推荐文章于 2023-11-16 10:56:56 发布 · 787 阅读

Delphi 专栏收录该内容

5 篇文章

订阅专栏

本文介绍在Delphi中通过TADOStoredProc组件及ADOQuery组件调用SQL存储过程的方法，并提供具体示例代码，展示如何设置输入参数、执行存储过程及获取返回值。

delphi 中如何调用sql 存储过程

使用TADOStoredProc组件,可以，给你举个例子好了

with ADOStoredProc1 do
begin
Close;
Parameters.Clear;
ProcedureName:='SaveDate_dbzsm'; //存储过程名称
Parameters.CreateParameter('@v_wlid', ftString, pdInput, 20, fgUnassigned);//传入参数（数字代表长度）
Parameters.CreateParameter('@v_ddid', ftString, pdInput, 20,fgUnassigned); //传入参数
Parameters.CreateParameter('@v_tm', ftString, pdInput, 500,fgUnassigned); //传入参数
Parameters.CreateParameter('@v_returnstr', ftString, pdoutput, 30,fgUnassigned); //返回值
//为参数赋值
Parameters[0].Value :=trim(edit1.text);
Parameters[1].Value := trim(edit2.text);
Parameters[2].Value := trim(edit2.text);
Parameters[3].Value := ' ';

ExecProc;
reuturn:= Trim(Parameters.ParamByName('v_returnstr').Value);
end;
reuturn就是返回值，你可以放到stringgrid 里面。

也可以用adoquery 连接存储过程。

with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('exec SaveDate_dbzsm :wlid,:ddid,:tm,:returnstr output');
Parameters.ParamByName('wlid').Value :=trim(edit1.text);
Parameters.ParamByName('ddid').Value :=trim(edit2.text);
Parameters.ParamByName('tm').Value := trim(edit3.text);
Parameters.ParamByName('returnstr').Value := ' ';
Open;
reuturn:= Parameters.ParamByName('returnstr').Value;
end;