Discussion :

[zwina2004]

Bonjour est ce que quelqu'un peut m'aider à utiliser le composant TreeView et surtout est ce qu'il est possible de le lier avec une base de données. j'utilise Windev 10.

est ce qu'il y a d'autres composans téléchargeable comme en Delphi ?.

[Louis Griffont]

Je en vois pas comment utiliser le treeview avec une base de données!

Pour les composants, il ne faut pas confondre Composants Windev et Composants Delphi !

Les composants Delphi sont de vrais Composants qui s'utilisent comme des champs normaux et que (si tu as les sources) tu peux adapter à tes préférences. Les composants Windev ne sont que des bouts de programmes associés les uns avec les autres en "Composant". Ce composant peut-être simple ou complexe, un champ ou un programme complet.

[JPDMJC]

si par "est ce qu'il y a d'autres composans téléchargeable comme en Delphi ?." tu cherches à télécharger d'autres composants WinDev, tu en trouveras pas mal dans les LST (lettre du support technique)

[Jannus]

Les LST ne sont pas librement téléchargeables.
Il faut s'abonner pour recevoir/télécharger le contenu des LST.

[chatroux]

Bonjour,

pour répondre à ta question, tu peux utiliser un treeview qui affiche des données issues d'une base de données.
La structure de ta table doit être structurée avec une colonne pere et une colonne fils pour que tu puisses gérer la structure arborescente des données à afficher

1 - Dans le code d'initialisation de l'arbre, tu dois créer la racine :

Code :

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

ArbreAjoute(ARBRE, ma_racine)

2 - tu ajoutes les premiers fils directs de la racine :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
// selection de la racine pour ajouter les fils clients
ArbreSelectPlus(ARBRE,ma_racine) 
//requête de récupération des fils attachés à la racine 
sReq = "SELECT ..... FROM MA_TABLE where code_pere = 'ma_racine' "
SQLExec(sReq, "sReq") 
//affichage des informations dans l'arbre
TANTQUE SQLFetch("sReq") = 0		
    ArbreAjoute(ARBRE,ArbreSelect(ARBRE) + TAB +  SQLLitCol("sReq", 1)
    ,aDéfaut,aDéfaut,sCode)
FIN
SQLFerme("sReq")

3- sur le code de clic d'un noeud de l'arbre, récupère et affiche les fils du noeud cliqué :

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
code_element est une chaîne = ArbreRécupèreIdentifiant(ARBRE,ArbreSelect(ARBRE))
 
sReq_fils = "select * from MA_TABLE where pere = '"+code_element+"'" 
 
SI PAS SQLExec(sReq_fils, "sReq_fils") ALORS
	SQLInfoGene("sReq_fils")
	Info(SQL.MesErreur)
	SQLFerme("sReq_fils")
SINON	
    fils_lu, id_noeud est une chaîne
    TANTQUE SQLFetch("sReq_fils") = 0
	fils_lu     = SQLLitCol("sReq_fils",1)
	id_noeud = SQLLitCol("sReq_fils",2)
	ArbreAjoute(ARBRE, ArbreSelect(ARBRE) + TAB +     
                             fils_lu,aDéfaut,aDéfaut,id_noeud)
    FIN
FIN
SQLFerme("sReq_fils")

Bon courage

A+