Problème avec un RecordSet [Résolu]

[Oberown]

Bonjour, et bonne année 2007

J'ai un recordset, et je voudrais le parcourir récurcivement.

Mon recordSet n'a pas de problème si je le parcours normalement, je n'ai pas de problème.

Or j'ai une erreure

ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function Parcours( _
		ByVal myId, _
		ByRef rstData)


		rstData.Filter = "IDParent = " & myId
		
		While not rstData.eof
			Response.Write cstr(rstData("ID").Value) & "<br>"
			Parcours rstData("ID").Value, rstData 'Si je ne met pas cette ligne, je n ai pas de probleme			
			rstData.MoveNext
		wend	
		
		

	End Function

Merci pour votre aide, tout en vous souhaitant une bonne année 2007

[ryan]

Yop!

La première fois que tu appliques ton filtre sur le recordset, tu ne laisses passer que les enregistrements dont

Code :

"IDParent = " & myId

Ensuite, tu changes la valeur de myId, et par récurcivité, tu appliques une seconde fois un filtre sur le recordset, mais avec une autre valeur, ce qui te conduit à avoir un recordset vide.

Imagine que la première fois, myId vaut 10. Après filtrage, il ne reste donc plus que les enregistrements dont IDParent vaut 10. Ensuite, tu modifies la valeur de myId, qui vaut 11 par exemple. Tu ré-appliques un filtre avec cette valeur, mais il n'y a aucun enregistrement dont IDParent vaut à la fois 10 et 11, donc tu as un recordset vide.

Il faut peut-être rétablir le recordset dans son intégralité avant de réappliquer un second filtre. Voir la constante adFilterNone

[Oberown]

J'ai modifié le code pour ne pas utiliser rstData.Filter.
Pourtant j'ai toujours le même bug.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function Parcours( _
		ByVal myId, _
		ByRef rstData)
 
 
		rstData.Filter = "IDParent = " & myId
 
		While not rstData.eof
			Response.Write cstr(rstData("ID").Value) & "<br>"
                                       If IsNull(rstData("IDParent").Value) = false Then
                                           If  rstData("IDParent").Value = myIdThen
                                                Parcours rstData("ID").Value, rstData 'Si je ne met pas cette ligne, je n ai pas de probleme			
                                           End If
                                       End If
 
			rstData.MoveNext
		wend	
 
 
 
	End Function

[ryan]

Yop!

Il semble que le filtre soit toujours là...

[Oberown]

Au lieu d'utiliser le While, j'utilise avec un For
avec la proprité rstData.AbsolutePosition = i
Et maintenatn c'est bon.