Discussion :

[walid kh]

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

[walid kh]

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

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
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

[walid kh]

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

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
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

[walid kh]

Désolé fausse alarme
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

[walid kh]

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

c résolu enfin .