AIDEZ MOI , j'ai rien compris

Question

run-time error '3021'
bof ou eof est égale a true ou l’enregistrement actuel a été supprimé

Private Sub Combo2_Click()
Dim rsa As New ADODB.Recordset
Dim req As String
Dim Y As String
Y = (Left(Combo2.Text, 5))
req = "SELECT * FROM article where [Narticle]=' " & Y & "'"
rsa.Open req, ct, adOpenDynamic, adLockOptimistic
Text8.Text = rsa!narticle
Text9.Text = rsa!desig
Text10.Text = rsa!pvente
rsa.Close
End Sub

comment régeler ça

cs_Jack · Answer

Salut
Oui, parce que après l'exécution de la requète, il faut scruter les solutions.
Cette boucle est présente dans TOUS les codes qui parlent de RecordSet.
Tu aurais donc pu trouver seul la solution en faisant des recherches sur le site

   With monRecordSet
      If .RecordCount > 0 Then
         .MoveFirst
         Do While Not .EOF
            MsgBox monRecordSet!monChamp
            .MoveNext
         Loop
      Else
         MsgBox "Rien trouvé"
      End If
   End With

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Jack · Answer

PS : VB6 n'est pas du .Net --> Catégorie modifiée

cs_ghuysmans99 · Answer

Pourtant, je fais :

While Not (Rs.EOF)
  MsgBox rs("MonChamp")
  Rs.MoveNext
Wend

Et pas de problème !

cs_ghuysmans99 · Answer

Oups :

If Rs.EOF Then
  MsgBox "Pas d'enregistrement",vbExclamation
Else
  While Not (Rs.EOF)
    MsgBox Rs("MonChamp")
    Rs.MoveNext
  Wend
End If

AIDEZ MOI , j'ai rien compris

4 réponses

Votre réponse