saber si existe una columna de una tabla de firebird
 

Un saludo para todos.
La idea es actualizar una base de datos(metadatos, no registros de datos) por codigo delphi. Para ello necesito saber si existe una columna determinada de una tabla determinada de Firebird (atraves de sus metadatos).
¿Es posible?. ¿Alguna idea?
Gracias

Hola identsof.

Código SQL [-]
SELECT RDB$FIELD_ID, RDB$FIELD_NAME, RDB$FIELD_SOURCE, RDB$FIELD_POSITION
FROM RDB$RELATION_FIELDS
WHERE RDB$RELATION_NAME = :TB_NAME
  AND RDB$FIELD_NAME = :FLD_NAME
  AND RDB$SYSTEM_FLAG = 0

Saludos :)

Perdon, no se porque aparece dos veces.
Me contesto yo mismo:

Código Delphi [-]
SELECT * FROM RDB$RELATION_FIELDS' +
                               ' WHERE RDB$RELATION_NAME = ' + QuotedStr('LIN_FACT') +
                               ' AND  RDB$FIELD_NAME = ' + QuotedStr('CLV_CONCE');

Gracias ecfisa.
pero porque : AND RDB$SYSTEM_FLAG = 0

Hola identsof.

Para descartar las tablas de sistema de la selección. Firebird marca con un 1 las tablas del sistema y con un 0 las creadas por el usuario.

En realidad es mas seguro hacer,

Código SQL [-]
....
    AND COALESCE( RDB$SYSTEM_FLAG, 0 ) = 0

o con el mismo resultado:

Código SQL [-]
...
   AND (RDB$SYSTEM_FLAG = 0 OR RDB$SYSTEM_FLAG IS NULL)

Por ejemplo, para listar las tablas de sistema:

Código SQL [-]
SELECT RDB$RELATION_NAME
FROM RDB$RELATIONS
WHERE RDB$VIEW_BLR IS NULL 
  AND COALESCE(RDB$SYSTEM_FLAG, 1) = 1;

Saludos :)