Discussion :

[nek_kro_kvlt]

Bonjour à tous, je cherche a remplir une treeview à partir des différents champs d'une base de donnée. Voici mon code:

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
23
24
25
26
27
28
29
30
31
32
procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
begin
UIBQuery.SQL.Clear;
UIBQuery.SQL.Add('SELECT * FROM BASE;');
UIBQuery.Execute;
 
 
for i := 0 to UIBQuery.Fields.FieldCount - 1 do
  begin
  if(not isnumeric(UIBQuery.Fields.SqlName[i])) then
       treefields.Items.add(nil, UIBQuery.Fields.SqlName[i]);
  end;
  UIBQUERY.close();
 
 
for i := 0 to treeFields.Items.Count - 1 do
  begin
  //showmessage(inttostr(i) + ' ' + inttostr(treeFields.Items.Count));
  UIBQuery.SQL.Clear;
  UIBQuery.SQL.Text := 'SELECT DISTINCT ' + treeFields.Items[i].Text + ' FROM BASE;';
  UIBQuery.Open;
  UIBQuery.First;
    while not UIBQuery.EOF do
    begin
     treefields.Items.AddChild(treeFields.Items[i],UIBQuery.Fields.AsString[0]);
     UIBQuery.Next;
     end;
 
   UIBQuery.Close();
  end;
end;

Seulement lorsque j'ajoutes des enfants, ceux ci sont aussi accessibles par treefields.items, et donc tout est ajouter dans le premier élément. Je ne sais pas comment faire, si quelqu'un pouvait m'aider, ça serait vivement apprécié !

[der§en]

Je t'aiderai bien mais je ne comprend pas ta question, pourrais tu préciser ce que tu attends exactement dans ta TreeView ?

Der§en.

[nek_kro_kvlt]

Je voulais dire que lorsque j'ajoutes des enfant un a un item, ceux ci sont aussi accessible par treeview.items, alors que je pensais que seuls les items a la racine étaient disponible par cette proptiétés, mais j'ai réglé mon problème, merci!

[Bruno@Chrysis]

si ton problème est règlé alors note le [Resolu] stp... merci