Probléme de la boucle WHILE

Question

Bonjour !

je viens de créer une application en vb.
cette application consiste a génerer des fichiers word  et les remplir de la bases de données .
le probléme c'est que lorsque le programme entre dans cette boucle ne sort pas, je ne sais pas où est  le probléme

voici le code:

Public cn As New ADODB.Connection
Public dv As New ADODB.Recordset
sql = "Select * from table_A CROSS JOIN table_ED where ref_mod=table_ED.ref_mod"
        Set dv = cn.Execute(sql)
        While Not dv.EOF
        wrdapp.Selection.InsertAfter "-  " & dv![Nom] & " "
        wrdapp.Selection.InsertAfter dv![Prenom] & " en qualité de "
        wrdapp.Selection.EndKey unit:=wdLine
        wrdapp.Selection.InsertAfter dv![Qualite]
        dv.MoveNext
        wrdapp.Selection.EndKey unit:=wdLine
        wrdapp.Selection.TypeParagraph
        Wend
        dv.Close
        Set dv = Nothing

 la requête sql est juste il me retourne des lignes en sql server 

est ce qu'il y a qlq 1 qui peut m'aider

kokokaoutar · Answer

le probléme estt seulement sur cette boucle, parceque j'ai utilisée cette méthode dans une autre application et ça marche trés bien.

Renfield · Answer

récupères tu bien des données ? (requete correcte ?)

Est-ce que le probleme se pose, si tu mets en commentaire  le code propre a word ?

l'execution en pas a pas (F8) ne te donne pas de détails ?

cs_lamiaa1984 · Answer

ma requête est bien correcte je l'ai essayée avec sql server et ça marche trés bien(me retourne 4 lignes). et j'ai mis en  commentaire le code word mais tjrs le même probléme.
je travaille avec le F8 dés que mon pc a été bloqué a cause de cette requête qui se termine pas.

Renfield · Answer

ça se bloque sur une ligne précise ?

cs_lamiaa1984 · Answer

non, il boucle à l'infini

Renfield · Answer

dv.EOF passe jamais à True, en gros, c'est ça ?

peut etre des options a spécifier lors du .Execute qui te créé le Recordset. Lui permettant de dire que tu veux tel type de curseur, etc.

Probléme de la boucle WHILE

6 réponses

Votre réponse

Discussions similaires