Bonjour , je suis un peu ennuyé, voila mon problème ce bout de code permet de récupérer les adresses des personnes dans la base de données et d'extraire ceux qui n'ont pas eu de mise a jours depuis un temps spécifié dans un spinedit a priori lors de l’exécution ça se passe bien, mais a un moment donné ça se bloque et ensuite c'est planté , plus rien de marche est ce que quelqu'un a une idée ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
29
30
31
32
 
var
  S:TDateTime;
  R:extended;
  T:integer;
  fa:longint;
begin
   sqlmaj.Active:=False;
   Sqlmaj.SQL.Text:='Select * From `monserveur`.`mabase` where `maj`='+(#39)+'non'+(#39);
   sqlmaj.active:=true;
   sqlmaj.edit;
   sqlmaj.first;
   while not sqlmaj.eof do
   begin
     sqlmaj.Edit;
     fa:=FileAge(Sqlmaj.FieldByName('nom fichier').AsString);
     if fa<>-1 then
     begin
       S:=FileDateToDateTime(fa);
       R:=now-S;
       T:=round(R);
       if T > SpinEdit1.Value then
       begin
            result:=(sqlmaj.fieldbyname('mail').AsString);
            memo1.lines.add(result);
     end;
       sqlmaj.post;
       sqlmaj.Next;
     end;
   end;
 
end;