Bonjour,
Je travaille sur un projet, celui-ci doit lier des données venant d'une base oracle 9i à une combo box. Le problème est que je possède plusieurs combo et qu'à chaque incrémentation de combo box. je dois retaper le même code à quelques exceptions près. Exemple :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
  Public Shared Sub requête_oracle_combo5(ByVal requete As String)
        cmd.CommandText = requete
        cmd.CommandType = CommandType.Text
        Try
            Dim dr As OracleDataReader = cmd.ExecuteReader()
            While (dr.Read())
                Gestion_adresse_email.CBtype.Items.Add(dr.Item("TYPE_PRODUIT"))
            End While
        Catch ex As Exception
            ex.ToString()
        End Try
    End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 Public Shared Sub requête_oracle_combo6(ByVal requete As String)
        cmd.CommandText = requete
        cmd.CommandType = CommandType.Text
        Try
            Dim dr As OracleDataReader = cmd.ExecuteReader()
            While (dr.Read())
                Gestion_adresse_email.CBPays.Items.Add(dr.Item("PAYS"))
            End While
        Catch ex As Exception
            ex.ToString()
        End Try
    End Sub

Voila la procédure réalisée et qui ne fonctionne pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Public Shared Sub combo(ByVal requete As String, ByRef combo As ComboBox, ByVal selection As String)
            cmd.CommandText = requete
            cmd.CommandType = CommandType.Text
            Try
                Dim dr As OracleDataReader = cmd.ExecuteReader()
                While (dr.Read())
                    combo.Items.Add(dr.Item(selection))
                End While
            Catch ex As Exception
                ex.ToString()
            End Try
        End Sub
merci d'avance