bonjour,

Mon code s'execute avec lenteuuuuuuuuuuuur pfffff.
alors comment y remedier et pourquoi il est super lent?
voici le code
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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
bRes est un booléen
i est un entier
i= 0
sSql est une chaîne
reqUpdate est une Source de Données
reqTest est une Source de Données
sSql="select id,proprio_adr1,proprio_adr2 from Bien where (bien_adresse2='' or bien_adresse2 is NULL) and (proprio_adr2 <>'' and proprio_adr2 is not NULL)"
BTN_majAdr..Etat=Grisé
Info(sSql)
SI HExécuteRequêteSQL(reqTest,hModifieFichier,sSql) ALORS
	Info("coucou")
	HLitPremier(reqTest)
	Info("salut")	
	TANTQUE PAS HEnDehors(reqTest)
		//info(reqTest.id)
		// Traitement de l'enregistrement
		sSql = "Update Bien SET bien_adresse1='"+ToFormat("",reqTest.proprio_adr1) +"' ,bien_adresse2='"+ToFormat("",reqTest.proprio_adr2) +"' where id="+reqTest.id
		Info(sSql)
		SI PAS HExécuteRequêteSQL(reqUpdate,hModifieFichier,sSql) ALORS
			Erreur("Erreur Hyper File : " + HErreur())
			Trace(sSql)
		FIN
		HLitSuivant(reqTest)
		i +=1
	FIN
	//HFerme(reqUpdate)
	//HAnnuleDéclaration(reqUpdate)
	//HFerme(reqTest)
	//HAnnuleDéclaration(reqTest)
SINON
	Erreur("Erreur Hyper File : " + HErreur())	
FIN
SI i > 0 ALORS
	CBM_message = i + " Fichier(s) modifié(s)"
SINON
	Info("pas d'enregistrements à modifier")
FIN
BTN_majAdr..Etat=Actif
la lenteur se traduit sur le code en vert

par ailleurs, je voulais savoir si
-HFerme(reqUpdate)
-HAnnuleDéclaration(reqUpdate)
doit se placer plutot dnas la boucle ou a la fin du code...?

et pour
//HFerme(reqTest)
//HAnnuleDéclaration(reqTest)
ils doivent etre utilisés du moment que HExécuteRequêteSQL est executé , meme si celui ci ne ramene pas d'enregistrement?

nath