Loop - problème ????

Question

Bonjour,

J'effectue une loop qui me renvoie les valeurs s&#233;lectionn&#233;es d'un table dans un Datagrid. Le probl&#232;me est qu'il me renvoie tout sauf un enregistrement. Je cherche la solution &#224; ce probl&#232;me. Merci

Mon code:

 '******************************************************************************
SQLstmt = "SELECT * FROM [registre] where PtFusion='" & LabelPtfus(0) & "' ORDER BY registre.Compte"
'******************************************************************************
   'Get the Records
      Set rsregistre = New ADODB.Recordset
      rsregistre.Open SQLstmt, connbd1, adOpenStatic, adLockOptimistic, _
          adCmdText


If Not rsregistre.EOF Then rsregistre.MoveFirst
    With rsregistre
        For i = -1 To rsregistre.RecordCount
            Label15 = i
        Next i
    End With

cs_Jack · Answer

Re
Ta m&#233;thode n'est pas bonne : Tu fais bien une boucle, mais tu ne lis pas le RecordSet, tu ne fais que lire l'index de ta boucle For-Next
As-tu pris le temps de jeter un oeil aux sources qui parlent de database et de RecordSet ?
Je ne pense pas, sinon, tu aurais trouv&#233; la routine classique suivante (ah lala) :
If rsregistre.RecordCount > 0 Then
   With rsregistre
      .MoveFirst
      Do While Not .EOF
         Debug.Print .Fields(1).Value
         .MoveNext
      Loop
   End With
End If

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Champion du monde de boule de cristal - 2005
Le savoir est la seule mati&#232;re qui s'accro

Loop - problème ????

1 réponse

Discussions similaires