Problème avec treeview

Version imprimable

19/04/2010, 14h33
walid kh

Problème avec treeview

slt à tous,
voilà je travail avec vb 2008 j'ai une BD qui contient des groupes chaque groupe à un responsable et des personnels qui lui appartient je veux afficher dans mon treeview le respnsable de groupe et au dessous de celui ci les membres de groupe je suis débutant en vb 2008 donc je veux de l'aide qqun à une idée comment le faire ? :)
merci d'avance

voilà un bout de code jque j'ai effectué mais le résultat est tjs faut :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
lire = pfl.ExecuteReader ' lire as MySqlDataReader
            Do While lire.Read()
                Responsable(i) = lire.GetValue(0).ToString() 'Responsable est un tableau de String pour metter les responsable de groupes
                i += 1
            Loop
            lire.Close()
 
            cpt = i
 
            For i = 0 To cpt
                Resp = TrViContact.Nodes.Add(Responsable(i)) 'Resp As TreeNode et TrViContact est un TreeView
                req = "select nom_util from personnel,appartenir,groupe where personnel.id_p=appartenir.id_p and groupe.id_g=appartenir.id_g and personnel.nom_util = '" & Responsable(i) & "'"
                pfl = New MySqlCommand(req, conn)
                lire = pfl.ExecuteReader
                While lire.Read()
                    Resp.Nodes.Add(lire.GetValue(0).ToString())
                End While
                lire.Close()
 
            Next i

Pas de souci les amis j'ai trouvé la solution :ccool:
là voilà :

Code:

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
33
34
35
36
 req = "select nom_util from personnel,groupe where personnel.id_p = groupe.id_p"
 
        pfl = New MySqlCommand(req, conn)
        i = 0
        Try
            conn.Open()
            lire = pfl.ExecuteReader
            Do While lire.Read()
                Responsable(i) = lire.GetValue(0).ToString()
                i += 1
            Loop
            cpt = i
            lire.Close()
            cpt = i
 
            req = "select id_g from groupe "
            pfl = New MySqlCommand(req, conn)
            lire = pfl.ExecuteReader
            i = 0
            While lire.Read
                id_resp(i) = lire.GetValue(0).ToString()
                i += 1
            End While
            lire.Close()
 
            For Me.i = 0 To cpt - 1
                Resp = TrViContact.Nodes.Add(Responsable(i))
                req = "select nom_util from personnel,appartenir,groupe where personnel.id_p=appartenir.id_p and groupe.id_g=appartenir.id_g and appartenir.id_g =' " & id_resp(i) & "'" 'and personnel.nom_util = '" & Responsable(i) & "'"
                pfl = New MySqlCommand(req, conn)
                lire = pfl.ExecuteReader
                While lire.Read()
                    Resp.Nodes.Add(lire.GetValue(0).ToString())
                End While
                lire.Close()
 
            Next i

j'espére qu'il aidera qqun un jour :mrgreen:

19/04/2010, 17h06
walid kh

Désolé fausse alarme :oops:
il y a toujours un affichage erroné quand j'ajoute une nouvelle entrée
s'il ya qqun qui a une idée comment corrigé l'erreur qu'il m'aide c vraiment important :calim2:
19/04/2010, 18h15
walid kh

Voilà les amis maintenant c résolu par de vrai j'ai trouvée la solution merci dieu :mrgreen:

c résolu enfin :ccool: .