Discussion :

[dacid]

Bonjour à tous,

J'ai construit une arborescence en suivant à la lettre cet exemple:
http://sqlpro.developpez.com/cours/arborescence/

Tout marche à merveille seulement, j'aimerais avoir la possibilité de déplacer une branche dans l'arbre en choisissant son parent.
J'ai fait des trucs comme ça mais ça ne marche pas pour tous les cas de figures:

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
17
18
19
20
21
22
 
procedure TcdrInventaire.deplacerLieu(id, idParent: Integer);
var lie,lieTemp,lieParent: lieu;
begin
  lie := getLieu(id);
  lieParent := getLieu(idParent);
  // Ajouter l'espace nécessaire
  req := 'UPDATE lieux SET liefin=liefin+'+IntToStr((lie.fin+1)-lie.deb)+' WHERE liefin>='+IntToStr(lieParent.fin);
  EffectuerRequeteDivers(req);
  req := 'UPDATE lieux SET liedeb=liedeb+'+IntToStr((lie.fin+1)-lie.deb)+' WHERE liedeb>='+IntToStr(lieParent.fin);
  EffectuerRequeteDivers(req);
  // Déplacer les bornes
  lieTemp := getLieu(id);
  req := 'UPDATE lieux SET liedeb=liedeb-('+IntToStr((lie.fin+1)-lieParent.fin)+'),liefin=liefin-('+IntToStr((lie.fin+1)-lieParent.fin)+'), '
    +'lieniv='+IntToStr(lieParent.niv+1)+' WHERE liedeb>='+IntToStr(lieTemp.deb)+' AND liefin<='+IntToStr(lieTemp.fin);
  EffectuerRequeteDivers(req);
  // Supprimer l'espace vide
  req := 'UPDATE lieux SET liefin=liefin-'+IntToStr((lie.fin+1)-lie.deb)+' WHERE liefin>='+IntToStr(lie.deb+((lie.fin+1)-lie.deb));
  EffectuerRequeteDivers(req);
  req := 'UPDATE lieux SET liedeb=liedeb-'+IntToStr((lie.fin+1)-lie.deb)+' WHERE liedeb>='+IntToStr(lie.deb+((lie.fin+1)-lie.deb));
  EffectuerRequeteDivers(req);
end;

Lieu est une structure de type:

Code :

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

1
2
3
4
  type lieu = record
      id,parent,niv,deb,fin: Integer;
      code,lib: String;
  end;

Quel est le pb ?

Merci d'avance.

[dacid]

En se basant sur l'exemple du cours, admettons que je veuille déplacer avion dans terrestre(faire un avion sans ailes, quoi ).

Pour préparer l'espace, ça marche bien... C'est après que ça coince !

[Xo]

Salut,

Pense au minimum à respecter les Conseils à lire avant de poster, perso, Je ne connais pas le langage utilisé dans ta procédure, et en outre, tu ne décris pas vraiment le problème que tu rencontres ...

Néanmoins, ce souci ayant déjà été posé, je te renvoie au post suivant (trouvé via une recherche sur le mot "intervallaire") : Gestion d'arbres par représentation intervallaire

La solution est donnée en T-SQL, à toi de voir si tu comprends et si peux adapter,

Bon courage,

[dacid]

Bonjour Xo,

Je connais très bien ces règles et fait au mieux pour les respecter...

J'ai effectué des recherches avant de poster, seulement, je ne savait pas que mon besoin était lié au mot "intervallaire" (que j'utilise peu, voire pas du tout).

Pour ce qui est du langage, c'est du Pascal (Delphi) mais peu importe car ce qui compte c'est les requetes (j'ai mis le code pour le nom des variables).

Le lien que tu m'as donné est sympathique mais je ne peux pas l'utiliser car je suis en access et le transac SQL, c'est pas trop ça...
Je pense que je vais faire une boucle sur les elements désirés, les inserer dans l'endroit destination et les supprimer de l'endroit d'origine ensuite.
Ca m'embête car c'est lourd et source d'erreur mais je croit que je suis devant un mur.

Merci pour la rapidité de ta réponse.