Discussion :

[fplanglois]

Bonjour à tous
Voilà, j'ai les familles d'articles suivantes

Code :

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

1
2
3
4
CREATE TABLE FAMILLE_ARTICLE (
    CODE_FAMILLE_ARTICLE INTEGER NOT NULL,
    CODE_FAMILLE_PERE INTEGER,
    NOM_FAMILLE_ARTICLE VARCHAR(30));

J'ai des articles rattachés à une famille (et une seule).
L'article peut être rattaché à n'importe quelle branche de l'arbre.
Je voudrais, en Delphi, soit lire toutes les familles et leurs descendantes à partir d'un noeud de l'arbre, pour mettre dans une liste de chaînes les codes familles. Puis traiter cette liste pour en faire des requêtes pour obtenir les articles de la famille sélectionnée et de ses descendants.

Avez-vous un algo qui fait ça ?
J'imagine qu'une vue qui permettrait d'avoir tous les code familles (plutôt que de construire par un programme la liste de chaîne), est un doux rêve.

@+
fp

[Barbibulle]

Bonsoir,

Pour une réponse Delphi il serait préférable d'aller dans le forum Delphi SGBD.

Sinon une solution interbase :

Prendre une solution à base d'une vue est un peu utopique ou du moins serait limité à un nombre de niveau.

Je plus propre étant de faire une procédure stockée.

[fplanglois]

Merci de cette réponse,
J'ai posté sur le forum Delphi.
Effectivement les procédures stockées ne sont pas mon fort. Tout au plus j'en ai modifiées quelques-unes. Je pense toujours dans l'ordre: requête, traitement puis vue.
Dans ce cas le problème reste de trouver l'algo qui permette de faire ça.
De mes vagues souvenirs de "l'école", je mense savoir que c'est hautement récursif comme problème.
@+
fp

[Barbibulle]

Oui si la profondeur de ton arbre n'est pas limité, le plus simple est de faire des appels récursifs.

Ce qui reste relativement facile à faire en PS et sera certainement plus performant que des appels depuis Delphi.

Le principe etant de faire une PS MON_ARBRE avec en entrée :
Niveau (niveau dans l'arborescence 0 pour la première fois)
PERE (identifiant du pere. NULL pour la première fois)

En sortie les colones utiles de la table "famille article" et les colonnes utilises de la table "Articles".

le corps de la PS MON_ARBRE():

For select liste des colones utilies famille article..... from Famille_Article where code_famille_pere= :NIVEAU into :liste des variables de sortie des colones famille_article do
begin
Mise à null liste des variables de sorties Articles;
suspend;
for select liste des colones utiles Articles from articles
where artcle_code_famille= :CODE_FAMILLE_ARTICLE into liste des variables de sorties Articles do
begin
Eventuellement Mise à null de liste des variables de sortie des colones famille_article sauf de CODE_FAMILLE_ARTICLE bien entendu
suspend;
end;
EXECUTE PROCEDURE MON_ARBRE :NIVEAU+1, :CODE_FAMILLE_ARTICLE RETURNING_VALUES liste des variables de retour;
end

Voilà à quoi ça pourait ressembler, il y a certainement des erreurs mais l'esprits y est...

[SQLpro]

La solution à niveau illimité et sans récursivité est ici :
http://sqlpro.developpez.com/Tree/SQL_tree.html

A +

[fplanglois]

J'ai tardé pour répondre.
Merci de vos réponses,
L'article est intéressant.
Mais comme je ne peux pas changer le modèle de données, j'ai eu recour à un algo tout simple. Pas performant mais qui a d'autres avantages.

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
 
Trouve = Vrai
Liste_noeud <- Famille_selectionnee
Tant que Trouve= Vrai
  Tant que non fin de liste_famille
    Si pere appartient Liste_noeud et famille n'appartient pas a Liste_noeud
      Liste_noeud <-  famille
       Trouve = Vrai
    fsi
    Si Trouve = vrai
      Se remettre en debut de liste
      Trouve = False
    fsi
  ftq
ftq

@+
fp