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);