delphi ora-06502 pl sql 数字或值错误 字符串缓冲区太小

网上说的大多数其它语言的修正方法，没有DELPHI版本的修正方法，今刚好也碰到这个问题，就写一下解决方法吧。

oracle里面定义的PK_PRJSTATUS_CONVERT.projectstatusconvert(projectid1 varchar2, projectid2 varchar2, converttype int,msg out varchar2)

msg为返回给客户端的信息。

delphi code:

function ConvertProjectStatus(const ASourceProjectID, ADestProjectID :string; const AType :Integer):string;
begin
DM.TB_Temp.Close;
DM.TB_Temp.SQL.Clear;
DM.TB_Temp.SQL.Text := ' begin PK_PRJSTATUS_CONVERT.projectstatusconvert(:ASourceProjectID, :ADestProjectID, :AType, :LResult); end; ';
  //省略部分语句
DM.TB_Temp.Parameters.ParamByName('LResult').Direction := pdOutput;
DM.TB_Temp.Parameters.ParamByName('LResult').DataType := ftString;
DM.TB_Temp.Parameters.ParamByName('LResult').Value := vaNull;
  DM.TB_Temp.Parameters.ParamByName('LResult').Size := 3000; //设置接收大小，则不会出现ora-06502错误
DM.TB_Temp.ExecSQL;
Result := VarToStr( DM.TB_Temp.Parameters.ParamByName('LResult').Value );
end;

在ADODB中TParameter中的Size默认大小为0，所以返回字段最好设置一下大小。

发表地：广州 日期：2011.07.02