Discussion :

[Rayek]

Pense à cliquer sur ^^

[Poisson Rouge]

Ca fonctionne mais c'est vreaiment tres lent (environ 1min)

Voici ma requete

adoquery1.SQL.Text:='SELECT A.code_article, A.libelle_long, A.code_modele,P.prix_courant, R.libelle_rayon, F.libelle_famille'
+#10#13+ 'FROM ((Article as A'
+#10#13+ 'INNER JOIN Prix_courant as P'
+#10#13+ 'ON ((A.code_article = P.code_article) and (A.circuitapproaffiche = ''S'') and (A.status_article = ''AC'')))'
+#10#13+ 'INNER JOIN Rayon as R '
+#10#13+ 'ON A.code_rayon = R.code_rayon)'
+#10#13+ 'INNER JOIN Famille as F'
+#10#13+ 'ON (A.code_famille = F.code_famille) and (F.code_rayon = r.code_rayon)'
+#10#13+ 'WHERE A.code_article like '+QuotedStr(edit1.Text+'%')
+#10#13+ 'and A.libelle_long like '+QuotedStr(edit3.Text+'%')
+#10#13+ 'and A.libelle_long like '+QuotedStr('%'+edit2.Text+'%')
+#10#13+ 'and R.libelle_rayon like '+QuotedStr(combobox1.text+'%')
+#10#13+ 'and F.libelle_famille like '+QuotedStr(combobox2.text+'%')
+#10#13+ 'ORDER BY A.libelle_long';

La table comprend environ 500 000 références.

N'y aurait t-il pas un moyen d'accélérer ma requete ?

Merci

[Rayek]

Tu peux faire apparaitre une fenêtre avec une barre de progression pour faire patienter l'utilisateur ^^

pour ce faire, il faut que tu mettes l'adoQuery en asynchrone,

Propriété ExecuteOptions avec

1. eoAsyncExecute à True
   eoAsyncFetch à True
   eoAsyncFetchNonBlockinng à True

dans Le onFecthProgress du AdoQuery tu codes la progression de la progressbar

Code :

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

1
2
3
4
5
6
7
8
 
procedure TfrmMain.ADOQuery1FetchProgress(DataSet: TCustomADODataSet; Progress,
  MaxProgress: Integer; var EventStatus: TEventStatus);
begin
  ProgressBar1.Max:= MaxProgress;
  ProgressBar1.Position := Progress;
  Application.ProcessMessages;
end;

Dans le OnFetchComplete

Code :

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

1
2
3
4
5
6
 
procedure TfrmMain.ADOQuery1FetchComplete(DataSet: TCustomADODataSet;
  const Error: Error; var EventStatus: TEventStatus);
begin
  bMaVariableGlobale := True; // on a fini avec la requete pour laisser le programme continuer
end;

Et voici comment tu appels

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
bMaVarGlobal := False;
With AdoQuery do
begin
  Close;
  // Ici le SQL
  Open;
  // on attend que la requete ce termine pour continuer
  While not bMaVarGlobal do
    Application.ProcessMessages;
end;

Sinon pour le temps , tu appels 4 tables dont je ne connais pas les tailles, tu as 5 critères "like" pour le filtre (pas le meilleur pour filtrer), je peux pas te dire si c'est normal ou pas , ou si on peut optimiser.

[Poisson Rouge]

Errueur

Un composant de connexion est requis pour Excecueoptions asynchrone

De quel autre facon est-il possible de filtrer la table ?

[Poisson Rouge]

Resolu le prob de connexion maintenant c'est :

Violation d'acces à l'adresse 00499CA7

[Rayek]

Fait un pas à pas et motre ton bout de code ou ca plante, car comme avec ce message de violation je peux rien faire.

[Edit]Petite erreur dans la confguration du AdoQuery, il ne faut aps mettre eoAsyncFetch à true, mais le laisser à false (j'ai vérifié dans le code ou j'utilise cette technique)

[Poisson Rouge]

le probleme de lenteur viens surtout apparement que la base de donnée est sur un autre poste en réseau.

Je verais demain pour la progressbar