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