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

来源：互联网发布：xy坐标转换经纬度软件编辑：程序博客网时间：2024/05/17 07:26

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

PLANE_ALL_PARAMETER表：
字段名数据类型PLANE_MODEL_IDNUMBERNATURAL_FLY_WEIGHT FLOATNOLOAD_WEIGHTFLOATMAX_FUEL_WEIGHTFLOAT…………

在存储过程的参数表中，做如下定义：

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上有没有，大家可以试试！