标签：设置 value odata recordset 参数 ado begin store color
Delphi TADOStoredProc [1] 的使用
1、介绍
TADOStoredProc 存储过程组件
2、常用参数
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 更新时间：
标签：设置 value odata recordset 参数 ado begin store color
原文地址：https://www.cnblogs.com/guorongtao/p/13679121.html
