ADOCommandRapport.CommandText :'update Site set ProchaineVisite '''+FormatDateTime('dd/mm/yyyy',dbleDate)+''' where IdSite = '+inttostr(ADOTableRapport.FieldByName('IdSite').Asinteger);
PS : ProchaineVisite est défini en asdatetime dans la base de données et la on doit le redéfinir.
PPS : PeriodiciteEnJours est defini en int dans la base de données et la on le redefini.