delphi调用sql中的存储过程1

本文主要是介绍delphi调用sql中的存储过程1，对大家解决编程问题具有一定的参考价值，需要的程序猿们随着小编来一起学习吧！

以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;

这篇关于delphi调用sql中的存储过程1的文章就介绍到这儿，希望我们推荐的文章对大家有所帮助，也希望大家多多支持为之网！