拖一个控件到窗体,设置连接, 设置ProcedureName with ADOStoredProc1 do begin Close ; Parameters.ParamByName('@参数1).Value := '值1'; Parameters.ParamByName('@参数2').Value := '值2'; Open; //如果没有返回数据集,就使用ExecProc; if Parameters.ParamByName('@返回值1').Value = '0' then ..... .....
with ADOStoredProc1 do
begin
Close ;
Parameters.ParamByName('@参数1).Value := '值1';
Parameters.ParamByName('@参数2').Value := '值2';
Open; //如果没有返回数据集,就使用ExecProc;
if Parameters.ParamByName('@返回值1').Value = '0' then
.....
.....