Discussion :

[sondo]

Bonjour à tous,

Je veux faire fonctionner un ProgressBar en même temps que la progression de la requête sql. Mais quand je j'exécute la ProgressBar ne suis pas le pas de la boucle, elle va se remplie automatiquement quand je clique sur le bouton, alors que le traitement se poursuit. Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
      Idx := 1;
      ProgressBar1.Max := Query_Excel.FieldCount-1;
      ProgressBar1.Position := 0;
      while not Query_Excel.Eof do
            begin
              Inc(Idx);
              for Cpt :=0 to Query_Excel.FieldCount-1 do
              vWorksheet.cells.item[Idx, Cpt+1].value:=Query_Excel.Fields[Cpt].AsString;
              Query_Excel.Next;
              Application.ProcessMessages;
              Label2.Caption := IntToStr(Idx) + ' ' + 'Abonnés.';
              Progressbar1.Position := Progressbar1.Position + 1;
            end;

Merci pour toute aide.

[Andry]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
      Idx := 1;
      ProgressBar1.Max := Query_Excel.FieldCount-1;
      ProgressBar1.Position := 0;
      while not Query_Excel.Eof do
            begin
              Inc(Idx);
              for Cpt :=0 to Query_Excel.FieldCount-1 do
              vWorksheet.cells.item[Idx, Cpt+1].value:=Query_Excel.Fields[Cpt].AsString;
              Query_Excel.Next;
              Application.ProcessMessages;
              Label2.Caption := IntToStr(Idx) + ' ' + 'Abonnés.';
              Progressbar1.Position := Progressbar1.Position + 1;
            end;

Merci pour toute aide.

Salut,
C'est normale vu que tu as utilisé FieldCount au lieu de RowCount ou RecordCount.
Car supposons que tu as 10 champs ou colonne si tu veux, le step max doit être atteint après 10 boucles.
A+

[sondo]

Salut Andry,

J'ai fait avec RecordCount à la place de FieldCount, mais cela plante la requête. Cette requête exporte des données sous excel. Si j'utilise RecordCount, une seule ligne est exportée et le programme se plante impossible de l'arrêter si ce n'est avec Ctrl-Alt-Supr.

[Andry]

Alors, c'est quoi le composant utilisé ?
Sinon, pourquoi ne pas exécuter une requête pour compter d'abord le nombre d'enregistrement.

[sondo]

La requête compte déjà le nombre d'enrégistrement par le moyen de la boucle. Le compteur Idx est incrémenter pour chaque ligne exporter dans excel.
Faire une autre boucle qui compte le nombre d'enrégistrement va ralentir le traitement à mon idée, pourquoi ne pas le faire dans une seule boucle?.

[Lung]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ProgressBar1.Max := Query_Excel.RecordCount-1;

Ca ne corrige pas le problème ?

Sinon, si tu fais un export excel, au lieu d'écrire cellule par cellule, pourquoi ne pas passer par un fichier texte ?
Moi, depuis que je fais un export dans un fichier texte avec séparateur (genre csv) que j'ouvre avec excel, mon temps d'export est devenu quasi instantané.