Sql est une Chaine
Rs est une source de donnees
Sql = "SELECT fichierpub.rub1, fichierpub.rub2, fichierpub.rubN "...
+ "FROM fichierpub"
Si pas HExecuteRequeteSQL(Rs, HRequeteDefaut, Sql) Alors
Erreur(HErreurInfo())
Retour
Fin
Lecture: //On identifie un debut de bloc de code
POUR Tous Rs
//Ici le Traitement d'affichage et de temporisation
Fin
Goto Lecture //On renvoi au debut du bloc de code Lecture
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=2977&post_id=12444