Discussion :

[mercure07]

Salut tout le monde,
j'ai un programme depuis laquelle je dois insérer des nouvelles informations. C'est pour ça je dois supprimer les clés étrangères puis les créer de nouveau.
C'est pour ça j'ai mis en place une fonction pour stocker les commandes de créations des clé étrangères dans une table pour les utiliser ultérieurement.
je me suis référé à ce lien http://www.alberton.info/firebird_sql_meta_info.html
mais je n'ai pas eu satisfaction.
C'est pour cela j'ai essayé de découper mon raisonnement en sous requêtes :
Je suis parvenu à avoir la liste des FK avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
SELECT  distinct rc.RDB$CONSTRAINT_NAME AS fk_name,
          refc.RDB$DELETE_RULE AS on_del,
          refc.RDB$UPDATE_RULE AS on_upd
     FROM RDB$RELATION_CONSTRAINTS rc
LEFT JOIN RDB$REF_CONSTRAINTS refc ON rc.RDB$CONSTRAINT_NAME = refc.RDB$CONSTRAINT_NAME
WHERE rc.RDB$CONSTRAINT_TYPE = 'FOREIGN KEY'
AND rc.RDB$RELATION_NAME = 'PRE_PRESENTATION'

et puis la liste des colonnes surlesquels s'applique cette FK avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

select RDB$FIELD_NAME from RDB$INDEX_SEGMENTS where RDB$INDEX_NAME = 'FK1_PRE_PRESENTATION' order by RDB$FIELD_POSITION

Mais je n'ai pas pu dégager la liste des tables et colonnes de référence. J'ai utilisé cette requête

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
SELECT distinct d2.RDB$DEPENDED_ON_NAME AS ref_tab, d1.RDB$FIELD_NAME
     FROM RDB$RELATION_CONSTRAINTS rc
inner JOIN RDB$INDEX_SEGMENTS seg ON seg.RDB$INDEX_NAME = rc.RDB$CONSTRAINT_NAME
inner JOIN RDB$DEPENDENCIES d1 ON d1.RDB$DEPENDED_ON_NAME = rc.RDB$RELATION_NAME
inner JOIN RDB$DEPENDENCIES d2 ON d1.RDB$DEPENDENT_NAME = d2.RDB$DEPENDENT_NAME
WHERE rc.RDB$CONSTRAINT_TYPE = 'FOREIGN KEY'
and d1.RDB$FIELD_NAME = seg.RDB$FIELD_NAME
AND d1.RDB$DEPENDED_ON_NAME <> d2.RDB$DEPENDED_ON_NAME
AND d1.RDB$FIELD_NAME <> d2.RDB$FIELD_NAME
AND rc.RDB$RELATION_NAME = 'PRE_PRESENTATION'
and seg.RDB$INDEX_NAME   = 'FK1_PRE_PRESENTATION'
and d1.RDB$FIELD_NAME    = 'PRE_SP_CODE_FK'

mais il m'affiche toutes les dépendances de ma table source.
Est ce que quelqu'un pourrait me corriger pour avoir les bons résultats.
Merci d'avance pour votre collaboration.
Cordialement

[mercure07]

Après des recherches et test, j'ai parvenu a trouver la solution dont j'espère qu'elle sera utile pour qqun d'autre.
1. Pour trouver la table de référence :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
SELECT rc.RDB$RELATION_NAME AS PARENT 
FROM RDB$RELATION_CONSTRAINTS a 
  JOIN RDB$INDICES b ON (b.RDB$INDEX_NAME=a.RDB$INDEX_NAME) 
  JOIN RDB$RELATION_CONSTRAINTS rc ON (rc.rdb$index_name=b.rdb$foreign_key) 
WHERE a.RDB$CONSTRAINT_TYPE='FOREIGN KEY' 
AND a.RDB$RELATION_NAME = 'NOM_TABLE' 
and a.RDB$INDEX_NAME

2. Pour trouver la/les colonnes de référence :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
SELECT distinct d1.RDB$FIELD_NAME AS ref_field
FROM RDB$RELATION_CONSTRAINTS rc
   inner JOIN RDB$INDICES b ON (b.RDB$INDEX_NAME = rc.RDB$INDEX_NAME)
   inner JOIN RDB$RELATION_CONSTRAINTS a ON (a.rdb$index_name = b.rdb$foreign_key) 
   inner JOIN RDB$DEPENDENCIES d1 ON d1.RDB$DEPENDED_ON_NAME = a.RDB$RELATION_NAME and d1.RDB$DEPENDENT_TYPE = 2
   inner JOIN RDB$DEPENDENCIES d2 ON d2.RDB$DEPENDED_ON_NAME = rc.RDB$RELATION_NAME 
                                                AND d1.RDB$DEPENDENT_NAME = d2.RDB$DEPENDENT_NAME
                                                and d2.RDB$DEPENDENT_TYPE = 2 
    join RDB$RELATION_FIELDS f on f.RDB$RELATION_NAME = a.RDB$RELATION_NAME
                                         and f.RDB$FIELD_NAME = d1.RDB$FIELD_NAME												WHERE rc.RDB$CONSTRAINT_TYPE = 'FOREIGN KEY' 
AND rc.RDB$RELATION_NAME = 'NOM_TABLE_SOURCE'
AND rc.RDB$CONSTRAINT_NAME = 'NOM_CONTRAINTE' 
AND a.RDB$RELATION_NAME = 'NOM_TABLE_DEST' 
and d1.RDB$FIELD_NAME is not null 
and d2.RDB$FIELD_NAME is not null 
order by f.RDB$FIELD_POSITION

Cette dernière requête peut être remplacée par la requête suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
SELECT distinct i.RDB$FIELD_NAME 
FROM RDB$RELATION_CONSTRAINTS rc 
   left JOIN RDB$INDICES b ON (b.RDB$INDEX_NAME = rc.RDB$INDEX_NAME) 
   left JOIN RDB$RELATION_CONSTRAINTS a ON (a.rdb$index_name = b.rdb$foreign_key) 
   left join RDB$INDICES t on t.RDB$RELATION_NAME = a.RDB$RELATION_NAME 
                                  and t.RDB$INDEX_NAME = a.RDB$INDEX_NAME 
   left join RDB$INDEX_SEGMENTS i on i.RDB$INDEX_NAME = t.RDB$INDEX_NAME 
WHERE rc.RDB$CONSTRAINT_TYPE = 'FOREIGN KEY'  
and a.RDB$CONSTRAINT_TYPE = 'PRIMARY KEY' 
AND rc.RDB$RELATION_NAME = 'NOM_TABLE_SOURCE' 
AND rc.RDB$CONSTRAINT_NAME = 'NOM_CONTRAINTE' 
AND a.RDB$RELATION_NAME = 'NOM_TABLE_DEST'
order by i.RDB$FIELD_POSITION

Bon travail a tous .