Discussion :

[exclusif]

Bonjour à tous,

Je fais appel à vous car je suis totalement perdu.

Je m'explique, j'ai une base de données et je voudrais charger une table sous forme de treeview. Mais ça coince ! Je n'y arrive pas du tout.

Voici ma table au format access:

IdCategorie (numérique)
NomCategorie (texte)
AnnotationCategorie (memo)
ParentCategorie (numérique) 'indique l'Id de la catégorie Parent (-1 si pas de parent)
NiveauCategorie (numérique) 'indique le niveau (1 puis 2 puis 3....)

Comment implémenter le chargement du treeview de manière récursive ?

Merci beaucoup pour vos réponses

Ludo

[mamelouk]

salut,

y'a plein de trucs que je comprends pas:

- avec quel tookit tu cree un treeview
- pourquoi tu veut le faire récursivement
- c'est quoi une catégorie dans ton exemple

[Trap D]

Tu ne feras pas un chargement résursif du treeview, mais éventuellement une insertion récursive de chaque nouveau noeud à partir de la racine du treeview.

[exclusif]

Bonsoir,

- avec quel tookit tu cree un treeview

Avec VB2005 express edition

- pourquoi tu veut le faire récursivement

car une base de données est un objet dynamique

- c'est quoi une catégorie dans ton exemple

Ca peut être tout et n'importe quoi. C'est au choix de l'utilisateur. Un peu comme les dossiers et sous-dossiers de windows.

[exclusif]

Tu ne feras pas un chargement résursif du treeview, mais éventuellement une insertion récursive de chaque nouveau noeud à partir de la racine du treeview.

Oui voilà c'est ça ! Le treeview subira des insertions des noeuds enfants de manière récursive et sera généré entièrement de cette façon. Mais je ne sais pas comment l'implémenter. Mon problème il est là

[Trap D]

Où en es-tu ?

[exclusif]

C'est bon j'ai réussi grâce à l'aide de Caramelmou sur un autre forum.

Il m'a super bien aiguillé jusqu'à ce que je code la bonne solution.

Voili

Merci pour l'intérêt que tu portes à mon problème en tout cas

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
    Public Sub GénérerNoeud(ByVal IdCat As Integer, ByVal myNode As TreeNode)
        Dim tvNode As TreeNode
        Dim intIdCategorie As Integer
        Dim strNomCategorie As String = ""
        Dim rs As New ADODB.Recordset
 
        rs.Open("SELECT * FROM T_Categorie WHERE ParentCategorie=" & IdCat, db, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
        While Not rs.EOF
            intIdCategorie = rs.Fields(0).Value
            strNomCategorie = rs.Fields(1).Value 'récup du nom de la catégorie
            tvNode = myNode.Nodes.Add(intIdCategorie, strNomCategorie) 'Ajout du nom de la catégorie
            GénérerNoeud(intIdCategorie, tvNode)
            rs.MoveNext()
        End While
        rs.Close()
    End Sub

[Trap D]

Parfait, alors un petit clic sur