Discussion :

[Asdorve]

Bonjour,

J'ai un recordset que passé en paramètre d'une fonction.
J'ai donc 2 recordset rs1 et rs2.

Lorsque je boucle sur rs2, ça boucle en même temps sur rs1.

C'est normal? Ai-je oublié quelque chose?

Merci

Xav

[ProgElecT]

Salut

Ai-je oublié quelque chose?

Oui, un peu de ton code

[Asdorve]

Effectivement...

Voici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Set rsado = CreateObject("ADODB.recordset")  
rsado.CursorLocation = adUseClient
 
Sql = "..."
 
rsado.Open Sql, di
 
Do until rsado.eof
 
'Appel de la fonction
res = LibComplQ(codeca, ccca, rsADO)
 
rsado.movenext
 
Loop

Et la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
private function LibComplQ(byval code as string, cc as string, rs as adodb.recordset)
 
Do until rs.eof
 
'Traitement
 
Loop
 
End Function

[ProgElecT]

Salut

ByVal Facultatif. Indique que l'argument est passé par valeur.
--------> valeur: Moyen permettant de passer à une procédure la valeur d'un argument plutôt que son adresse. La procédure peut de ce fait accéder à une copie de la variable. La valeur réelle de cette dernière n'est donc pas modifiée par la procédure à laquelle elle est passée.

Alors que

ByRef Indique que l'argument est passé par référence. ByRef est l'option par défaut dans Visual Basic.
-------->par référence: Moyen permettant de passer à une procédure l'adresse d'un argument plutôt que sa valeur. La procédure peut ainsi accéder à la variable proprement dite. La valeur réelle de cette dernière peut, de ce fait, être modifiée par la procédure à laquelle elle a été passée. Par défaut, les arguments sont passés par référence.

As tu essayé de passer le RecordSet par ByVal plutôt que par ByRef (valeur par défaut de passage d'argument).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

private function LibComplQ(byval code as string, cc as string, ByVal rs as adodb.recordset)

[Asdorve]

oui j'ai essayé aussi.

J'ai contourné le problème en ne passant pas le rs en paramètre et j'ai revu le fonctionnement de la fonction.
J'avais vu qu'avec rs.Requery on pouvait dissocier des recordset clonés, mais sans succès.

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'Appel de la fonction
res = LibComplQ(codeca, ccca, rsADO.Clone)

Tout en conservant ta syntaxe private function LibComplQ(byval code as string, cc as string, rs as adodb.recordset)