Afficher données dans comboBox

Version imprimable

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:

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

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

Code:

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:ccool:
Cordialement,

31/05/2010, 12h28
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

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:

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

@++:ccool:

01/06/2010, 00h40
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:

maRequete = "SELECT pay_nom FROM pays WHERE pay_code = ('" & CboBoxPays.SelectedItem & "')"
01/06/2010, 01h19
oussi

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

Code:

('" & 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.
@++:ccool:
01/06/2010, 04h43
andy331

J'ai déjà essayé le débogage pas à pas!!
Mais vu que je n'ai aucun message d'erreur et rien dans le comboBox c'est assez difficile à savoir d'où provient l'erreur

Ps: avec ou sans parenthèse ça change rien!! toujours le même problème!!:cry::cry::cry::cry::cry::cry::cry::cry::cry::cry::cry::cry::cry::cry:

Tu a essayé d'écrire ta requéte SQL en fixe
genre :

Code:

maRequete = "SELECT pay_nom FROM pays WHERE pay_code = ('10')"

sa sa marche ?? :?

tu peut essayer d'une autre manière .... :mrgreen:

je suppose que ta base n'est pas colossale, nah ? ( moins de 800 lignes )
si c'est le cas tu peut la charger dans un DataSet
et puis t'inspirer un peut du code de Philippe Lasserre
Code:

1 2 3 4 Dim expression As String = "NOM='LASSERRE'" 'expression à rechercher Dim sortOrder As String = "Nom DESC" Dim foundRows() As DataRow 'résultat dans des DataRow foundRows = ObjetDataTable.Select(expression, sortOrder)

01/06/2010, 13h41
yonpo
Les parenthèses dans ta requête sont-elles utiles?
Code:

1 2 maRequete = "SELECT pay_nom FROM pays WHERE pay_code = ('" & CboBoxPays.SelectedItem & "')"
Ton champ pay_code contient-il des valeurs entre parenthèse? Ex pay_code= (10)
Si ce n'est pas le cas, enlève les parenthèses.