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　　更新時間：