BUG de parcours d'enregistrements avec MoveNext !

Question

Salut!

J'ai d&#233;ja post&#233; un message &#224; propos de MoveNext, et cette fois-ci c'est encore lui qui me pose probl&#232;me mais pour une autre raison. Mon recordSet ne parcours pas tout les enregistrements de ma table car au 2 i&#232;me enregistrement, &#231;a plante.

J'ai l'erreur: "Un &#233;tat E_FAIL a &#233;t&#233; renvoy&#233; par le fournisseur de donn&#233;es ou par un autre service"
L'erreur vient de MoveNext.

Et j'ai test&#233; que lors du premier passage dans ma boucle While, moveNext a fonctionn&#233;, il ne plante qu'au deuxi&#232;me passage. (J'ai une dizaine d'enregistrements pour cette table)
Je ne comprend vraiment pas pourquoi, merci de m'&#233;clairer.
Et comme je suis d&#233;butante, mon code doit &#234;tre un peu bordelique, si vous avez des conseils je suis preneuse...

Merci d'avance

Voici le code:

Dim conn As ADODB.Connection
Dim rs1 As ADODB.Recordset
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                        & "SERVER=localhost;" _
                        & "DATABASE=Stock;" _
                        & "UID=root;" _
                        & "PWD=;" _
                        & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

Set rs1 = New ADODB.Recordset

    Dim str As String
    str = "SELECT * FROM Mat "


    rs1.Open str, conn, adOpenStatic, adLockPessimistic

    rs1.MoveFirst
           
            While (rs1.EOF = False)
                If (rs1("Designation") = MatSel) Then
                        Label_Ref.Caption = rs1("Reference")
                End If
                rs1.MoveNext        ' <------le MoveNext qui plante au 2i&#232;me tour
            Wend


conn.Close

elpaulo · Answer

essaye en mettant :

  do until rs1.eof             'Sans le = false
     'ici ton code
  loop

Le reste a l'air bon

cs_ITALIA · Answer

Dim str As String
str = "SELECT * FROM Mat "

rs1.Open str, conn, adOpenStatic, adLockPessimistic
rs1.MoveFirst
Do Until rs1.eof
   If (rs1("Designation") = MatSel) Then
      Label_Ref.Caption = rs1("Reference")
   End If
    rs1.MoveNext
Loop
conn.Close

It@li@

BUG de parcours d'enregistrements avec MoveNext !

2 réponses

Discussions similaires