[Débutant] remplir Textbox et combobox grace au résultat d'un autre combobox

Bonjour,

J'ai dans mon formulaire un combobox contenant les raisons sociale des fournisseurs, et j'aimerais que une fois sélectionné, le textbox avec le numéro du fournisseur se remplisse, et qu 'un combobox se remplisse avec les produits que vend ce fournisseur.

Pour le textbox je me suis inspiré d'un sujet de ce forum (http://www.developpez.net/forums/d81...elect-textbox/) mais sans réussite :

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
Private Sub CbxRsFourNvCmd_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbxRsFourNvCmd.SelectedIndexChanged
 
'pour le textbox
       Try
            Dim con3 As New OleDbConnection
            con3.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\MaBdd.accdb")
            Dim cmd2 As New OleDbCommand
            cmd2.CommandType = System.Data.CommandType.Text
            cmd2.CommandText = "SELECT NumFournisseur From Fournisseur Where RaisonSocialeFour = '" & CbxRsFourNvCmd.Text & "' ;"
            cmd2.Connection = con3
            con3.Open()
            Dim s As String = cmd2.ExecuteScalar.ToString
            TxtBxNumFourNvCmd.Text = s
            con3.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
 
'Et pour le combobox après quelques recherche j'ai fait ça :
 
        Try
            Dim con4 As New OleDbConnection
 
            con4.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\MaBdd.accdb")
            Dim cmd3 As New OleDbCommand
            Dim lire As OleDbDataReader
            cmd3.CommandType = System.Data.CommandType.Text
            cmd3.CommandText = "SELECT NomProduit FROM Produit inner join Fournisseur on Produit.NumFournisseur = Fournisseur.NumFourisseur where RaisonSocialeFour = '" & CbxRsFourNvCmd.Text & "' ;"
            cmd3.Connection = con4
 
            con4.Open()
            lire = cmd3.ExecuteReader
            Do While lire.Read
                CBxProdNvCmd.Items.Add(lire("NomProduit"))
            Loop
            lire.Close()
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
End sub

Donc je voudrais savoir qu'est ce que j'ai al fait et si vous auriez des solutions s'il vous plait ?

Merci d'avance