Bonjour a tous !
J'ai fai une appli en vb6 qui recupere des enregistrements dans une base de données et qui génére un xml a partir de ces enregistrements.
J'ai donc un ADODB.Connection, un ADODB.Recordset, un ADODB.Field, un MSXML2.DOMDocument, des MSXML2.IXMLDOMElement, un MSXML2.IXMLDOMProcessingInstruction
j'ai une boucle while MonRecordSet.EOF = False
et a l'interieur un For Each fldLoop In MonRecordSet.Fields dans lequel j'affecte les valeurs a mes noeuds
J'ai mis un DoEvents pour pouvoir annuler et dans mon bouton annuler je mets une variable globale à 1 qui a pour effet d'arreter ma boucle while et qui fait :
MonRecordSet.Close
MaConnexion.Close
Set xmlDoc = Nothing
Set oNoeudRacine = Nothing
Set oInstructionCreation = Nothing
Set oNoeudEnfantMembre = Nothing
Set oNoeudMembre = Nothing
Set oNoeudEnfantMembreActivite = Nothing
Set xPI = Nothing
Set fldLoop = Nothing
Mais dans le gestionnaire des taches mon appli monte quand je lance le traitement mais ne revient pas à son poids initial quand je clic sur annuler.
Mon appli fait 5000 ko au lancement
Monte sans cesse pendant mon traitement et si je clic sur annuler quand elle atteint 100 000 ko
elle retombe à 73 000 ko ce qui est loin des 5000 initiaux
Merci de votre aide
