Les tests ont =E9t=E9 r=E9alis=E9s sur NT4 et WinXP, ADO 2.8,=20
OraClient 9.2.
Le bout de code suivant g=E8re des fuites m=E9moires sous XP=20
et non sous NT4. Quelqu'un a t'il d=E9j=E0 eu connaissance de=20
ce genre de probl=E8me ?
<code>
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Dim i As Long
Set cn =3D New ADODB.Connection
cn.Open "DSN=3DMONDSN;UID=3DMon_user; PWD=3DMon_passwd;"
While cn.State =3D adStateConnecting
VBA.DoEvents
Wend
=20
sql =3D "SELECT * FROM product WHERE rownum < 1000"
For i =3D 0 To 1000
Set rs =3D New ADODB.Recordset
rs.CursorLocation =3D adUseClient
rs.Open sql, cn
While rs.State =3D adStateExecuting
VBA.DoEvents
Wend
rs.Close
Set rs =3D Nothing
Next i
=20
cn.Close
Set cn =3D Nothing
</code>
Le ph=E9nom=E8ne est identique si l'appel effectu=E9 dans=20
plusieurs m=E9thodes au lieu d'une seule comme dans=20
l'exemple.