【结帖】存储过程执行出错？？？？急急**

etqxq

procedure TMainForm.Button1Click(Sender: TObject);
var SP :TStoredProc;
    vOutStr :String;
begin
  vOutStr:='';
  SP:=TStoredProc.Create(Self);
  SP.ConnectionString:='DATABASEURL=Biz:\YWKJ\StoredConn.Database';
  SP.StoredProcName:='MYJXKH_DBFZXYRLJ_PRO';
  SP.Params.Clear;
  SP.Params.CreateParam(TFieldType.ftString,'C_BTBSJ',TParamType.ptInput);    //开始时间
  SP.Params[0].AsString := '2008-1-1';
  SP.Params.CreateParam(TFieldType.ftString,'C_ETBSJ',TParamType.ptInput);    //结束时间
  SP.Params[1].AsString := '2008-1-31';
  SP.Params.CreateParam(TFieldType.ftString,'C_TOTAL',TParamType.ptOutput);   //传出数量
  SP.Params[2].AsString := vOutStr;
  SP.Execute;
end;
刚才的贴错代码了.

你所说的方法我都试过了.
用控件的我也是试了的,

StoredProc1.Params.ParamByName('C_ETBSJ').AsString

这种也试过的.还是不行,同样的错误

etqxq

我去掉OUT参数就没有问题

我去掉OUT参数就没有问题

我去掉OUT参数就没有问题

请解决

yancm

SP.Params.CreateParam(TFieldType.ftString,'C_TOTAL',TParamType.ptOutput);   //传出数量
  SP.Params[2].AsString := vOutStr;

不要对Out参数赋值

yancm

SP.Params.CreateParam(TFieldType.ftString,'C_TOTAL',TParamType.ptOutput);   //传出数量
SP.Execute;
vOutStr:=SP.Params[2].AsString ;

etqxq

试过的,不行

yancm

重现了。是由于数据引擎引起的。楼主在服务端配置工具 sysconfig.exe 对使用了存储过程的数据库 将引擎配置为Oracle Special 即可

jiahaiminghr

楼主，问题解决了吗？

jiahaiminghr

由于长时间没有反馈，先结帖了！
有问题请开新帖。