TableSupprimeTout(TABLE_RDV)
SI cdbOuvre("HeliosPPC", "\My Documents\HeliosPPC.cdb") ALORS
cdbLitPremier("HeliosPPC", "RDV")
// Enregistrement en dehors du fichier ?
TANTQUE cdbEnDehors("HeliosPPC", "") = Faux
// Ajout de l'enregistrement trouvé dans la table
TableAjouteLigne(TABLE_RDV,cdbCol("HeliosPPC","RDV",1,cdbValeur),cdbCol("HeliosPPC","RDV",2,cdbValeur), cdbCol("HeliosPPC","RDV",3,cdbValeur), cdbCol("HeliosPPC","RDV",5,cdbValeur))
//Info("une ligne ajoutée")
cdbLitSuivant("HeliosPPC", "")
FIN
SINON
Info("Erreur d'ouverture de table.")
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=15&topic_id=4404&post_id=18247