以ado为例,新增一个ADOStoredProc1,设置其connection属性为正确的连接,设置其procedurename为你所说的存储过程的名称,执行其open方法(或者execproc)。
在SQL上建了以下存储过程,请问在delphi中要如何调用?
3.delphi 程序中调用(使用ADOConnect 和 ADOStoreProc )
procedure TForm1.btn1Click(Sender: TObject); Var BudgetAmt:Single; begin with ADOSP1 do begin ProcedureName :='GetBudgetAmt'; Parameters.Refresh; //必须有本语句,刷新参数 Parameters.ParamByName('@DeptID').Value:=EdtDept.Text; Parameters.ParamByName('@FeeDate').Value:=EdtFeeDate.Text; Parameters.ParamByName('@FeeCode').Value:=EdtFeeCode.Text; Parameters.ParamByName('@FeeType').Value:=EdtFeeType.Text; Parameters.ParamByName('@BAType').Value:=EdtBAType.Text; Parameters.ParamByName('@FeeAmt').Value:=0.00; ExecProc; BudgetAmt:=Parameters.ParamByName('@FeeAmt').Value; edtFeeAmt.Text:=Format('%.2f',[BudgetAmt]); end; end;