[ecfisa]

Hola.

Código SQL [-]
SELECT RF.RDB$FIELD_NAME AS FIELD_NAME,
       CASE FL.RDB$FIELD_TYPE
         WHEN   7 THEN 'SMALLINT'
         WHEN   8 THEN 'INTEGER'
         WHEN   9 THEN 'QUAD'
         WHEN  10 THEN 'FLOAT'
         WHEN  11 THEN 'D_FLOAT'
         WHEN  12 THEN 'DATE'
         WHEN  13 THEN 'TIME'
         WHEN  14 THEN 'CHAR'
         WHEN  16 THEN 'INT64'
         WHEN  27 THEN 'DOUBLE'
         WHEN  35 THEN 'TIMESTAMP'
         WHEN  37 THEN 'VARCHAR'
         WHEN  40 THEN 'CSTRING'
         WHEN 261 THEN 'BLOB'
         ELSE 'UNKNOWN'
       END AS FIELD_TYPE,
       FL.RDB$FIELD_LENGTH AS FIELD_LENGTH,
       COALESCE(CS.RDB$CHARACTER_SET_NAME,'') AS FIELD_CHARSET
FROM RDB$RELATION_FIELDS RF
LEFT JOIN RDB$FIELDS FL ON RF.RDB$FIELD_SOURCE = FL.RDB$FIELD_NAME
LEFT JOIN RDB$CHARACTER_SETS CS ON FL.RDB$CHARACTER_SET_ID = CS.RDB$CHARACTER_SET_ID
WHERE RF.RDB$RELATION_NAME= :TABLE_NAME
ORDER BY RF.RDB$FIELD_POSITION

Saludos