Delphi TADOStoredProc [1] 的使用

1、介绍

　　TADOStoredProc 存储过程组件

2、常用参数

  • ProcedureName    //存储过程名称
  • Parameters   　　//参数设置　　例如：Parameters.ParamByName('@a1').Value
  • ExecProc;  　　//执行存储过程

3、操作示例：

3.1 动态参数序号赋值

DataSource1.DataSet:=ADOStoredProc1;
with ADOStoredProc1 do
begin 
  Close;
  ProcedureName:='存储过程名称';
  Parameters.Refresh;
  Parameters[1].Value:=传值1;
  Parameters[2].Value:=传值2;
  Open;
end;　

3.2 动态参数名称赋值

DataSource1.DataSet:=ADOStoredProc1;
with ADOStoredProc1 do
begin 
  Close;
  ProcedureName:='存储过程名称';
  Parameters.Refresh;
  Parameters.ParamByName('@a1').Value:=传值1;
  Parameters.ParamByName('@a2').Value:=传值2;
  Open;
end;　

3.3 取存储过程返回值　

with ADOStoredProc1 do
begin //取存储过程返回值
  Close;
  ProcedureName:='带返回值的存储过程';
  Parameters.Refresh;
  Parameters.ParamByName('@a1').Value:=传值1;
  Parameters.ParamByName('@fanhui').Value:=null;
  ExecProc;
  Edit1.Text:=Parameters.ParamByName('@fanhui').Value;
end;

3.4 取返回的多个结果集

var 
    i:integer;
begin 
  DataSource1.DataSet:=ADODataSet1;
  with ADOStoredProc1 do 
  begin
    Close;
    ProcedureName:='存储过程';
    Open;
    ADODataSet1.Recordset:=ADOStoredProc1.Recordset;
    ADODataSet1.Recordset:=ADOStoredProc1.NextRecordset(i);  //下一个结果集
  end;
end;

　　

 

创建时间：2020.09.16　　更新时间：