Dephi调用oracle存储过程遇到的问题!!!

[njypch]

采用DBEXPRESS的TSQLStoredProc和TClientDataSet来执行Oracle的存储过程来返回结果集.
以下代码在按钮事件中执行:
DM_Find2.cds_ydhz.Params.Clear;
DM_Find2.cds_ydhz.Params.CreateParam(ftString, 'startdate', ptInput);
DM_Find2.cds_ydhz.Params.CreateParam(ftString, 'enddate', ptInput);
DM_Find2.cds_ydhz.Params.CreateParam(ftCursor, 'rc', ptOutput);
DM_Find2.cds_ydhz.Params.ParamByName('startdate').Value := FormatDateTime('yyyymmdd',StrToDate(StartDate));
DM_Find2.cds_ydhz.Params.ParamByName('enddate').Value := FormatDateTime('yyyymmdd',StrToDate(EndDate));
//DM_Find2.sqldst_ydhz.Close;
DM_Find2.cds_ydhz.close;
//DM_Find2.sqldst_ydhz.Open;
DM_Find2.cds_ydhz.Open;

第一次执行正常,再次执行时报错:
ORA-06550: line 2, column 3:
PLS-00306: wrong number or types of arguments in call to 'FIND_YDHZ'
ORA-06550: line 2, column 3:
PL/SQL: Statement ignored.

存储过程经测试没问题,而且报错时,存储过程执行正常.经测试发现,打开sqldst_ydhz时正常,是在打开cds_ydhz时报错.
期待高手的指点,非常感谢!!!

[火龙岛主]

DM_Find2.cds_ydhz.close;
DM_Find2.cds_ydhz.Params.Clear;
DM_Find2.cds_ydhz.Params.CreateParam(ftString, 'startdate', ptInput);
DM_Find2.cds_ydhz.Params.CreateParam(ftString, 'enddate', ptInput);
DM_Find2.cds_ydhz.Params.CreateParam(ftCursor, 'rc', ptOutput);
DM_Find2.cds_ydhz.Params.ParamByName('startdate').Value := FormatDateTime('yyyymmdd',StrToDate(StartDate));
DM_Find2.cds_ydhz.Params.ParamByName('enddate').Value := FormatDateTime('yyyymmdd',StrToDate(EndDate));
DM_Find2.cds_ydhz.Open;

[bdmh]

先关掉cds_ydhz试试
因为第一次,cds_ydhz默认是关闭的,
第二次cds_ydhz已经出于打开状态

[sandy520]

[Quote=引用 2 楼 bdmh 的回复:]
先关掉cds_ydhz试试
因为第一次,cds_ydhz默认是关闭的,
第二次cds_ydhz已经出于打开状态
[/Quote]
来晚了，我也认为就是这个原因。

[njypch]

要这么简单就好了.
我代码里已经有了关闭动作啊.
----//DM_Find2.sqldst_ydhz.Close;
DM_Find2.cds_ydhz.close;

我试过,在事件中增加关闭数据库连接,再打开,还是一样.

[njypch]

1楼回答正确.本来我也是先关闭再处理参数的,后来
测试过程中把关闭动作移动到后面来的.唉,人年纪大了,就是容易犯低级错误.
谢谢大家啊.