Discussion :

[quentincabo]

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

[boubounne]

As tu un message d'erreur ou quelque chose pour nous aider stp

[Ditch]

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 par contre on ne sait pas si ca correspond à ce que tu voudrais faire.

[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.

[quentincabo]

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

[quentincabo]

le code était bon mais j'avais commis une erreur dans la connexion à ma base de donnée.

[Ditch]

En affichant ton "ex.ToString()" tu l'aurais su directement Ici tu renvoies un string qui n'est jamais utilisé. Et vu que tu catches l'exception tu ne la vois jamais apparaitre.

[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