Discussion :

[ecoinfo]

Bonjour tout le monde,

Pouvez-vous m'aider à optimiser, accélérer la vitesse d’exécution de cette requête;

ça mat 1min à 2, et c'est énorme je crois.

nombre d'enregistrement de Req_Art : 1000

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
POUR TOUT Req_Art 
	sql1="select top 1 Lblivre.pu*(1-Lblivre.remise) as pu,  Bonlivra.date  from Lblivre Left outer join Bonlivra on Lblivre.nbl=Bonlivra.nbl WHERE Lblivre.code ='"+Req_Art.code+"' AND Bonlivra.valide='OUI'  AND Bonlivra.coclient='"+CodeCltFrs+"' order by date DESC "
	SI PAS HExécuteRequêteSQL(Req1,hRequêteDéfaut,sql1) ALORS
		HErreurInfo(HErreur())
	FIN
	HLitPremier(Req1)
	sql2="update Req_Art set dprix ="+Req1.pu +" where Req_Art.code='"+Req_Art.code+"'"
	SI PAS HExécuteRequêteSQL(req2,hRequêteDéfaut,sql2) ALORS
		HErreurInfo(HErreur())
	FIN
 
FIN

Merci d'avance..

[michel.souris]

Bonjour tout le monde,

Pouvez-vous m'aider à optimiser, accélérer la vitesse d’exécution de cette requête;

ça mat 1min à 2, et c'est énorme je crois.

nombre d'enregistrement de Req_Art : 1000

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
POUR TOUT Req_Art 
	sql1="select top 1 Lblivre.pu*(1-Lblivre.remise) as pu,  Bonlivra.date  from Lblivre Left outer join Bonlivra on Lblivre.nbl=Bonlivra.nbl WHERE Lblivre.code ='"+Req_Art.code+"' AND Bonlivra.valide='OUI'  AND Bonlivra.coclient='"+CodeCltFrs+"' order by date DESC "
	SI PAS HExécuteRequêteSQL(Req1,hRequêteDéfaut,sql1) ALORS
		HErreurInfo(HErreur())
	FIN
	HLitPremier(Req1)
	sql2="update Req_Art set dprix ="+Req1.pu +" where Req_Art.code='"+Req_Art.code+"'"
	SI PAS HExécuteRequêteSQL(req2,hRequêteDéfaut,sql2) ALORS
		HErreurInfo(HErreur())
	FIN
 
FIN

Merci d'avance..

Je connais pas trop TOP en sql mais as tu essayé avec un LIMIT 0,1 à la place ?

Ensuite vérifie tes index et aussi traite les booléen comme des booléens plutôt que des chaines (je pense à valide='OUI' plutot que valide=1)

[tatayo]

Bonjour,
Je pense que la première optimisation à faire est de supprimer la boucle sur Req_Art, et de faire une sorte de boucler directement sur la première requête.
Ainsi tu ne lances dans la boucle qu'une requête de mise à jour.
D'ailleurs en toute rigueur il faut supprimer les deux tests sur BonLivra de la clause WHERE et les mettre dans la jointure, sinon la jointure externe ne sert à rien.
De plus, tu fais une jointure externe sur BonLivra, mais tu ne t'en sers pas dans la requête (les calculs ne portent que sur lblivre), donc je me demande bien à quoi sert cette table ici...

La requête deviendrait:

Code SQL :

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

1
2
3
 
select Lblivre.code ,Lblivre.pu*(1-Lblivre.remise) as pu
from Lblivre

Tatayo.

[michel.souris]

Bonjour,
Je pense que la première optimisation à faire est de supprimer la boucle sur Req_Art, et de faire une sorte de boucler directement sur la première requête.
Ainsi tu ne lances dans la boucle qu'une requête de mise à jour.
D'ailleurs en toute rigueur il faut supprimer les deux tests sur BonLivra de la clause WHERE et les mettre dans la jointure, sinon la jointure externe ne sert à rien.
De plus, tu fais une jointure externe sur BonLivra, mais tu ne t'en sers pas dans la requête (les calculs ne portent que sur lblivre), donc je me demande bien à quoi sert cette table ici...

La requête deviendrait:

Code SQL :

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

1
2
3
 
select Lblivre.code ,Lblivre.pu*(1-Lblivre.remise) as pu
from Lblivre

Tatayo.

Bien vu j'avais pas fais gaffe à la restriction WHERE + jointure externe.... classique !

[EDM-TAHITI]

Hello,
En plus, dans le code

Code :

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

1
2
3
4
5
 
SI PAS HExécuteRequêteSQL(Req1,hRequêteDéfaut,sql1) ALORS
HErreurInfo(HErreur())
FIN
HLitPremier(Req1)

Ajouter

Code :

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

1
2
3
4
5
 
SI PAS HExécuteRequêteSQL(Req1,hRequêteDéfaut,sql1) ALORS
HErreurInfo(HErreur())
FIN
HLitPremier(Req1 , hsansrafraichir)

Cela evite à la requete de se relancer une seconde fois (si, si....)
Et cela gagne du temps...

[/CODE]

[ecoinfo]

Bonjour

pour tatayo

le deuxième fichier Bonlivra me permet de sélectionner que les enregistrements d'un client.

Code :

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

Bonlivra.coclient='00001'

par exemple

[tatayo]

Mais je ne vois pas l'intérêt, car tu fais une jointure externe (donc tu ne prends pas que les livraisons de ce client), et de plus tu n'utilises pas cette table dans les calculs.

Tatayo.

[Emmanuel Lecoester]

Code :

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

1
2
3
4
5
6
7
8
 
select top 1 Lblivre.pu*(1-Lblivre.remise) as pu,  
         Bonlivra.date  
Left outer join Bonlivra on Lblivre.nbl=Bonlivra.nbl 
                             AND Bonlivra.valide='OUI'  
                             AND Bonlivra.coclient= CodeCltFrs
WHERE Lblivre.code = Req_Art.code
order by date DESC

en fait là pour chaque Lblivre.nbl, tu va parcourir TOUTE la table Bonlivra pour trouver une équivalence...
pour ton produit cartésien vu que çà correspond quasi à çà tu vas filtrer...

première proposition :

Code :

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

1
2
3
4
5
6
7
8
9
select top 1 Lblivre.pu*(1-Lblivre.remise) as pu,  
         Bonlivra.date  
from Lblivre 
Left outer join Bonlivra on Lblivre.nbl=Bonlivra.nbl 
                             AND Bonlivra.valide='OUI'  
                             AND Bonlivra.coclient= CodeCltFrs
WHERE Lblivre.code = Req_Art.code
order by date DESC

tu fais tes filtres dans le sous ensemble qui sera en left outer join.

coté index :
il te faut un index sur Lblivre.code vu que tu fais une égalité dans ta requete
il te faut un index sur Bonlivra.nbl (normalement il doit exister naturellement vu que c'est une clé étrangère) et pour le top ce serait un index sur Bonlivra.nbl+Bonlivra.coclient.
Je ne te fais pas le coup de la colonne booleenne valide qui prend OUI ou NON car coté perf en base comparer un booleen et une chaine de caractères c'est pas le même temps

c'est quoi la fonction "top 1" ?

En espérant te mettre sur le bon chemin.

EDIT : en relisant ton code avec un req_art + un select + un update ta table s'en prend pas mal dans la figure.
En full sql çà ferait

Code :

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

1
2
3
4
5
6
7
8
9
update Req_Art 
set dprix = (select top 1 Lblivre.pu*(1-Lblivre.remise) as pu
                from Lblivre 
                Left outer join Bonlivra on Lblivre.nbl=Bonlivra.nbl 
                WHERE Lblivre.code = Req_Art.code
                AND Bonlivra.valide='OUI'  
                AND Bonlivra.coclient= CodeCltFrs
                order by date DESC)
where exists (select 1 from Lblivre where Lblivre.code = Req_Art.code)

tu n'updates que les code qui existent dans Lblivre.

[ecoinfo]

Bonjour
c'est exactement ce que je voulais mais
erreur à l’exécution

la date n'existe pas dans select

Code :

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

order by date DESC

exemple

Code :

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

update Req_Art set dprix = (select top 1 Lblivre.pu*(1-Lblivre.remise) as pu from Lblivre  Left outer join Bonlivra on Lblivre.nbl=Bonlivra.nbl  WHERE Lblivre.code =Req_Art.code AND Bonlivra.valide='OUI'   AND Bonlivra.coclient='000699' order by date DESC) where exists (select 1 from Lblivre where Lblivre.code = Req_Art.code)

[ecoinfo]

Bonjour

en effet c'est un problème avec windev qui n’accepte pas de select après le Set
http://doc.pcsoft.fr/fr-fr/?2034001


avez vous une idée de comment y remédier?

Merci d'avance..

[Emmanuel Lecoester]

ben la technique que tu as fait :

Pour tous les Req_Art
Update unitaire

ou bien encore
tu crée une table (fichier au sens HF) contenant tes articles et leur nouveaux prix (la partie select)
tu updates tes prix

C'est chiant de trouver des parades quand on peut trouver des solution en full sql