Discussion :

[Lio590]

Bonjour,

j'utilise une base Access dont je transfert les données dans un StringList cf code ci dessous. Le problème c'est que plus ma base de données grandit plus cela prend de temps, ce qui logique, cependant comme c'est un processus "bloquant" je n'ai plus accés à mes autres fonctions et l'appli semble planté ce qui est pluto déroutant pour l'utilisateur. Avez une solution pour palier ce problème ?

Merci

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
 
Procedure TForm1.LoadEnStrFromDB();
Var
 Data : AnsiString;
begin
  { Create English List of String from the database }
  EnStrList := TStringList.Create;
    ADOTable1.First;
    While Not ADOTable1.Eof do
    begin
      Data := ADOTable1.FieldByName('English').Value;
      if Not VarIsNull(Data) Then
        EnStrList.Add(Data);
      ADOTable1.MoveBy(1);
    end;
end;

[yoyo44]

Salut, pourrais-tu montrer ta requête??
Je pense que

Code :

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

ADOTable1.Next

serait mieux que

Code :

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

ADOTable1.MoveBy(1);

[Rayek]

Et un petit Application.processMessages; Apres le Next, rendrait moins blocant l'application.

[Frank]

tu m'interresses, Malatar.

Code :

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

Application.processMessages

ça fait quoi, c'est comme

Code :

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

openArgs

?

[portu]

Code :

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

Application.processMessages

ça fait quoi, c'est comme

Code :

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

openArgs

?

Cela permet à l'application de traiter tous ses messages en attente. De ce fait, l'application n'est plus monopolisée par le traitement. Mais attention, le traitement (La boucle) sera plus long , ce qui est logique !

[Rayek]

L'application.processMessages permet à l'application de laisser passer les messages windows et evite le blocage de ton application

Fait un test

Code :

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

1
2
3
4
5
 
for i := 0 to 100000000 do
begin
  ProgressBar.Position := i*100 DIV 100000000 ;
end;

Avec ce code tu verras que la progressbar n'avance pas , que ton application est bloquée.

Si tu fais

Code :

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

1
2
3
4
5
6
 
for i := 0 to 100000000 do
begin
  ProgressBar.Position := i*100 DIV 100000000 ;
  Application.ProcessMessages;
end;

La tu vois la progressbar avancée en temps réel. et ton application n'est pas bloquée (deplace la fenetre tu verras que c'est possible).

Voila en gros à quoi sert le Application.ProcessMessages;

[vanquish]

Bonjour,

Le cas contraire à

Code :

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

if Not VarIsNull(Data) Then

(c'est à dire le champ à Null) est-il courant.

Si oui, tu aurais peut-être intérêt à passer par une query plutôt que la table, ce qui permettrait de filtrer les enregistrements au niveau de la requête à la base de données.

Si c'est 1 pour 1000, pas la peine. Mais si c'est 50% ...