关于调用Oracle存储过程时发生“BCD Overflow”错误的处理

      笔者最近在使用TSQLStoredProc调用Oracle存储过程时发现，即使存储过程体为空时，都会发生 BCD Overflow 错误，该表部分定义如下：

PLANE_ALL_PARAMETER表：

字段名	数据类型
PLANE_MODEL_ID	NUMBER
NATURAL_FLY_WEIGHT	FLOAT
NOLOAD_WEIGHT	FLOAT
MAX_FUEL_WEIGHT	FLOAT
……	……

在存储过程的参数表中，做如下定义：
procedure update_plane_model(
   ModelID in PLANE_ALL_PARAMETER.PLANE_MODEL_ID%type,
   NaturalFlyWeight in PLANE_ALL_PARAMETER.NATURAL_FLY_WEIGHT%type,
   NoLoadWeight in PLANE_ALL_PARAMETER.NOLOAD_WEIGHT%type,
   MaxFuelWeight in PLANE_ALL_PARAMETER.MAX_FUEL_WEIGHT%type,
   ……
);

并且在设置参数时使用如下方式：

ParamByName('NaturalFlyWeight').AsFloat :=  PlaneModelInfo^.NATURAL_FLY_WEIGHT ;
    ParamByName('NoLoadWeight').AsFloat := PlaneModelInfo^.NOLOAD_WEIGHT;
    ParamByName('MaxFuelWeight').AsFloat := PlaneModelInfo^.MAX_FUEL_WEIGHT;

这样在调用该存储过程时就会发生此错误，笔者发现如果使用AsBCD方式赋值，而不是使用AsFloat就可以避免发生 BCD Overflow 错误。

ParamByName('NaturalFlyWeight').AsBCD :=  PlaneModelInfo^.NATURAL_FLY_WEIGHT ;
    ParamByName('NoLoadWeight').AsBCD := PlaneModelInfo^.NOLOAD_WEIGHT;
    ParamByName('MaxFuelWeight').AsBCD := PlaneModelInfo^.MAX_FUEL_WEIGHT;

看来dbExpress虽好，但也是问题多，估计在SQL Server上不会存在这样的问题，不知道Sysbase和DB2上有没有，大家可以试试！

转载于:https://www.cnblogs.com/heqing/archive/2007/01/25/630034.html