Page 1 of 1

Metadata DESCRIPTION suddenly missing

Posted: Tue 29 Dec 2009 13:25
by Roaster2
Hi,

some time ago I've requested that the metadata field DESCRIPTION should be added to the TGDSMetaData class.

This is the coding some version before, don't exactly remember what version:

Code: Select all

function TGDSMetaData.GetColumns(Restrictions: _TStrings): TData;
const
  fmtGetColumnsSQL = 'SELECT RF.RDB$RELATION_NAME, RF.RDB$FIELD_NAME, ' +
    'RF.RDB$FIELD_POSITION, F.RDB$FIELD_TYPE, F.RDB$FIELD_SUB_TYPE, ' +
    'F.RDB$FIELD_LENGTH, F.RDB$FIELD_PRECISION, F.RDB$FIELD_SCALE, ' +
    'RF.RDB$NULL_FLAG, RF.RDB$DEFAULT_VALUE, RF.RDB$DESCRIPTION ' +
    'FROM RDB$RELATION_FIELDS RF ' +
    'INNER JOIN RDB$FIELDS F ON (RF.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME) %s ' +
    'ORDER BY RF.RDB$RELATION_NAME, RF.RDB$FIELD_POSITION';
Now I've installed the latest version of IbDac and the code from above was changed to:

Code: Select all

function TGDSMetaData.GetColumns(Restrictions: _TStrings): TData;
const
  fmtGetColumnsSQL = 'SELECT RF.RDB$RELATION_NAME, RF.RDB$FIELD_NAME, ' +
    'RF.RDB$FIELD_POSITION, F.RDB$FIELD_TYPE, F.RDB$FIELD_SUB_TYPE, ' +
    'F.RDB$FIELD_LENGTH, F.RDB$FIELD_PRECISION, F.RDB$FIELD_SCALE, ' +
    'RF.RDB$NULL_FLAG, RF.RDB$DEFAULT_VALUE ' +
    'FROM RDB$RELATION_FIELDS RF ' +
    'INNER JOIN RDB$FIELDS F ON (RF.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME) %s ' +
    'ORDER BY RF.RDB$RELATION_NAME, RF.RDB$FIELD_POSITION';
Did you notice?

Code: Select all

RF.RDB$DESCRIPTION
is now missing. Don't know if other parts of the code have been dropped to get DESCRIPTION running again.

WHY did you change this again? Can you please add this ASAP again, please?

Thanks,
Michael

Posted: Wed 30 Dec 2009 08:44
by Plash
IBCClasses.pas contains the following line for DESCRIPTION:

Code: Select all

    'CASE WHEN RF.RDB$DESCRIPTION IS NOT NULL THEN RF.RDB$DESCRIPTION ELSE F.RDB$DESCRIPTION END ' +
Check that you are using the latest version and unpack sources agian if you have changed them.