[Zeos 8.0] Error in Oracle Utils

[Dee]

Looks like an error in
procedure TZOraProcDescriptor_W.InternalDescribeObject(Obj: POCIHandle);

Param.Scale is not set before call to NormalizeOracleTypeToSQLType. (ZDbcOracleUtils.pas, line 2298)

Code: Select all

        if Param.DataType <> SQLT_CLOB then
          Param.Precision := Param.GetUb2(OCI_ATTR_CHAR_SIZE);
        Param.csform := Param.GetUb1(OCI_ATTR_CHARSET_FORM);
        Param.Scale := Param.csform; <<------------------------------------------ add this to fix
      end;
      Param.SQLType := NormalizeOracleTypeToSQLType(Param.DataType, Param.DataSize,
        Param.DescriptorType, Param.Precision, Param.Scale, ConSettings);

[marsupilami]

Hello Dee,

thank you for the fix. We applied the patch. Could you describe the circumstances where this fixes a problem? We would like to include a test case for this in our test suite.

With best regards,

Jan