WDForge.org

Re: Champs table : récupérer le nom correspondant à l'indice....

Posté par R&B le 17/11/2004 10:19:36

une solution : faire la liaison dans la requete.

sSQL est une source de données
cMonSQL est une chaine = "SELECT ID_Historique, Date_Histo, PERSONNE.ID_Personne AS ID_Personne, PERSONNE.NOMPERSONNE AS NOMPERSONNE FROM HISTORIQUE,PERSONNE WHERE... AND HISTORIQUE.ID_Personne=PERSONNE.ID_Personne"
SI HExécuteRequêteSQL(sSQL,hRequêteDéfaut,cMonSql) ALORS
   HLitPremier(sSQL)
   TANTQUE PAS HEndeHors(sSQL)
TableAjouteLigne(Table,SSQL.IDPERSONNE,SSQL.NOMPERSONNE)
      HLitSuivant(sSQL)
   FIN
   HAnnuleDéclaration(sSQL)
FIN

Table.IDCLIENT..Visible=faux

Autre solution : liaison à la ligne...

sSQL est une source de données
cMonSQL est une chaine = "SELECT ID_Historique, Date_Histo, ID_Personne FROM HISTORIQUE WHERE..."
SI HExécuteRequêteSQL(sSQL,hRequêteDéfaut,cMonSql) ALORS
   HLitPremier(sSQL)
   TANTQUE PAS HEndeHors(sSQL)
   hLitRecherchePremier(PERSONNE,IDPERSONNE,SSQL.IDPERSONNE)
TableAjouteLigne(Table,SSQL.IDPERSONNE,PERSONNE.NOMPERSONNE)
      HLitSuivant(sSQL)
   FIN
   HAnnuleDéclaration(sSQL)
FIN
Table.IDCLIENT..Visible=faux

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=1469&post_id=6058