Discussion :

[BEN NASR]

Treeview et tables avec 2 champs Père et fils
Bonjour a tous
J’ai une table avec 2 colonnes : 1 colonne Père et 2eme colonne fils
Je veux afficher pour un enregistrement sélectionné de ma table un Treeview
Le problème ce que un fis peut être « le père » de plusieurs autre fils.
Si vous avez une nouvelle proposition concernant la structure de ma table, je suis preneur.
Ci-joint un bout de code qui ne marche pas.

procedure TForm1.Button1Click(Sender: TObject);
var
Node: TTreeNode;
begin

TreeView1.Items.Clear;;
TreeView1.items.BeginUpdate;
Node:= treeview1.items.AddObject(nil , neq.Text, Lquery.GetBookmark);
//neq : un champ DBedit qui contient le père de l'enregistrement courant
ajoutnode(treeview1, node, neq.Text);
TreeView1.items.Endupdate;

end;

function TForm1.Ajoutnode(Sender: TTreeView; node:TTreeNode; stext : String):string;

begin
Lquery.SQL.Clear;
Lquery.SQL.Add('select * from ensemble where pere=:cpere;');
Lquery.Parameters.ParamByName('cpere').Value:=stext;
Lquery.Open;
while not Lquery.Eof do
begin
node :=Sender.items.AddChildObject(node,Lquery.Fields[1].AsString,Lquery.GetBookmark);
stext:=Ajoutnode(Sender,node,Lquery.Fields[1].AsString);
Lquery.Next;
end;
end;

Merci d’avance de votre collaboration

[ShaiLeTroll]

Ton problème doit être l'utilisation d'un seul Lquery global au d'en faire un local et de créer pour chaque requête, c'est obligatoire dans un algo en récursivité !

Deplus tes bookmark seront faux si tu ne stocke pas le dataset associé ...

[BEN NASR]

J'ai essayé de créer un ADOQuery local dans mon procédure recurssive, mais j'ai eu des problèmes avec "dépassement de pile" a l'exécution.

[ShaiLeTroll]

Je ne vois pas pourquoi, mais bon ... tu peux donc aussi, recopier le contenu de la query dans une TStringList locale, et tu parcours ensuite cette liste pour la récursivité ...

[BEN NASR]

La solution était bien la création d'un TADOQuery en local c.a.d dans la procédure récursive
Merci à tous

Code :

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

1
2
3
4
5
6
7
8
 
var
 Squery:TADOQuery;
 thisnode:TTreenode;
begin
   SQuery := TAdoQuery.Create(nil); //Cette étape qui m'a echappé
   Squery.Connection :=DMD.ADOM;
   ....