dephi中怎么执行存储过程?

Question

dephi中怎么执行存储过程?
也可以介绍点资料
多谢~!

Answer 1

参考:
dephi里执行存储过程的代码
ADOP : TADOStoreDProc
with ADOP do
begin           
   Active := false;
   ProcedureName := 'PRO1'; //存储过程名
   Parameters.Clear;
   (*创建存储过程的参数*)
   Parameters.CreateParameter('@AAAA, ftstring,pdInput, 10, Null);
   Parameters.CreateParameter('@IVALUE1', ftInteger, pdInput, 10,Null);
   Parameters.CreateParameter('@IVALUE2', ftInteger, pdInput,10, Null);
   Parameters.CreateParameter('@IVALUE3', ftInteger, pdInput,10, Null);
   Prepared := True;
   (*向存储过程传递参数*)
   Parameters.ParamByName('@AAAA').Value := 输入;
   Parameters.ParamByName('@IVALUE1').Value := 输入;
   Parameters.ParamByName('@IVALUE2').Value := 输入;
   Parameters.ParamByName('@IVALUE3').Value := 输入;
   ExecProc;
End;

Answer 2

declare 参数类型    //定义参数
set 参数= 值用AdoQuery执行
AdoQuery.Close;
AdoQuery.sql.clear;
AdoQuery.sql.add(exec proceduerName);
AdoQuery.excsql;
AdoQuery.open;