MaRequête EST UNE SOURCE DE DONNEES
// Initialise la requête
SI PAS HExécuteRequeteSQL ( MaRequête ,...
"SELECT NOM,PRENOM FROM CLIENT WHERE CLIENT.NOM = 'DUPOND'" ) ALORS
Erreur ( "Erreur d' initialisation de la requête" + RC + HErreurInfo ())
RETOUR
FIN
// lecture du premier enregistrement de la requête
HLitPremier ( MaRequête )
TANTQUE PAS HEnDehors ()
// Traitement sur l' enregistrement de la requête
// Accès aux rubriques par MaRequête.<Nom rubrique>
...
// lecture de l' enregistrement suivant
HLitSuivant ()
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=2433&post_id=10239