如何调用存储过程默认返回

[fspaul]

with form1.ADOStoredProc_jjqs do
Parameters.Clear;
Parameters.CreateParameter('@RETURN_VALUE',ftinteger,pdReturnValue,0,0);
Parameters.CreateParameter('@RQ',ftstring,pdinput,10,'');
Parameters.CreateParameter('@message',ftstring,pdoutput,20,'');
Parameters.ParamByName('@RQ').Value:=b_rq;
end;
try
form1.ADOStoredProc_jjqs.ExecProc;
except
showmessage('error');
end;
showmessage(Parameters.ParamByName('@return_value').Value
运行时提示参数太多。
按道理‘@return_value'是默认的参数，但如果不Creat时，又说找不到参数。

何解？谢谢！

[hjx000]

应该不要定义的

[fhuibo]

如果存储过程使用默认值就不用给该参数传值

[fspaul]

to: tiankj()
这个我知道，我是想取存储过程中的return -1的'-1'值，在delphi里是默认的‘return_value’参数。但在程序创不创建该参数时都报错。

[fspaul]

ok了，原来return_value的定义必须放在其他参数的前面，谢谢各位！

[fspaul]

我的问题是怎样取得存储过程返回的默认值

[tiankj]

spcPrice.Parameters.ParamByName('@Custcd').Value:=Acustcd;
spcPrice.Parameters.ParamByName('@Custcls').Value:=Acustcls;
spcPrice.Parameters.ParamByName('@Cinvcd').Value:=Ainvcd;
spcPrice.Parameters.ParamByName('@Cinvcls').Value:=Ainvcls;
spcPrice.Parameters.ParamByName('@Dnotedate').Value:=Dnotedate;
spcPrice.Parameters.ParamByName('@CCurcycd').Value:=Acurcycd;
spcPrice.Parameters.ParamByName('@iprice').Value:=null;//返回单价
spcPrice.ExecProc;

aprice:=spcPrice.Parameters.ParamByName('@iprice').Value; //单价。