Discussion :

[rippoz]

Bonjour,

Je cherche à migrer ce bout de code windev en SQL

En gros je fais une première requête , puis je veux la parcourir , et a chaque enregistrement exécuter une 2 ème requête

Comment puis-je faire ?

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
 
 
ChaineSelect=	"SELECT IDversion "+...
"FROM cd     "+...
"where Datefincom='00000000' "+...
"Group by IDVersion"
 
	SI PAS SQLExec(ChaineSelect,vl_req) ALORS
		SQLInfoGene(vl_req)
		Erreur("Erreur SQL : " + SQL.MesErreur)
	SINON
 
		SQLPremier(vl_req)
		TANTQUE  PAS  SQL.EnDehors 
			//Insertion dans ma 2 eme table
			Chaineinsert="INSERT INTO cd2 select * from cd where IDVersion ="+SQLCol(vl_req,1)+"  ORDER BY DATETARIF DESC LIMIT 1"
 
			SQLSuivant(vl_req)
		FIN
		SQLFerme(vl_req)
	FIN
FIN

[SQLpro]

si unicité de retour de la sous requête :

Code :

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

1
2
3
4
5
6
7
8
 
INSERT INTO cd2 
select * 
from cd 
where IDVersion = (SELECT IDversion ..
                   FROM cd  
                   where Datefincom ...
                   Group by IDVersion )

sinon :

Code :

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

1
2
3
4
5
6
7
INSERT INTO cd2 
select * 
from cd 
where IDVersion IN (SELECT IDversion ..
                    FROM cd  
                    where Datefincom ...
                    Group by IDVersion )

ou encore :

Code :

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

1
2
3
4
5
6
7
INSERT INTO cd2 
select T1.* 
from   cd AS T1
        INNER JOIN cd as T2
              ON T1.IDVersion  = T2.IDVersion 
where  T2.Datefincom ...
Group  by IDVersion ???

Cela dit je ne comprend pas du tout l'intérêt de votre GROUP BY. Un GROUP BY ne doit être posé que s'il y a des calculs d'égrégat statistiques (MAX, SUM, COUNT, AVG, MIN...)

A +