Discussion :

[Blito]

Bonjour, depuis plusieurs jours j'essaye d'afficher deux champs SQL dans ma liste déroulante mais en vain !
Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
      Req = "Select NoOrdinateur,NomOrdinateur,NomSalaries,PrénomSalaries from Ordinateur O,Salaries S Where O.NoSalaries = S.NoSalaries; "
 
        CmdOrdi = New OleDbDataAdapter(Req, Cnx)               ' prépare l'extraction de données
        CmdOrdi.Fill(JddOrdi)
        ' et remplissage de la liste déroulante
        Me.LstOrdinateur.Items.Add("Todos los Ordenadores")
        For Each UnOrdi In JddOrdi.Rows
            Me.LstOrdinateur.Items.Add(UnOrdi.Item("NomOrdinateur")) 'Je souhaite aussi afficher le champs "NomSalaries"
 
        Next UnOrdi
        Me.LstOrdinateur.SelectedIndex = 0

Seul le nom ordinateur s'affiche dans ma liste déroulante mais je n'ai toujours pas reussi à afficher le champs NomSalaries.
Savez vous comment faire ?

Merci d'avance,
Blito

[sihammaster]

Bonjour,
petite question:
JddOrdi c'est de type datatable? si oui comment tu l'a remplis

sinon

Tu Rajoute l'autre champ comme ca:

Code :

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

Me.LstOrdinateur.Items.Add(UnOrdi.Item("NomOrdinateur") & " " & UnOrdi.Item("NomSalaries"))

si ca marchera pas, je propose que tu utilise DataReader:

Code :

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

1
2
3
4
5
6
7
8
9
10
  conn()
            Dim dr As SqlDataReader
            Dim com1 As New SqlCommand("SELECT .......", con)
            ComboBox1.Items.Clear()
            dr = com1.ExecuteReader
            While dr.Read
                ComboBox1.Items.Add(dr(0) & "      " & dr(1))
            End While
            dr.Close()
            disconn()

[Blito]

Merci beaucoup pour ton aide !
Le premier code que tu m'as donné fonctionne très bien, je cherchais beaucoup trop compliqué alors que la réponse était toute simple .

[peregna2007]

Salut,

La requête étant libellée comme ceci,

Code :

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

Req = "Select NoOrdinateur,NomOrdinateur,NomSalaries,PrénomSalaries from Ordinateur O,Salaries S Where O.NoSalaries = S.NoSalaries; "

Si l'on doit utiliser un DataReader, je pense que le code sera comme ça:

Code :

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

1
2
3
4
 
While dr.Read
      ComboBox1.Items.Add(dr(1) & "      " & dr(2))
 End While

Car NomOrdinateur est à l'indice 1 et NomSalaries est à l'indice 2. Ou alors on conserve ton code, mais on modifie la requete comme suit

Code :

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

Req = "Select NomOrdinateur,NomSalaries,PrénomSalaries from Ordinateur O,Salaries S Where O.NoSalaries = S.NoSalaries;