Discussion :

[jpp]

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;

[Ph. B.]

Bonjour,

est ce que quelqu'un a une idée ?

2 ou 3 éléments constatés en effet :

1. Pourquoi passer en édition un ensemble de données que l'on ne va pas modifier ?
2. Placer l'instruction Next dans le bon bloc
3. AMHA, quelques instructions inutiles bien que non bloquantes.

Rectifié avec quelques commentaires, cela donne :

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
33
34
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);
      T:=round(now-S);
      if T > SpinEdit1.Value then
      begin
        //result:=(sqlmaj.fieldbyname('mail').AsString);
        memo1.lines.add(sqlmaj.fieldbyname('mail').AsString);
      end;
    // A rajouter !
    end;
    //sqlmaj.post;
    sqlmaj.Next;
    //end;
  end;
  // A rajouter
  sqlmMaj.Active:=false;

Autre question, le code fait-il partie d'une fonction (=la pertinence de result que j'ai supprimé) ?

[jpp]

Merci Philippe,

bon c'est presque ça, en effet, pas mal de lignes inutiles, j'ai essayé ta correction, c'est presque ça, mais ça boucle en permanence, je pense que on doit être entre les deux.

Effectivement résult n'était pas utile, c'était un appel qui n'avait plus lieu d'être.

je me remets dessus et je pense qu'avec tes conseils et un peu de caféine ça devrait aller.

UNe quastion AMHA ca veut dire a mon humble avis ou american miniature horse association ?

[jpp]

bon voila le code final,

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
33
34
35
 
procedure Tmaj.SpeedButton1Click(Sender: TObject);
var
  S:TDateTime;
  T:integer;
  fa:longint;
begin 
    //initialisation du bousin
    memo1.lines.clear;
 
   sqlmaj.Active:=False;
   Sqlmaj.SQL.Text:='Select * From `monserveur`.`matable` where `maj`='+(#39)+'non'+(#39);
   sqlmaj.active:=true;
   //debut de la boucle EOF
   while not sqlmajcv.eof do
   begin 
     fa:=FileAge(Sqlmajcv.FieldByName('nom fichier').AsString);
     //test validite de l'age du fichier
     if fa<>-1 then
     begin
       S:=FileDateToDateTime(fa);
       T:=round(now-s);
      //test de comparaison de l'age du fichier
       if T > SpinEdit1.Value then
       begin 
            memo1.lines.add(sqlmajcv.fieldbyname('mail').AsString);
       end;
       //fin du test de comparaison de l'age du fichier
     end;
     //fin de test de validite de l'age du fichier
       sqlmajcv.Next;
     end; 
     //fin de la boucle EOF
     sqlmajcv.Active:=false;
end;

philippe ! Comme quoi un autre oeil c'est toujours utile !

[Ph. B.]

UNe quastion AMHA ca veut dire a mon humble avis ou american miniature horse association ?

En toute humilité , un représentant d'une american association aurait plutôt dit : IMHO...