VB.Net et Combo box

Version imprimable

VB.Net et Combo box

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:

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:

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:

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

08/04/2008, 11h17
boubounne

As tu un message d'erreur ou quelque chose pour nous aider stp
08/04/2008, 11h22
Ditch

Citation:

Envoyé par quentincabo

Voila la procédure réalisée et qui ne fonctionne pas

Si si ca fonctionne, ca fait ce que tu lui as dit de faire :mouarf: par contre on ne sait pas si ca correspond à ce que tu voudrais faire.
08/04/2008, 11h34
quentincabo

Bonjour,

nonn je n'ai aucun message d'erreur, il me remet juste les combo box vide et nom pas remplie des éléments voulu.
08/04/2008, 11h35
quentincabo

Citation:

Si si ca fonctionne, ca fait ce que tu lui as dit de faire par contre on ne sait pas si ca correspond à ce que tu voudrais faire.

Tu as raison mais bon je me comprends
08/04/2008, 14h56
quentincabo

le code était bon mais j'avais commis une erreur dans la connexion à ma base de donnée.:oops::oops::oops::oops::oops::oops:
08/04/2008, 15h59
Ditch

En affichant ton "ex.ToString()" tu l'aurais su directement :mouarf: Ici tu renvoies un string qui n'est jamais utilisé. Et vu que tu catches l'exception tu ne la vois jamais apparaitre.
08/04/2008, 16h13
quentincabo

Oui, c'est comme cela que je l'ai vu. envoi soit c'est une bête erreur et je suis désole de vous avoir déranger pour si peu