4

我有一个很大的问题TADOQuery：

这是我的 SQL：

select cast(-10 as number(9)) foo, -10 bar 
  from dual

当您添加“foo”字段时，将创建一个 TIntegerField 而不是 TBCDField，因为此时类型已更改：

procedure TCustomADODataSet.InternalInitFieldDefs;

    if (F.Type_ = adNumeric) and (F.NumericScale = 0) and
       (F.Precision < 10) then
      FieldType := ftInteger;

功能：

function TCustomADODataSet.GetFieldData(Field: TField; Buffer: Pointer;
  NativeFormat: Boolean): Boolean;

此时不考虑信号：

    ftAutoInc, ftInteger:
      Integer(Buffer^) := lVal;

TIntegerField的值为tagVariant：

(14, 32768, 0, 0, 10, 10, 10, 1.4012984643e-44, 4.9406564584e-323, True, 10, 0.001, 4.9406564584e-323, , $A, $A, $A, $A, $ A, $A, $A, $A, $A, $A, $A, $A, $A'', $A, $A, $A, $A, $A, #10, 10, 10, 10, 10, $A, , $A, $A, $A, $A)

这与 TBCDField 相同：

(14, 32768, 0, 0, 10, 10, 10, 1.4012984643e-44, 4.9406564584e-323, True, 10, 0.001, 4.9406564584e-323, , $A, $A, $A, $A, $ A, $A, $A, $A, $A, $A, $A, $A, $A'', $A, $A, $A, $A, $A, #10, 10, 10, 10, 10, $A, , $A, $A, $A, $A)

foo 值为 10，bar 值为 -10。

这是一个错误吗？
有解决方法吗？
修好了？

我使用 Microsoft OLEDB provider for Oracle 和 Oracle Provider for OLEDB 进行了测试。所有测试均使用 Delphi 6 完成。

4

1 回答 1

0

我不知道我是否理解正确，但是尝试这种方式：

select cast(replace(-10,'-','') as number(9)) foo, -10 bar 
  from dual;
于 2013-07-23T09:12:44.173 回答