Re: Passage de Parametre
Posté par drcharly93 le 19/1/2005 11:11:57
Bonjour Hugues,
Voici un petit exemple d'utilisation d'un résultat d'une requête dont le résultat est utilisé comme paramètre pour l'exécution de la deuxième requête
Ce bout de code est entièrement didactique car les deux requêtes pourraient être remplacées par une seule Requête avec jointure.
ATTENTION : Code saisie entierement à la volée, non testée et peut comporter des erreurs, mais le principe est là.
Voici un petit exemple d'utilisation d'un résultat d'une requête dont le résultat est utilisé comme paramètre pour l'exécution de la deuxième requête
Ce bout de code est entièrement didactique car les deux requêtes pourraient être remplacées par une seule Requête avec jointure.
Rs1 est une source de données
Rs2 est une source de données
Sql est une chaine
sFichier1 est une chaine = "Clients "
sFichier2 est une chaine = "Commandes"
sRub1 est une chaine = "NUMCLI, NOMCLI, CPCLI"
sCond1 est une chaine = " WHERE NUMCLI=15"
sRub2 est une chaine = "NUMCDE, DATCDE, MNTCDE, NUMCLI"
sCond2 est une chaine = " WHERE NUMCLI="
Sql = "SELECT " + sRub1 + " FROM " + sFichier1 + sCond1
HExecuteRequeteSql(Rs1,HRequeteDefaut,Sql)
HLitPremier(Rs1)
Sql = "SELECT " + sRub2 + " FROM " + sFichier2 + sCond2 + Rs1.NUMCLI
HExecuteRequeteSql(Rs2,HRequeteDefaut,Sql)
HlitPremier(Rs2)
TantQue pas HEndehors(Rs2)
Info(Rs2.NumCDE + Tab + Rs2.DATCDE + Tab + Rs2.MNTCDE)
HLitSuivant(Rs2)
Fin
ATTENTION : Code saisie entierement à la volée, non testée et peut comporter des erreurs, mais le principe est là.
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=1693&post_id=7030