Discussion :

[RodEpsi]

Salut à tous, j'aimerai savoir comment afficher une progress bar durant l'execution d'une requete de type Select *

J'ai essayé ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
          ProgressBar1.Min:=0;
          ProgressBar1.Max:=limite //c'est une variable que j'ai défini
 
          MaRequete.open;
          While not (MaRequete.Eof) do 
               Begin
                  ProgressBar1.Position;=ProgressBar1.Position+1;
                  MaRequete.next;
               end;

Ce code marche très bien seulement il execute d'abord la requête avant d'afficher la progressbar, comment faire en sorte ke la progressbar progresse en même temps ke l'execution de la requête (c-a-d en même temps que le parcours de ma table puisque tel est le but de ma requête)

Si quelqu'un peut me répondre, merci bcp

[Rayek]

il faut que tu rajoutes un application.processmessages pour que tu vois ta barre défiler.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 ProgressBar1.Min:=0;
          ProgressBar1.Max:=limite //c'est une variable que j'ai défini
          
          MaRequete.open;
          While not (MaRequete.Eof) do 
               Begin
                  ProgressBar1.Position:=ProgressBar1.Position+1;
                  MaRequete.next;
                  Application.ProcessMessages;
               end;

[RodEpsi]

Merci malatar, j'ai testé mais ma requête est toujours effectuée une première fois avant à cause du MaRequete.open

[RodEpsi]

il faut que tu rajoutes un application.processmessages pour que tu vois ta barre défiler.

Ma barre défilait bien avec ma méthode. Le problème est que lorsque j'ouvre MaRequete par le MaRequete.open celle ci s'execute avant d'effectuer le défilement de la ProgressBar. Visiblement application.processmessages ne change rien à cela

J'aimerai savoir comment faire pour que la ProgressBar défile en même temps que l'execution de la requête.

[RodEpsi]

Ma barre défilait bien avec ma méthode. Le problème est que lorsque j'ouvre MaRequete par le MaRequete.open celle ci s'execute avant d'effectuer le défilement de la ProgressBar. Visiblement application.processmessages ne change rien à cela

J'aimerai savoir comment faire pour que la ProgressBar défile en même temps que l'execution de la requête genre comme un threat séparé pour d'un côté executer la requête et d'un autre côté effectuer le défilement de la ProgressBar

[Rayek]

A ma connaissance, il n'y a qu'avec les composants Ado qu'il est possible d'utiliser une progressbar lors de l'exécution de la requete.

[RodEpsi]

J'utilise déjà ADO

En fait ma requête récupère des photo au format bmp stockées directement dans une bdd acess, évidemment cette requête prend du temps la base de données faisant environ 150Mo à cause des images... :s Je voulais donc un progressBar le temps que la requête s'execute pour faire patienter l'utilisateur mais le mieux serait évidemment que ça ne rame pas Or j'ai stocké des bmp dans la bdd car je n'arrivais pas à insérer du jpeg... Ne saurais-tu pas sinon à tout hasard comment insérer une image jpeg dans une bdd access ???

[abdouinf]

il faut ajouter un Repaint à la barre de progression

Code :

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

1
2
3
4
5
6
7
8
9
10
11
          ProgressBar1.Min:=0;
          ProgressBar1.Max:=limite //c'est une variable que j'ai défini
          ProgressBar1.Step := 1;
          ProgressBar1.Repaint;
          MaRequete.open;
          While not (MaRequete.Eof) do 
               Begin
                  MaRequete.next;
                  ProgressBar1.StepIt;  
                  Application.ProcessMessage; 
               end;