Discussion :

[D4rkTiger]

Bonjour,

Voilà j'ai en fait un WindowsForm qui contient plusieurs ComboBox. Ces combobox sont destinés à faire des choix d'écoles en fonction de concours.

Donc lorsque qu'un utilisateur renseigne le même concours deux fois à suivre, il ne doit pas pouvoir sélectionner dans les deux la même école.

Il faudrait donc que lorsqu'il choisit une école dans une Combobox, celle ci se copie dans la deuxième combobox en enlevant l'école sélectionnée.

J'ai déjà essayé ça :

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
Dim Elements() As Object
Private Sub cboPremConcours2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboPremConcours2.SelectedIndexChanged

        If Me.cboPremConcours2.SelectedItem <> Me.cboPremConcours1.SelectedItem Then

            Dim Ecoles As New OleDbCommand("SELECT * FROM ecole WHERE CodeConcours='" + Me.cboPremConcours2.SelectedItem + "'", OConnexion)
            Dim dt As OleDbDataReader

            Try
                OConnexion.Open()
                Me.cboPremEcolesConcours2.Items.Clear()
                dt = Ecoles.ExecuteReader
                'Remplissage de la Liste Déroulante selon le Concours Choisi
                While dt.Read
                    Me.cboPremEcolesConcours2.Items.Add(dt.Item(0))
                End While
            Catch ex As Exception
                MessageBox.Show("Erreur dans la Récupération des Données", "Echec Récupération", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Me.cboPremEcolesConcours2.Text = "- Pas de Données Récupérées -"
            End Try
            OConnexion.Close()

        Else

            Me.cboPremEcolesConcours1.Items.CopyTo(Elements, 0)
            Me.cboPremEcolesConcours2.Items.AddRange(Elements)

        End If

        'Remise en Etat de la Sélection de l'Ecole
        Me.cboPremEcolesConcours2.Text = "- Ecoles du Concours -"

        'Activation de la liste des Ecoles
        Me.cboPremEcolesConcours2.Enabled = True
End Sub

Mais il me dit que paramètre item ne peut pas être null alors que je n'ai pas de paramètre item. Donc si vous avez une solution ce serait cool

[zeavan]

pour passer des element d'une combobox, listbox ou tout autre composant ou tout simplement modifier tes donnees , il est conseille de changer ca a la source(pas la db mais intermediare):

dans ton cas:

1) je lis mes donnees de tb1 les store dans une dTable1 par example
2) je lis mes donnees de tb2 les store dans une dTable2 par example

ensuite tu fait:
myComboBox1.DataSource=dTable1 ;
myComboBox2.DataSource=dTable2 ;

puis

tu fais passer les element d'une table a une autre .

[zeavan]

Code :

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

1
2
3
4
5
Dim Elements() As Object
                While dt.Read
                    Me.cboPremEcolesConcours2.Items.Add(dt.Item(0))
               End While

Mais il me dit que paramètre item ne peut pas être null alors que je n'ai pas de paramètre item. Donc si vous avez une solution ce serait cool

sinon ton probleme viens du Items.Add(dt.Item(0))
rajoute une condition !=null

[D4rkTiger]

pour passer des element d'une combobox, listbox ou tout autre composant ou tout simplement modifier tes donnees , il est conseille de changer ca a la source(pas la db mais intermediare):

dans ton cas:

1) je lis mes donnees de tb1 les store dans une dTable1 par example
2) je lis mes donnees de tb2 les store dans une dTable2 par example

Cela voudrais dire que je devrais écrire ça :

Code :

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

1
2
3
4
5
6
7
8
i = 0

While dt.Read
        Me.cboPremEcolesConcours2.Items.Add(dt.Item(0))
        dTable1(i) = dt.Item(0)
        i += 1
End While

Pour ensuite l'utiliser comme ceci :

Code :

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

1
2
Me.cboPremEcolesConcours2.DataSource = dTable1

Le Problème c'est que les ComboBox que j'utilise sont avec un nombre de lignes variables suivant le concours donc je ne connais pas la taille du tableau

En tout cas je vais essayé avec un nombre bidon et je reviendrai dire
Et merci pour votre aide

[zeavan]

Cela voudrais dire que je devrais écrire ça :

Code :

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

1
2
3
4
5
6
7
8
i = 0
 
While dt.Read
        Me.cboPremEcolesConcours2.Items.Add(dt.Item(0))
        dTable1(i) = dt.Item(0)
        i += 1
End While

Pour ensuite l'utiliser comme ceci :

Code :

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

1
2
Me.cboPremEcolesConcours2.DataSource = dTable1

Le Problème c'est que les ComboBox que j'utilise sont avec un nombre de lignes variables suivant le concours donc je ne connais pas la taille du tableau

En tout cas je vais essayé avec un nombre bidon et je reviendrai dire
Et merci pour votre aide

non plutot ceci :
si tu veux utiliser un datareader

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
DataTable dt=new DataTable("monTableau");
dt.Columns.Add("maColonne");
 
while(monDataReader.read())
{
  DataRow dr= dt.NewRow();
  dr["maColonne"]=monDataReader.iem(0);
  dt.Rows.Add(dr);
}
 
this.cboPremEcolesConcours2.DataSource=dt;

avec dataadpater plus lent mais plus court

monDataAdapter.fill(maDataTable);

[D4rkTiger]

OPui j'ai vu que j'avais des complications , Je vais donc essayé ta nouvelle solution.

Merci

[D4rkTiger]

J'ai essayé ta solution mais je ne sis pas arrivé à mes fin. Il y avait un début j'avais réussi à resynchroniser 3 des mes combobox.

Mais j'ai finalement trouvé une méthode. C'est de créer des OleDbParameter qui viennent compléter ma requête a chaque choix que j'effectue.

Donc voilà à quoi je suis arrivé :
Ma Requête:

Code :

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

1
2
Public Ecoles As New OleDb.OleDbCommand("SELECT sigle FROM ecole WHERE CodeConcours=?", OConnexion)

Mon Paramètre du Concours:

Code :

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

1
2
Public ParamConcours As New OleDb.OleDbParameter("Concours", OleDb.OleDbType.VarWChar)

La Fonction d'Enregistrement :

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
'Liste des Ecoles du Concours Selectionné
    Public Sub LstEcoles(ByVal Concours As String, ByRef ListeModif As ComboBox)
        Dim DataEcoles As OleDb.OleDbDataReader
        Try
            OConnexion.Open()

            If Ecoles.Parameters.Item("Concours").Value <> Concours Then
                Ici j'ajoute le premier paramètre à ma requête, c'est le Concours qui a été choisi. Il n'est modifié que s'il change.
                Ecoles.Parameters.Item("Concours").Value = Concours
            End If

            'Execution de la Commande
            DataEcoles = Ecoles.ExecuteReader()

            'Vidage des Listes
            ListeModif.Items.Clear()

            While DataEcoles.Read
                'Listes Déroulantes à Remplir
                ListeModif.Items.Add(DataEcoles.Item(0))
            End While
            DataEcoles.Close()
        Catch ex As Exception
            MessageBox.Show("Aucune Ecoles n'a pu être mis en relation avec le concours selectionné" & Chr(13) & "L'Administrateur va être prévenu de cette erreur", "Erreur Liste Ecoles", MessageBoxButtons.OK, MessageBoxIcon.Error)
            ErreurLog(ex.ToString)
        Finally
            OConnexion.Close()
        End Try
    End Sub

Le Paramètre de l'Ecole Choisie :

Code :

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

1
2
3
4
'Modification de ligne de Commande
        Ecoles.CommandText &= " AND sigle <> ?"
        Ecoles.Parameters.AddWithValue("Ecole" & Ecoles.Parameters.Count.ToString, Me.cboLstPremEcoles.SelectedItem)

Ce qi fait que à chaque choix d'une ecole ma ligne de commande reçoit un complément d'infos sur ce qu'elle doit sélectionner et ceux pour n'importe quel Concours.

Voilà si vous avez des questions sur comment j'ai fait n'hésitez pas!