[IBX et Interbase] Filter sur une procedure stockée
Bonjour a tous,
svp, j'ai une procédure stockée qui parmi les résultats qui retourne , liste des produits avec leur désignation.
pour une recherche rapide sur cette procédure stockée , j'ai mis un composant edit , et dans l’événement ONChange (de ce dernier) j'ai mis le code suivant :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
IF (edit1.text <> '') then
begin
IBQuery1.close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('SELECT *');
IBQuery1.SQL.Add('FROM EtatQteStock');
IBQuery1.SQL.Add('WHERE UPPER(DESIGNATION) LIKE ' + ''''+ UpperCase(edit1.Text) + '%''');
IBQuery1.SQL.Add('ORDER BY CODEA');
IBQuery1.Active := true;
end
else
begin
IBQuery1.close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('SELECT *');
IBQuery1.SQL.Add('FROM EtatQteStock');
IBQuery1.SQL.Add('ORDER BY CODEA');
IBQuery1.Active := true;
end ; |
la requête marche , mais c'est très très lourd...
