Affichage listbox d'une requete SQLRésolu

Question

J'ai d&#233;j&#224; post&#233; ce matin, Tof008 m'a r&#233;pondu, mais il ne peut pas m'aider... donc je refait ma demande d'aide...

 Et oui, c'est encore moi .. :-s 
projet d&#233;velopp&#233; en VB6 sur une BD Access.
voila, une requ&#234;te, qui fonctionne sous access, mais je ne sais pas si elle fonctionne sous vb (je ne vois pas pourquoi &#231;a ne marcherai pas...)
Donc, je m'explique, la premi&#232;re requ&#234;te est cens&#233;e me retourner tous les articles concernant la facture s&#233;lectionn&#233;e dans la combobox, la deuxi&#232;me compte le nombre d'article par facture. Ces articles doivent &#234;tre affich&#233; dans diff&#233;rentes listbox, et c'est l&#224; qu'intervient mon probl&#232;me. VB ne m'affiche aucun message lors du d&#233;bogage, donc c'est que tout se passe bien, en revanche lors de l'affichage j'ai comme un probl&#232;me.
exemple la facture 1 &#224; 3 articles diff&#233;rents : lors de l'affichage, il m'affiche bien 3 lignes, mais ces 3 lignes sont identiques, elles correspondent au premier article.
Je crois que mon probl&#232;me provient de l'affichage avec ma boucle For Next, mais je ne vois pas comment faire autrement.

    'Requ&#234;te SQL pour d&#233;finir les champs &#224; afficher
    SQL = "Select CONTENIR.Art_Code, Art_Lib, Art_Prix, FAMILLE.Fam_Code, Fam_Lib, FACTURE.Fac_Num, Fac_Tab, Fac_Couv, CONTENIR.Qte "
    SQL = SQL & "From FACTURE, CONTENIR, ARTICLE, FAMILLE "    SQL SQL & "Where FACTURE.Fac_Num CONTENIR.Fac_Num "    SQL SQL & "And CONTENIR.Art_Code ARTICLE.Art_Code "    SQL SQL & "And ARTICLE.Fam_Code FAMILLE.Fam_Code "    SQL SQL & "And FACTURE.Fac_Num" & "'" & cbNumFact.Text & "'"
    'Compte le nombre d'articles par facture
    SQLCompte = "Select Count(CONTENIR.Art_Code) "
    SQLCompte = SQLCompte & "From CONTENIR "    SQLCompte SQLCompte & "Where CONTENIR.Fac_Num" & "'" & cbNumFact.Text & "'"

   'Affichage dans les listbox
    For i = 1 To rs_NbArt.Fields(0)
        lstCodArt.AddItem (rs_RechFact.Fields(0))
    Next i

~*~ L&#238;L&#239;? ~*~

mrdep1978 · Accepted Answer

Dans ta boucle, il manque :
rs_RechFact.MoveNext
qui sert &#224; passer &#224; l'enregistrement suivant dans le recordset

For i = 1 To rs_NbArt.Fields(0)
        lstCodArt.AddItem (rs_RechFact.Fields(0))
        rs_RechFact.MoveNext
Next i

Tu n'est pas oblig&#233; de faire 2 requetes (utile dans le cas o&#249; le temps d'ex&#233;cution de la requete est tr&#232;s long): remplace ta boucle For par un While :

'Tant qu'on est pas &#224; la fin du recordset, on avance et on ajoute &#224; la liste
While Not rs_RechFact.EOF
        lstCodArt.AddItem (rs_RechFact.Fields(0))
        rs_RechFact.MoveNext
Wend

mrdep1978 · Answer

PS : Si &#224; l'avenir tu utilises le While, n'oublie pas de mettre le MoveNext dans la boucle, sinon tu pars dans une boucle infinie.

liliesma · Answer

Alors l&#224;, je n'ai qu'une chose a te dire MERCI !!!!!!!!!!!!!!!

~*~ L&#238;L&#239;? ~*~

Affichage listbox d'une requete SQL

3 réponses

Discussions similaires