【搞定】ORACLE存储过程的问题**

李涛

//取得住院门诊号
Function TMZHJYWXX.GetZYH(LX:string):String;
var storedproc :TStoredProc;
begin
  Result :='';
  storedproc := TStoredProc.Create(Self);
  try
    storedproc.ConnectionString :='DATABASEURL=Biz:HHZYLBXXXXTHHYB.Database';
    storedproc.StoredProcName :='prc_comm_GetSequence';
    storedproc.Params.CreateParam(TFieldType.ftString,'prm_Kind',TParamType.ptInput).AsString :=LX;
    storedproc.Params.CreateParam(TFieldType.ftFMTBcd,'prm_Sequence',TParamType.ptOutput);
    storedproc.Params.CreateParam(TFieldType.ftFMTBcd,'prm_AppCode',TParamType.ptOutput);
    storedproc.Params.CreateParam(TFieldType.ftString,'prm_ErrorMsg',TParamType.ptOutput);
    storedproc.Execute;
    if storedproc.Params[2].Value =1 then
      Result := storedproc.params[1].AsString
    else
      Raise Exception.Create('未能取得住院门诊号!');
  finally
    storedproc.Free;
  end;
end;

上面是我手动写的代码，但是运行到storedproc.Execute;时会出错

atiger

请以“无效的列索引”搜索

jiahaiminghr

在现在的版本中，对存储过程控件操作时，不能代码创建参数。否则会出现1楼的错误。

可以直接为控件指定过程名称，控件会自动创建参数的，你直接调用就可以了

李涛

意思就是不能自已手动创建存储过程控件了？

jiahaiminghr

应该是可以创建TStroeProc，但是不用创建参数，指定过程名称这个属性后，参数应该自动被添加上了。

lixy

楼主看顶置贴吧

李涛

不行的，手动创建的TStroeProc参数不会自动添加上，我就是因为那样试过不行才这样手动添加参数的

lixy

楼主什么版本
我的测试例子是2800的
都是测试过的代码。会自动创建参数。
附件：

李涛

2800版本的，我先看看你的代码

atiger

??