deux combobox dans une même form VB.NET ACCESS

Version imprimable

Bonjour,
merci de m'aider pour resoudre mon probleme:

mon probleme consiste à remplir deux combobox chacun provient d'une table independant pour ajouté un nouveau enregistrement produit
combobox1; provient de la table categorie et m'affiche dans un textbox le libellé categorie produit
Combobox2:provient de la table fournisseur et m'affiche dans un textbox le fournisseur de produit
code de form load:

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
  Private Sub Ajouter_Produit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Categories
        Try
 
            Dim dr As OleDbDataReader
 
            CN.Open()
            cmd.Connection = CN
            cmd.CommandText = "select * from Categories "
            dr = cmd.ExecuteReader
            Remplir_Liste_Produits()
            While dr.Read
                ComboBox1.Items.Add(dr.GetValue(0).ToString)
            End While
            CN.Close()
        Catch ex As Exception
 
        End Try
 
        'Fournisseurs
        Try
            Dim dr1 As OleDbDataReader
            CN.Open()
            cmd1.Connection = CN
            cmd1.CommandText = "select * from Fournisseurs "
            dr1 = cmd.ExecuteReader
            Remplir_Liste_Produits()
 
            While dr1.Read
                ComboBox2.Items.Add(dr1.GetValue(1))
            End While
            CN.Close()
        Catch ex As Exception
 
        End Try
    End Sub

et sa c'est le code de bouton ajouter:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click, Button4.Click
        Try
            CN.Open()
            cmd5.Connection = CN
            Dim dr5 As OleDbDataReader
            cmd5.CommandText = "insert into Produits values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & DateTimePicker1.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "')"
            dr5 = cmd5.ExecuteReader
            MsgBox("Enregistré avec succée")
 
            CN.Close()
        Catch ex As Exception
 
        End Try
    End Sub

Merci

14/07/2015, 21h14
shayw

Bonjour

Et une erreur ?

D'abord

Code:

ComboBox2.Items.Add(dr1.GetValue(1))

plutôt

Code:

ComboBox2.Items.Add(dr1.GetValue(0))

tu n'as qu'un champ
14/07/2015, 21h47
saadoun

1 pièce(s) jointe(s)

comment remplir deux combobox de deux tables differents dans le même form vb.net access

Merci pour votre remarque mais lorsque j'ai rectifier comme vous m'avez dit le même probleme j'ai reçu

Code:

ComboBox2.Items.Add(dr1.GetValue(0))

le combobox2 à prix celui de combobox1

Code:

ComboBox1.Items.Add(dr1.GetValue(0))

S'il vous plait aidez moi
14/07/2015, 21h54
shayw

Erreur de ma part

remets comme c' était
et alors quel est le problème ton code ne marche pas ? c'est à toi de détailler

comment remplir deux combobox de deux tables differents dans le même form vb.net access

le probleme que pour combobox2 ne prend pas les informations de la requete

Code:

select * from Fournisseurs

le code de bouton enregistrer :

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 Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click, Button4.Click
        Try
            CN.Open()
            cmd5.Connection = CN
            Dim dr5 As OleDbDataReader
            cmd5.CommandText = "insert into Produits values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & DateTimePicker1.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "')"
            dr5 = cmd5.ExecuteReader
            MsgBox("Enregistré avec succée")
            TextBox1.Enabled = False
            TextBox2.Enabled = False
            TextBox3.Enabled = False
            TextBox4.Enabled = False
            TextBox5.Enabled = False
            TextBox7.Enabled = False
            TextBox8.Enabled = False
            TextBox9.Enabled = False
            TextBox10.Enabled = False
 
            ComboBox1.Enabled = False
            ComboBox1.Enabled = False
            DateTimePicker1.Enabled = False
 
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
            TextBox5.Text = ""
            TextBox6.Text = ""
            TextBox7.Text = ""
            TextBox8.Text = ""
            TextBox9.Text = ""
            TextBox10.Text = ""
 
            ComboBox1.Text = ""
            ComboBox2.Text = ""
            DateTimePicker1.Text = Now
 
            CN.Close()
        Catch ex As Exception
 
        End Try
    End Sub

14/07/2015, 22h53
shayw

que fait Remplir_Liste_Produits() ?

Citation:

Envoyé par shayw

que fait Remplir_Liste_Produits() ?

remplissage de datagridview et sa le code:

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
Public Sub Remplir_Liste_Produits()
        Dim Cmd As New OleDb.OleDbCommand, Da As New OleDb.OleDbDataAdapter, DT As New Data.DataTable
        Dim req As String
        DT.Clear()
        DT.Columns.Clear()
        req = "SELECT Reference,Deseignation,Quantite,Prix_Unitaire,Prix_Total,Stock,Stock_min,QuantiteCommandees,Date_AJ,Code_categorie,Numfournisseur FROM Produits '"
        Cmd.Connection = CN
        If Cmd.Connection.State = ConnectionState.Closed Then Cmd.Connection.Open()
        Cmd.CommandText = req
        Da.SelectCommand = Cmd
        Da.Fill(DT)
        DT.Columns("Reference").ColumnName = "Reference"
        DT.Columns("Deseignation").ColumnName = "Deseignation"
        DT.Columns("Quantite").ColumnName = "Quantite"
        DT.Columns("Prix_Unitaire").ColumnName = "Prix unitaire"
        DT.Columns("Prix_Total").ColumnName = "Prix Total"
        DT.Columns("Stock").ColumnName = "Stock"
        DT.Columns("Stock_min").ColumnName = "Stock minimale"
        DT.Columns("QuantiteCommandees").ColumnName = "Quantite Commandée"
        DT.Columns("Date_AJ").ColumnName = "Date d'ajout"
        DT.Columns("Code_categorie").ColumnName = "Code categorie"
        DT.Columns("Numfournisseur").ColumnName = "N°Fournisseur"
        DataGridView1.DataSource = DT
    End Sub

Bonjour,
J'arrive un peut tard mais bon:

Code:

1
2
3
4
5
6
7
8
9
10
11
 Dim cmd As OleDbCommand = New OleDbCommand
        cmd.Connection = cnx
        cmd.CommandText = "insert into Produits  (Produits ) values(?)"
        cmd.Parameters.AddWithValue("@Produits ", "Produits")
        cmd.ExecuteNonQuery()
 
        Dim Sql As String = "select * from Produits"
        Dim oledbAdapter As OleDbDataAdapter = New OleDbDataAdapter(Sql, cnx)
        Dim oDataSet As New DataSet("Produits")
        oledbAdapter.Fill(oDataSet, "Produits")
        Me.DataGridView1.DataSource = oDataSet.Tables("Produits")