Discussion :

[BMG MODE]

Bonjour je débute sur VB .NET, et c'est ma toute première discussion sur ce forum. Bref, j'aimerai dans mon projet pouvoir Actualiser automatiquement ma forme à partir de la sélection dans un COMBOBOX. Merci d'avance Lisez mon commentaire de code si vous n'avez pas bien saisi ma préoccupation

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
 
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim MaRequete As String
        MaRequete = "select * from employe"
        Dim myReader As SqlDataReader = F_login.MaLecture_Select1(MaRequete) 'Une function que j'appelle pour recuperer les données dans la bd , elle marche.
        Do While myReader.Read()
            If myReader.GetValue(0) = ComboBox1.SelectedValue Then 'si la valeur du combobox du label matriule correspond a un id de ma table dans la bd alors. je veux remplir les autres champ automatiquement ne neccessitant pas de bouton.
                TextBox1.Text = myReader.GetValue(1)
                TextBox2.Text = myReader.GetValue(2)
                TextBox3.Text = myReader.GetValue(3)
                TextBox4.Text = myReader.GetValue(4)
                ComboBox2.Text = myReader.GetValue(5)
                ComboBox2.Text = myReader.GetValue(6)
            End If
        Loop
        Me.Refresh()  'j'ai essayer refresh ça ne donne rien

[Phil Rob]

Bonjour,

Ne suffirait-il pas d'ajouter une clause WHERE à ta requête pour obtenir des résultats en fonction du contenu di ComboBox ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim MaRequete As String
        MaRequete = "select * from employe WHERE LeNomDuChampsAdequat =  '" & ComboBox1.SelectedValue & "'"
 
        Dim myReader As SqlDataReader = F_login.MaLecture_Select1(MaRequete) 'Une function que j'appelle pour recuperer les données dans la bd , elle marche.
        Do While myReader.Read()
            If myReader.GetValue(0) = ComboBox1.SelectedValue Then 'si la valeur du combobox du label matriule correspond a un id de ma table dans la bd alors. je veux remplir les autres champ automatiquement ne neccessitant pas de bouton.
                TextBox1.Text = myReader.GetValue(1)
                TextBox2.Text = myReader.GetValue(2)
 
' ... ... ...