Discussion :

[andy331]

Bonjour à tous!

Voila j'ai un problème avec ma comboBox je voudrais afficher une liste de pays dans la comboBox via une requete que j'ai testé qui fonction bien sous sql access pourtant lorsque je lance le programme rien se passe ma comboBox reste vide!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Globale.Initialiser()
 
        'CREATION DE LA REQUETTE
        Dim maRequete As String
        maRequete = "SELECT pay_nom FROM pays WHERE pay_code = ('" & CboBoxPays.SelectedItem & "')"
 
        'LA COMMANDE
 
        Dim maCommande4 As OleDbCommand
        maCommande4 = New OleDbCommand()
        maCommande4.Connection = Globale.connexion
        maCommande4.CommandType = CommandType.Text
        maCommande4.CommandText = maRequete
 
        'LE DATAREADER
 
        Dim monDatareader As OleDbDataReader
        monDatareader = maCommande4.ExecuteReader()
        If ((monDatareader.Read() = True)) Then
            codePays = monDatareader("pay_code")
        End If
        'FERMETURE DE LA CONNECTION
        monDatareader.Close()

Merci de votre aide

[oussi]

Bonjour,
Si ta combobox s'appelle codePays, alors voila ce que tu va faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
'LE DATAREADER
 
        Dim monDatareader As OleDbDataReader
        monDatareader = maCommande4.ExecuteReader()
        while (monDatareader.Read())
            codePays.Items.Add(monDatareader.Item(0).ToString())
        End while

Si ta une erreur fait signe
Cordialement,

[andy331]

En faite ma combobox s'appelle CboBoxPays et codepays est la une variable globale que j'ai déclarer un peu plus pour récupérer la clé primaire de la table pays que je voudrais ensuite utiliser dans une requête

[oussi]

Salut,
Je pense que c'est la même chose, non?je me trompe?
remplace codPays par CboBoxPays
et t'auras quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
'LE DATAREADER
 
        Dim monDatareader As OleDbDataReader
        monDatareader = maCommande4.ExecuteReader()
        while (monDatareader.Read())
            CboBoxPays.Items.Add(monDatareader.Item(0).ToString())
        End while

@++

[andy331]

OUi c'est ça mais je l'obtiens toujours rien
Et je me demande si l'erreur ne viendrait pas au niveau de la requête maintenant ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

maRequete = "SELECT pay_nom FROM pays WHERE pay_code = ('" & CboBoxPays.SelectedItem & "')"

[oussi]

Salut,
Peut être que c'est les parenthèses, ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

('" & CboBoxPays.SelectedItem & "')

Je ne les ai jamais utiliser et j'ai jamais eu de problèmes. Enlève les et voie ce que sa donne.

PS : Le débogage pas à pas peut t'aider à trouver le problème, en t'aidant à voir ce qui ce passe pendant les étapes de ton code.
@++