POUR i=1 A 500
Sablier()
SQLDem est une Source de Données
sqlch est une chaîne="SELECT Observation FROM Demande"
SI PAS HExécuteRequêteSQL(SQLDem,nom_connection,hRequêteSansCorrection,sqlch) ALORS
Erreur(ErreurInfo())
RETOUR
FIN
HLitPremier(SQLDem)
TANTQUE PAS HEnDehors(SQLDem)
Trace(SQLDem.Observation)
HLitSuivant(SQLDem)
FIN
HAnnuleDéclaration(SQLDem)
Sablier(Faux)
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=19&topic_id=5607&post_id=22943