Просмотр исходного текста страницы Полезные запросы к системным таблицам Firebird

=== Список ограничений таблиц с их индексами и полями, входящими в индекс ===

<syntaxhighlight lang="SQL">

EXECUTE BLOCK
  RETURNS(
    relation_name VARCHAR(64),
    constraint_name VARCHAR(64),
    constraint_type VARCHAR(64),
    fields VARCHAR(1024)
  )
AS
  DECLARE VARIABLE index_name VARCHAR(64);
  DECLARE VARIABLE field_name VARCHAR(64);
BEGIN
  FOR
    SELECT
      rc.rdb$relation_name,
      rc.rdb$constraint_name,
      rc.rdb$constraint_type,
      i.rdb$index_name
    FROM
      rdb$relation_constraints rc
      JOIN rdb$indices i ON i.rdb$index_name = rc.rdb$index_name
    GROUP BY
      1, 2, 3, 4
    INTO
      :relation_name, :constraint_name, :constraint_type, :index_name
  DO BEGIN
    fields = '';
  
    FOR
      SELECT TRIM(rdb$field_name)
      FROM rdb$index_segments
      WHERE rdb$index_name = :index_name
      ORDER BY rdb$field_position
      INTO :field_name
    DO BEGIN
      IF (:fields <> '') THEN
        fields = :fields || ',';
        
      fields = :fields || :field_name;
    END
  
    SUSPEND;
  END
END
</syntaxhighlight>