Comment Remplir 3 ComboBox

Version imprimable

Salut tous :coucou:

J'ai un table Directions qui contient CodeDirection (clé primaire) et NomDirection.
Chaque Direction (codée sur 2 chiffres) possède des SousDirections (codée sur 4 chiffres dont les 2 premiers indiquent la Direction associé), et chaque SousDierction possède des Services (codee sur 6 chiffres, dont les 4 premiers sont celles des SousDirections associé et les 2 derniers sont celles des Services).
J'ai rempli mon 1 ComboBox (Directions)

Ma question: comment remplir le 2 ComboBox (SousDirections qui appartiennent à la Direction sélectionner dans le 1 ComboBox ), puis remplir le 3 ComboBox (Services qui appartiennent à la SousDirection sélectionner dans le 2 ComboBox ).

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
37
38
39
40
41
42
43
44
45
46
47
48
 Public Sub CmbDir()
        Cn.Open()
        If Cn.State = ConnectionState.Open Then
            Cmd.CommandType = CommandType.Text
            Cmd.CommandText = "Select NomDirections from Directions where CodeDirections = Mid(CodeDirections,1,2) Order By CodeDirections"
            Cmd.Connection = Cn
            Dr = Cmd.ExecuteReader()
            If Dr.HasRows Then
                While Dr.Read
                    FrmAjoutPers.CmbDirections.Items.Add(Dr(0))
                End While
                Dr.Close()
                Cn.Close()
            Else
                Dr.Close()
                Cn.Close()
                MsgBox("Pas de Direction Trouver", 0 + 16, " Erreur")
            End If
        Else
            MsgBox("Erreur de connexion à la Base", 0 + 16, "Erreur")
        End If
    End Sub
 
'ComboBox Direction a été remplit avec Succès
 
    Public Sub CmbSousDir()
        Cn.Open()
        If Cn1.State = ConnectionState.Open Then
            Cmd.CommandType = CommandType.Text
            Cmd.CommandText = "SELECT NomDirections FROM Directions WHERE (Val(CodeDirections)>100 And Val(CodeDirections)<10000 and mid(CodeDirections,1,2)='" & FrmAjoutPers.CmbDirections.SelectedValue & "');"
            Cmd.Connection = Cn
            Dr = Cmd.ExecuteReader()
            If Dr.HasRows Then
                While Dr.Read
                    FrmAjoutPers.CmbSousDirections.Items.Add(Dr(0))
                End While
                Dr.Close()
                Cn.Close()
            Else
                Dr.Close()
                Cn.Close()
                MsgBox("Pas de Sous Direction Trouver", 0 + 16, " Erreur")
            End If
        Else
            MsgBox("Erreur de connexion à la Base", 0 + 16, "Erreur")
 
        End If
'ComboBox Sous Direction est Toujours Vide " MsgBox("Pas de Sous Direction Trouver", 0 + 16, " Erreur")"

Je sais que je fais des énormes bêtises. Pour apprendre, il faut se sacrifier. C'est pour cela je travail le jour et j’étudie tard la nuit.

Merci à tous:oops:

16/03/2013, 01h13
infosam76
Ce que je te conseille :

- Tu charges ta table dans un DataSet via un DataAdapter.Fill :
Code:

1 2 3 4 5 6 7 8 Cmd.CommandType = CommandType.Text Cmd.CommandText = "Select * from Directions" dim da as new DataAdapter da.SelectCommand = cmd da.fill(ds,"Directions")
- Tu crée un Dataview par ComboBox que tu lies à la combobox correspondante via sa propriété Datasource. Pour créer un DataView :
Code:

1 2 3 4 5 6 Dim dv = New DataView(ds.Table("Directions")) ComboBox1.DataSource = dv ComboBox1.DisplayMember = NomDirections ComboBox1.ValueMember = CodeDirections
A partir de la ta combobox comprend tous les enregistrement de da table Directions

- Un Dataview possède une propriété RowFilter qui permet d'exécuter sur le jeux de données du Dataview l'équivalent d'un Where en Sql.
Code:

1 2 dv.RowFilter = "CodeDirections = " + Mid(CodeDirections,1,2)
Pour le tri :
Code:

1 2 dv.Sort = "CodeDirections"
Ceci est du code tapé à la volée pour te donner un exemple et une marche à suivre, il ne compile peut-être pas complètement, mais cela te donne une piste à suivre.
16/03/2013, 11h54
MoMeBe

Salut :fleur2:

Merci mon frère InfoSam, j'ai essayé mais çà n'a pas marcher.

encore merci parce que tu a fais un effort pour m'aider.

De ma part je cherche encore et j'accepte tout sorte d'aide.

Merci pour tous :pc:

Citation:

Envoyé par MoMeBe

j'ai essayé mais çà n'a pas marcher.

Qu'est ce qui n'a pas marché? Des messages d'erreurs? Si oui quelle est la partie de code concernée?

infosam76 n'est pas devin (enfin je pense ^^) et il a bien dit :

Citation:

Ceci est du code tapé à la volée pour te donner un exemple et une marche à suivre, il ne compile peut-être pas complètement, mais cela te donne une piste à suivre.

Il y a en effet quelque petit problème du genre :
Code:

1 2 3 4 5 Dim dv = New DataView(ds.Table("Directions")) ComboBox1.DataSource = dv ComboBox1.DisplayMember = "NomDirections" ' Il manquait les quotes ComboBox1.ValueMember = "CodeDirections" ' Il manquait les quotes
Rien de bien grave à régler...

16/03/2013, 15h16
infosam76

Effectivement j'ai donné le fil directeur sans trop faire attention à la syntaxe et sans un visual studio ouvert je l'ai bien précisé

1 pièce(s) jointe(s)

Voici un exemple plus concret, fonctionnel et assez proche de ce que tu veux réaliser.

J'ai créé mon Dataset à partir du code en respectant plus ou moins la nomenclature des codes que tu as l'air d'utiliser (comme l'a précisé Sankasssss, j'ai oublié ma boule de cristal ;-) ).

Donc la création de mon Dataset avec les données :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private ds As DataSet
 
...
 
ds = New DataSet
 
' Ajout de la table 
ds.Tables.Add("DIRECTIONS")
 
' Ajout des colonnes 
' ------------------
AddColl("CODE", System.Type.GetType("System.String"), True)
AddColl("LIBELLE", System.Type.GetType("System.String"))
 
' Ajout de quelques lignes
AddRow("01", "Lib01")
AddRow("0101", "Lib01-01")
AddRow("0102", "Lib01-02")
AddRow("02", "Lib02")
AddRow("0201", "Lib02-01")

Pour toi rien d’intéressant dans cette partie je pense vu que tu pars d'une DB.
Tu peux toutefois constater que comme expliqué dans mon poste précédent, je n'ai bien qu'une table dans mon DataSet avec toutes les données.

Ensuite je vais créer un DataView par ComboBox (dans le cadre de mon exemple je n'ai créé que 2 Combo) et les lier avec leurs ComboBox respectives :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
' Initialisation de la combobox direction
dvDirection = New DataView(ds.Tables("DIRECTIONS"))
 
dvDirection.RowFilter = "len(CODE) = 2"
cboDirection.DataSource = dvDirection
cboDirection.DisplayMember = "LIBELLE"
cboDirection.ValueMember = "CODE"
 
' Initialisation de la combobox sous-direction
dvSousDirection = New DataView(ds.Tables("DIRECTIONS"))
 
cboSousDirection.DataSource = dvSousDirection
cboSousDirection.DisplayMember = "LIBELLE"
cboSousDirection.ValueMember = "CODE"

Tu remarqueras que pour la ComboBox des sous-catégories je n'ai pas spécifié de RowFilter sur le DataView correspondant

Je modifie celui-ci dans l'événement SelectedValueChanged de ma ComboBox contenant les directions :

Code:

1
2
 
dvSousDirection.RowFilter = "SUBSTRING(CODE,1,2) = " + cboDirection.SelectedValue + " and len(code) = 4"

Vu que mon DataView dvSousDirection est lié à la ComboBox affichant les sous-directions, elle est modifiée automatiquement en fonction du nouveau filtre.

Donc en gros rien de compliqué. Voici le code complet de l'exemple :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
 
Imports System.Data
 
Public Class Form1
Private bInit As Boolean
Private ds As DataSet
Private dvDirection As DataView
Private dvSousDirection As DataView
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	ds = New DataSet
 
	bInit = True
	' Ajout de la table 
	ds.Tables.Add("DIRECTIONS")
 
	' Ajout des colonnes 
	' ------------------
	AddColl("CODE", System.Type.GetType("System.String"), True)
	AddColl("LIBELLE", System.Type.GetType("System.String"))
 
	' Ajout de quelques lignes
	AddRow("01", "Lib01")
	AddRow("0101", "Lib01-01")
	AddRow("0102", "Lib01-02")
	AddRow("02", "Lib02")
	AddRow("0201", "Lib02-01")
 
	' Initialisation de la combobox direction
	dvDirection = New DataView(ds.Tables("DIRECTIONS"))
	dvDirection.RowFilter = "len(CODE) = 2"
	cboDirection.DataSource = dvDirection
	cboDirection.DisplayMember = "LIBELLE"
	cboDirection.ValueMember = "CODE"
 
	' Initialisation de la combobox sous-direction
	dvSousDirection = New DataView(ds.Tables("DIRECTIONS"))
 
	cboSousDirection.DataSource = dvSousDirection
	cboSousDirection.DisplayMember = "LIBELLE"
	cboSousDirection.ValueMember = "CODE"
 
	bInit = False
 
	If dvDirection.Count > 0 Then
		cboDirection.SelectedIndex = 0
		cboDirection_SelectedValueChanged(Nothing, Nothing)
	End If
 
End Sub
 
' Fonction pour ajouter une colonne 
Private Sub AddColl(ByVal pColumnName As String, ByVal pType As System.Type, Optional ByVal pUnique As Boolean = False)
	Dim col As New DataColumn
 
	With col
		.DataType = pType
		.ColumnName = pColumnName
		.Unique = pUnique
	End With
 
	ds.Tables("DIRECTIONS").Columns.Add(col)
End Sub
 
' Ajout d'une ligne
Private Sub AddRow(ByVal pCode As String, ByVal pLibelle As String)
	Dim newRow As DataRow
 
	newRow = ds.Tables("DIRECTIONS").NewRow
	newRow("CODE") = pCode
	newRow("LIBELLE") = pLibelle
 
	ds.Tables("DIRECTIONS").Rows.Add(newRow)
End Sub
 
' Changement de sélection dans la combobox Direction
Private Sub cboDirection_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboDirection.SelectedValueChanged
	If Not bInit Then
		dvSousDirection.RowFilter = "SUBSTRING(CODE,1,2) = " + cboDirection.SelectedValue + " and len(code) = 4"
	End If
End Sub
End Class

J'ai également joint une archive avec l'application complète. J'espère que tu arriveras à te débloquer avec cet exemple. Si tu as d'autres questions nous sommes la.

Salut tous le monde

Merci InfoSam76 pour ton code. tu es un pro et je suis un débutant, j'essaye de comprendre ce que tu as écrit (ta philosophie dans la programmation) et de faire des modifications pour pouvoir arriver au résultat voulut.
j'ai un table Directions qui contient:
8 Directions (01-02-03-...-08)
45 Sous directions
79 Services
en Total: 132 Enregistrements

Donc cette partie
Code:

1 2 3 4 5 6 7 8 9 10 11 ' Ajout des colonnes ' ------------------ AddColl("CODE", System.Type.GetType("System.String"), True) AddColl("LIBELLE", System.Type.GetType("System.String")) ' Ajout de quelques lignes AddRow("01", "Lib01") AddRow("0101", "Lib01-01") AddRow("0102", "Lib01-02") AddRow("02", "Lib02") AddRow("0201", "Lib02-01")
un peu Flou pour moi.

Merci pour ton aide. On se révéra pour d'autre messages.

17/03/2013, 22h11
infosam76

Cette partie du code normalement tu ne l'utiliseras pas. Cela remplace en fait ta base de données que je n'ai pas. Quel est le type de ta source de données ? (ACCESS, SQLSERVER, XML ) ?
17/03/2013, 22h58
MoMeBe

Salut

Access 2007

Donc dans ton cas, en partant du code se trouvant dans ton premier post, et donc de la connexion ouverte cela donne quelque chose du genre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 dim ds as New DataSet dim da as OleDbDataAdapter ... If Cn.State = ConnectionState.Open Then da = New OleDbDataAdapter ("Select NomDirections from Directions",Cn) da.Fill(ds,"DIRECTIONS") Else MsgBox("Erreur de connexion à la Base", 0 + 16, "Erreur") End If
Tu déclares les deux objets suivant comme variables de classe :
Code:

1 2 3 dim ds as New DataSet dim da as OleDbDataAdapter
et ensuite tu remplis le DataSet grâce au DataAdapter. Tu obtiendras alors un DataSet contenant un DataTable et tu pourras y lier les DataView comme je te l'ai expliqué plus haut. Donc en résumé le code que je te donne ici remplace la partie un peu floue pour toi ou je crée et remplis le DataTable du DataSet à la main.

Salut

le problème je croit c'est dans la requete

Code:

Cmd.CommandText = "SELECT NomDirections FROM Directions WHERE (Val(CodeDirections)>100 And Val(CodeDirections)<10000 and mid(CodeDirections,1,2)='" & CmbDirections.SelectedValue & "');"

"(Val(CodeDirections)>100 And Val(CodeDirections)<10000 and mid(CodeDirections,1,2)" critère sur champs (CodeDirection)
"CmbDirections.SelectedValue" champs (NomDirections)

c'est pour cela toujours le même MsgBox("Pas de Sous Direction Trouver", 0 + 16, " Erreur")

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
37
38
39
40
41
42
43
44
45
46
47
48
 Public Sub CmbDir()
        Cn.Open()
        If Cn.State = ConnectionState.Open Then
            Cmd.CommandType = CommandType.Text
            Cmd.CommandText = "Select NomDirections from Directions where CodeDirections = Mid(CodeDirections,1,2) Order By CodeDirections"
            Cmd.Connection = Cn
            Dr = Cmd.ExecuteReader()
            If Dr.HasRows Then
                While Dr.Read
                    FrmAjoutPers.CmbDirections.Items.Add(Dr(0))
                End While
                Dr.Close()
                Cn.Close()
            Else
                Dr.Close()
                Cn.Close()
                MsgBox("Pas de Direction Trouver", 0 + 16, " Erreur")
            End If
        Else
            MsgBox("Erreur de connexion à la Base", 0 + 16, "Erreur")
        End If
    End Sub
 
'ComboBox Direction a été remplit avec Succès
 
    Public Sub CmbSousDir()
        Cn.Open()
        If Cn1.State = ConnectionState.Open Then
            Cmd.CommandType = CommandType.Text
            Cmd.CommandText = "SELECT NomDirections FROM Directions WHERE (Val(CodeDirections)>100 And Val(CodeDirections)<10000 and mid(CodeDirections,1,2)='" & CmbDirections.SelectedValue & "');"
            Cmd.Connection = Cn
            Dr = Cmd.ExecuteReader()
            If Dr.HasRows Then
                While Dr.Read
                   CmbSousDirections.Items.Add(Dr(0))
                End While
                Dr.Close()
                Cn.Close()
            Else
                Dr.Close()
                Cn.Close()
                MsgBox("Pas de Sous Direction Trouver", 0 + 16, " Erreur")
            End If
        Else
            MsgBox("Erreur de connexion à la Base", 0 + 16, "Erreur")
 
        End If
'ComboBox Sous Direction est Toujours Vide " MsgBox("Pas de Sous Direction Trouver", 0 + 16, " Erreur")"

Comment faire SVP
Merci

18/03/2013, 22h23
infosam76

Pas évident de t'aider si on ne connait pas le contenu de CmbDirections.SelectedValue. Ton problème vient effectivement peut-être de la mais sans cette information on ne saurait rien faire.
18/03/2013, 22h28
Sankasssss

En utilisant les requêtes paramétrées, telle que dit dans votre discussion précédente, vous n'auriez pas ce genre de problème.
La concaténation dans les requêtes est à éviter au maximum.
18/03/2013, 23h31
MoMeBe

salut

comme vous le savez je suis debutant et je ne sais encore comment utiliser les requêtes paramétrées.

Oui je le sais et c'est aussi pour cela que j'insiste autant car je sais que quand on prend de mauvaise habitudes c'est dur de s'en défaire.
Il y a un bel exemple dans votre précédente discussion, et on en trouve plein d'exemple sur le net
Code:

1 2 3 SQ = " Select CNRPS, Mutuel From TPersonnels where CIN = ? " ' On remplace le paramètre par le ? (spécifique à ce fournisseur) Cmd.Parameters.Add("CIN", System.Data.OleDb.OleDbType.Double) ' On ajoute un paramètre du type du champ de la BD Cmd.Parameters("CIN").Value = TXTCIN.Text ' On met la valeur dans le paramètre précédemment créé.
Pas compliqué :)