1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| date = Now() ; /*Enregistrement de la date et de l'heure courante
dans la variable date qui est de type chaine de caractère*/
/*Les lignes qui suivent, jusqu'a la fin de la boucle servent à definir
le quart d'heure suivant le plus proche (00:00,00:15,00:30,00:45)*/
date = RecodeMinute(date,0) ;
date = RecodeSecond(date,0) ;
DecodeTime(dureeJour,heure,minute,seconde,NULL) ;
do{
date = IncHour(date,heure) ;
date = IncMinute(date,minute) ;
date = IncSecond(date,seconde) ;
}while(date < Now()) ;
//Efface l'éventuelle requête prècedente
DMChaineFlexible->QChaineFlexible->SQL->Clear() ;
//Ajoute la première ligne de ma requête
DMChaineFlexible->QChaineFlexible->SQL->Add("DELETE") ;
//Ajoute la deuxieme ligne de ma requête
DMChaineFlexible->QChaineFlexible->SQL->Add("FROM PDP") ;
//defini la troisieme ligne, qui est la condition, de la requête
inter = "WHERE depart > convert(datetime,'" ;
inter = inter + date + "')" ;
//Ajoute la troisieme ligne de ma requête
DMChaineFlexible->QChaineFlexible->SQL->Add(inter) ;
//Connect les composants à la base
DMChaineFlexible->SChaineFlexible->Open() ;
DMChaineFlexible->DBChaineFlexible->Open() ;
//Execute la requête sur la base
DMChaineFlexible->QChaineFlexible->ExecSQL() ; |
Partager