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é.

[sondo]

Salut Lung,

J'ai déjà essayer

Code :

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

ProgressBar1.Max := Query_Excel.RecordCount-1;

mais ce ne marche pas.
Exporter directement dans excel est le mieux pour moi. Je n'ai pas montrer tout mon code. Je met des formules en place au cours de l'exportation. Si les données sont exporter dans un fichier texte, il faut encore faire un travail manuel dans Excel, c'est à dire paramétrer les colonnes, mettre les formules etc... Pourquoi ne pas le faire par programmation?, c'est plus simple, surtout que le résultat est utilisé par un profane...

[Franck SORIANO]

Si tu veux que ton export soit plus performant (et peut-être suffisamment pour te passer de la progressbar ), tu as différentes possiblités :

• Evite de faire les traitements cellule par cellule. A la place, crée un VarArray et utilise le pour définir la valeur de plusieurs cellules excel à la fois. De même, tu peux formater des colonnes entières avant de définir les valeurs des cellules.
• Limite les rafraichissement de l'écran au maximum :
  
  • Ne fait pas un ProcessMessages à chaque ligne, mais plutôt une ligne sur 100 (à ajuster selon la vitesse du traitement).
  • Fait très attention à ce que Excel ne redessine pas le classeur à chaque fois que tu modifies une cellule. Pour celà, tu peux cacher Excel pendant la génération du fichier. Tu disposes également de la propriété Application.ScreenUpdating (attention, je parle de l'application Excel) que tu peux passer à False au début du traitement, et la remetre à True à la fin.

Rien qu'avec ça, tu peux surement accélérer les traitements d'un facteur 100 !

[sondo]

Salut Franck SORIANO,

Merci pour vos indications. Je débute dans l'utilisateur d'Excel avec delphi. Ce qui fait que j'utilise ce traitement que j'ai trouvé dans ce forum et qui fait mon affaire.

Ne fait pas un ProcessMessages à chaque ligne, mais plutôt une ligne sur 100 (à ajuster selon la vitesse du traitement).

Si vous pouvez me donner un exemple cela me fera plaisir.
Merci.

[Franck SORIANO]

Et bien c'est simple, tu fais un truc du genre :

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
 
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;
 
  // On ne rafraichit l'écran que toutes les 100 lignes
  if idx mod 100 = 0 
  then begin
    Label2.Caption := IntToStr(Idx) + ' ' + 'Abonnés.';
    Progressbar1.Position := Progressbar1.Position + 1;
    Application.ProcessMessages;
  end;
end;

D'ailleurs je n'avais pas fait gaffe, mais tu ferais mieux de passer par un objet Range pour manipuler les cellules, plutôt que de passer par Worksheet.Cells.Item en boucle :

Il faut bien avoir consience que lorsque tu manipules Excel en Ole, c'est de l'out-of-process. Autrement dit, à chaque "appel" d'Excel, il faut commencer par synchroniser le processus de ton application avec celui d'Excel. C'est fait automatiquement par le marshalling OleAutomation (donc toi tu n'as rien à faire), mais c'est très lent.
Donc il faut faire le moins d'appels (en nombre) à excel que possible !

[sondo]

Ma ProgressBar marche à présent avec l'ajout de la ligne en bleu. Merci à vous tous pour vos éclaircissements.
Bon courage à tous.

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
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;
 
  // On ne rafraichit l'écran que toutes les 100 lignes
  if idx mod 100 = 0 
  then begin
    Label2.Caption := IntToStr(Idx) + ' ' + 'Abonnés.';    
    Application.ProcessMessages;
    if ProgressBar1.Max <= Query_Excel.RecordCount-1 then
    Progressbar1.Position := Progressbar1.Position + 1;
  end;
end;