Delphi TADOStoredProc [1] 的使用
2020-12-22 07:26
标签：设置 value odata recordset 参数 ado begin store color Delphi TADOStoredProc [1] 的使用 1、介绍 TADOStoredProc 存储过程组件 2、常用参数 3、操作示例： 3.1 动态参数序号赋值 3.2 动态参数名称赋值 3.3 取存储过程返回值 3.4 取返回的多个结果集 创建时间：2020.09.16 更新时间： Delphi TADOStoredProc [1] 的使用 标签：设置 value odata recordset 参数 ado begin store color 原文地址：https://www.cnblogs.com/guorongtao/p/13679121.html
DataSource1.DataSet:=ADOStoredProc1;
with ADOStoredProc1 do
begin
Close;
ProcedureName:=‘存储过程名称‘;
Parameters.Refresh;
Parameters[1].Value:=传值1;
Parameters[2].Value:=传值2;
Open;
end;
DataSource1.DataSet:=ADOStoredProc1;
with ADOStoredProc1 do
begin
Close;
ProcedureName:=‘存储过程名称‘;
Parameters.Refresh;
Parameters.ParamByName(‘@a1‘).Value:=传值1;
Parameters.ParamByName(‘@a2‘).Value:=传值2;
Open;
end;
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;
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;
上一篇：WPF打开时窗体居中
下一篇：深入理解C#的装箱和拆箱（一）
文章标题：Delphi TADOStoredProc [1] 的使用
文章链接：http://soscw.com/index.php/essay/37520.html