Récupérer la valeur d'une combobox

**kelegan** · 02/02/2010, 13h51

Bonjour à tous!

Voilà, depuis quelques jours je penche sur un gros soucis. J'ai une combobox où les valeurs sont générées via une requête.
Jusque là, pas de souci.

L'utilisateur choisis donc la valeur de la combo, mais là gros problème, impossible à récupérer la valeur pour l'utiliser dans une requête sur le formulaire suivant !

J'ai tester le combo.selectedtext, combo.selectedvalue, combo.text

Mais hélas, rien ne fonctionne, je ne récupère pas la valeur.

Est-ce que quelqu'un peut m'aider? Merci d'avance

**nasty** · 02/02/2010, 14h07

Bonjour,
On peut voir un morceau de code?
Cordialement
Nasty

**kelegan** · 02/02/2010, 14h58

Oui bien sur !

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
37
38
39
40
41
42
43
44
Public Class Frmprofeleve
 
    Private Sub btnQuitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuitter.Click
        Me.Close()
        connexion.Close()
    End Sub
 
    Private Sub Frmprofeleve_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'tentative d'ouverture d'une connexion avec le serveur de base de données
        If Ouvertureconnexion() Then
            Dim strRequete As String
 
            strRequete = "SELECT num_eleve,nom_eleve, prenom_eleve FROM eleve"
            Try
                Dim Command As New SqlClient.SqlCommand(strRequete, connexion)
                Dim Sdrmodifnote As SqlClient.SqlDataReader
                Sdrmodifnote = Command.ExecuteReader
                Do While Sdrmodifnote.Read()
                    CBeleve.Items.Add(Sdrmodifnote("nom_eleve"))
                    Module_note.eleve = (Sdrmodifnote("num_eleve"))
                Loop
                Sdrmodifnote.Close()
            Catch Probleme As Exception
                MessageBox.Show("L'erreur suivante a été rencontrée : " + Probleme.Message)
            End Try
        Else
            MessageBox.Show("La connexion au serveur n'a pas été réalisée")
        End If
        Connexion.Close()
    End Sub
 
    Private Sub Btnvalider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnvalider.Click
        Dim num_eleve As String
        num_eleve = Me.CBeleve.SelectedValue
        Frmmodifnote.lblnumeleve.Text = num_eleve
 
        If CBeleve.Text = String.Empty Then
            MessageBox.Show("Erreur, veuillez choisir un élève")
        Else
            MessageBox.Show(num_eleve)
            Frmmodifnote.Show()
        End If
    End Sub
End Class

**nasty** · 02/02/2010, 15h09

Re bonjour
As tu essayé de récupérer le nom d'un élève pour un index fixe?

Code :

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

1
2
3
 
     Me.CBeleve.SelectedIndex = 0
     num_eleve = Me.CBeleve.SelectedValue

EDIT : essaye plutôt .SelectedItem!

Cordialement
Nasty

**kelegan** · 02/02/2010, 15h20

Ah! Intéressant, en prenant .selecteditems, j'ai bien le nom de la personne choisis dans la combo qui apparait suite au messagebox! Donc j'arrive bien à récupéré la valeur! C'est une bonne chose, merci beaucoup.

Voilà ce que j'ai mis.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Btnvalider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnvalider.Click
        Dim num_eleve As String
        Me.CBeleve.SelectedItem = 0
        num_eleve = Me.CBeleve.SelectedItem
        Frmmodifnote.lblnumeleve.Text = num_eleve
        If CBeleve.Text = String.Empty Then
            MessageBox.Show("Erreur, veuillez choisir un élève")
        Else
            MessageBox.Show(num_eleve)
            Frmmodifnote.Show()
        End If
    End Sub

J'ai oublié d'ajouter sur le formulaire qui suit, je dois avoir le bulletin de note de l'élève choisis, mais j'obtiens celui de la dernière personne de la combo.

Et je n'arrive pas à l'utiliser pour cette requête

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
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
Public Class Frmmodifnote
    Dim Demande As String
    Private Sub Frmmodifnote_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Groupnote.Visible = False
        lblnom.Text = ""
        'On interdit la saisie directement dans la grille
        Me.DtGmodifnote.ReadOnly = True
        'Initialisation du nombre de colonnes
        DtGmodifnote.ColumnCount = 2
        'Definition des entêtes et de la taille des colonnes. Attention la numérotation des colonnes commence à 0
        DtGmodifnote.Columns(0).Name = "Matiere"
        DtGmodifnote.Columns(0).Width = 200
        DtGmodifnote.Columns(1).Name = "Moyenne"
        DtGmodifnote.Columns(1).Width = 100
        lblnumeleve.Text = eleve
 
        'Connexion à la base de données
        If Ouvertureconnexion() Then
            Dim strRequete As String
            Dim nb_note As Integer
            Dim somme_note As Double
            Dim moynote As Double
            strRequete = "SELECT DISTINCT a.num_matiere, e.num_eleve,nom_matiere, nom_eleve, count(note)nb_note, sum(note)somme_note FROM eleve e, apprendre a, matiere m WHERE m.num_matiere=a.num_matiere AND e.num_eleve=a.num_eleve AND e.num_eleve='" & lblnumeleve.Text & "' GROUP BY a.num_matiere, nom_matiere, nom_eleve,e.num_eleve"
            Try
                Dim Command As New SqlClient.SqlCommand(strRequete, connexion)
                Dim Sdrnote As SqlClient.SqlDataReader
                Sdrnote = Command.ExecuteReader
                Do While Sdrnote.Read()
                    nb_note = Sdrnote("nb_note")
                    somme_note = Sdrnote("somme_note")
                    moynote = somme_note / nb_note
                    Me.DtGmodifnote.Rows.Add(Sdrnote("nom_matiere"), moynote)
                Loop
                Sdrnote.Close()
            Catch Probleme As Exception
                MessageBox.Show("L'erreur suivante a été rencontrée : " + Probleme.Message)
            End Try
 
        Else
            MessageBox.Show("La connexion au serveur n'a pas été réalisée")
        End If
 
    End Sub
 
    Private Sub Btnquitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnquitter.Click
        Me.Close()
        Connexion.Close()
    End Sub
    Private Sub Btnajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnajouter.Click
        txtnote.Enabled = True
        Groupnote.Visible = True
        txtnote.Text = ""
        txtnote.Focus()
        'connection à la base de données
        If Ouvertureconnexion() Then
            Dim strRequete_select As String
            Dim numero_mat As String
 
            strRequete_select = "SELECT e.num_matiere, nom_matiere  FROM Matiere m, apprendre a WHERE e.num_latiere=a.num_matiere nom_matiere and num_eleve'" & lblnumeleve.Text & "' "
            Try
                Dim Command As New SqlClient.SqlCommand(strRequete_select, connexion)
                Dim Sdrmatiere As SqlClient.SqlDataReader
                Sdrmatiere = Command.ExecuteReader
                numero_mat = Sdrmatiere("num_matiere")
                Do While Sdrmatiere.Read()
                Loop
                Sdrmatiere.Close()
            Catch Probleme As Exception
                MessageBox.Show("L'erreur suivante a été rencontrée : " + Probleme.Message)
            End Try
        Else
            MessageBox.Show("La connexion au serveur n'a pas été réalisée")
        End If
        Connexion.Close()
    End Sub
End Class

lblnumeleve dans la requête est un label crée pour récupérer la valeur num_eleve.

Peu importe la personne que je choisis, elle sera toujours la même sur le bulletin, ce qui est un peu contraignant. Je dois mal utilisé ma variable je pense.

**nasty** · 02/02/2010, 15h31

As tu vérifié que ta requête récupérais bien les bons résultats?

Code :

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

1
2
3
strRequete = "SELECT DISTINCT a.num_matiere, e.num_eleve,nom_matiere, nom_eleve, count(note)nb_note, sum(note)somme_note FROM eleve e, apprendre a, matiere m WHERE m.num_matiere=a.num_matiere AND e.num_eleve=a.num_eleve AND e.num_eleve='" & lblnumeleve.Text & "' GROUP BY a.num_matiere, nom_matiere, nom_eleve,e.num_eleve"
 
inputbox("","", strRequete)

Teste ta requête comme ca. Si elle retourne pas les bons resultats t'aura une piste.
Cordialement
Nasty

**kelegan** · 02/02/2010, 15h35

Code :

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

SELECT DISTINCT a.num_matiere, e.num_eleve,nom_matiere, nom_eleve, count(note)nb_note, sum(note)somme_note FROM eleve e, apprendre a, matiere m WHERE m.num_matiere=a.num_matiere AND e.num_eleve=a.num_eleve AND e.num_eleve='E010' GROUP BY a.num_matiere, nom_matiere, nom_eleve,e.num_eleve

Voilà ce que j'ai. Le numéro envoyé est le dernier élève de la combobox précédente.

EUREKA !!

J'ai ajouter une ligne il y a quelques jours que j'ai oublié de retirer !

Code :

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