Remplir une liste déroulante à partir d'une requete SELECT

Question

Bonjour tous le monde !!


Voilà mon problème (même mes problèmes).

Je souhaite récupérer plusieurs lignes d'une table (maximum 5 colonnes), et les afficher dans une liste déroulante.

Voici le code :

Dim compteur As String

        compteur =  0

        'Récupération des enregistrements dans la combobox
        Conn = New SqlConnection(chaine_connexion)
        Conn.Open()
        requete_sql = New SqlCommand("SELECT * FROM " & CB_choix_table.SelectedItem & ";", Conn)
        myReader = requete_sql.ExecuteReader
        CB_choix_table.Items.Clear()
        Do While myReader.Read()
             CB_choix_table.Items.Add(myReader.GetString(compteur)) 
            compteur  = compteur + 1
        Loop
        myReader.Close()
        Conn.Close()


1ere problème, je rencontre ce message :

Impossible d'effectuer un cast d'un objet de type 'System.DateTime' en type 'System.String'.
(ligne en gras dans le code)

Il s'avère que l'une des colonnes de la table est une date...

Voilà j'espère que vous allez pouvoir m'aider^^

Merci d'avance!!

4u4me4us · Answer

Teste

CB_choix_table.Items.Add(cstr(myReader.GetString(compteur))) 

P.S. Es-tu sur que compteur peut commencer à 0 ? Il me semble (pas sur) qu'il doit partir de 1.

alexbigfoug · Answer

Déjà essayer la conversion à ce niveaux là, et aucun effet (toujours le même message).

En ce qui concerne le compteur j'ai également un doute... Mais il me semble que sur visual basic il part de 0.

Merci de votre aide !

4u4me4us · Answer

Les DB parte de 1 donc compteur doit valoir 1

si avant CB_choix_table.Items.Add(myReader.GetString(compteur))  tu met 

msgbox myReader.GetString(1) 

A tu une valeur correcte a l'affichage ?

alexbigfoug · Answer

msgbox myReader.GetString(0) affiche les éléments de ma première colonne
msgbox myReader.GetString(1) affiche les éléments de ma deuxième colonne

4u4me4us · Answer

G trouver tu va mourir de rire 
Tu as mis "Dim compteur As String "
Tu as défini compteur comme un string !!!!

Donc Dim compteur As byte et c tout bon

alexbigfoug · Answer

Oui il y a de ça^^
Mais le problème ne vient pas de là en faite....

Je sais pas ou j'avais la tête quand j'ai codé...

Ce qu'il me faut en réalité est quelques chose de ce genre

CB_choix_table.Items.Add(myReader.GetValue(0) & " | " & myReader.GetValue(1)............)

je souhaite faire une ligne entière avec toutes les colonnes.

Cepedant, en fonction de la table j'ai un nombre de colonne différent...

Et bien sûr, si dans une table je n'ai qu'une seul colonne, cela signifie que myReader.GetValue(1) ne peut pas être remplie et j'obtiens une erreur...

4u4me4us · Answer

Ok ! Je vois tout es plus claire !!!

Je te propose de modifier ton code de la façon suivante


Dim compteur As byte ' va de 0 à 255 champs
dim StringFinal as string


'Récupération des enregistrements dans la combobox
Conn = New SqlConnection(chaine_connexion)
Conn.Open()
requete_sql = New SqlCommand("SELECT * FROM " & CB_choix_table.SelectedItem & ";", Conn)
myReader = requete_sql.ExecuteReader
CB_choix_table.Items.Clear()
Do While myReader.Read()
   compteur = 0
   do While compteur < myReader.Fields.Count 'Vérifie cette ligne suis pas sur sur le but et de connaitre le nb de champs
     StringFinal  = StringFinal & myReader.GetString(compteur) & "|"
     compteur = compteur + 1
   loop
   CB_choix_table.Items.Add(StringFinal )
   StringFinal  = ""
   myReader.next 'Là aussi suis pas sur sur
Loop
myReader.Close()
Conn.Close()


regarde met deux trois commentaire mais l'idée et la bonne il faut juste que tu l'adapte.
Redis moi

alexbigfoug · Answer

Je te remercie beaucoup 4u4me4us.

Je testerai ça dès demain et je vous tiendrai au courant !!

Encore merci!

alexbigfoug · Answer

Je viens de tester, et effectivement ce dont tu n'étais pas sûr ne fonctionne pas.

myReader.Fields.Count --> ne fonctionne pas
myReader.next --> ne fonctionne pas

4u4me4us · Answer

Sute !!!! Conn et requete_sql  sont de qu'elle type ?

DevLama · Answer

Beurk Pour quoi Tant des lignes abusives?
Bon voici la methode la plcus facile:
v
dim i as Integer
   Rec.Movefirst
Do while Rec.EOF=False 
Combo.List(i)=Rec!NOM
i=i+1
Rec.MoveFirst
Loop

              Hornel Lama

Remplir une liste déroulante à partir d'une requete SELECT

11 réponses

Votre réponse

Discussions similaires