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 :
la requête marche , mais c'est très très lourd...
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
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 ;
Partager