Delphi TADOStoredProc [1] 的使用

Delphi TADOStoredProc [1] 的使用

1、介绍

　　TADOStoredProc 存储过程组件

2、常用参数

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

3、操作示例：

3.1 动态参数序号赋值

?

1 2 3 4 5 6 7 8 9 10

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

3.2 动态参数名称赋值

?

1 2 3 4 5 6 7 8 9 10

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 取存储过程返回值　

?

1 2 3 4 5 6 7 8 9 10

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 取返回的多个结果集

?

1 2 3 4 5 6 7 8 9 10 11 12 13

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　　更新时间：