Discussion :

[lenetfm]

salut tout le monde
je veux effectue une recherche dans une table normalement voila le code

Code :

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

1
2
3
4
5
6
data.tpieces.Filtered:=false;
 f:='';
 if  Edit1.Text<>'' then
 f:='(Ref_piece='''+ edit1.Text+'*'')';
 data.tpieces.Filter:=f;
 data.tpieces.Filtered:=(f<>'');

mais il me dit '12*' n'est pas une valeur entier correct en sachant que 12 c'est l'indexe que je veux le cherche
j'ai modifie le code

Code :

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

1
2
3
4
5
6
data.tpieces.Filtered:=false;
 f:='';
 if  Edit1.Text<>'' then
 f:='(Ref_piece='''+ edit1.Text+''')';//j'ai supprime l'étoile 
 data.tpieces.Filter:=f;
 data.tpieces.Filtered:=(f<>'');

quand jai supprime l'étoile ca marche bien mais le problem c'est que elle affiche juste une seul valeur
par example si je veux affiche tout les indexe qui commence par 1 alors la ca sera impossible alors es que vous avez une idée
Merci d'avance

[popo]

Replace le "=" par un "like" et le "*" par un "%"

[lenetfm]

Replace le "=" par un "like" et le "*" par un "%"

ca marche pas
voila ce que j"ai fais

Code :

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

1
2
3
4
5
6
data.tpieces.Filtered:=false;
 f:='';
 if  Edit1.Text<>'' then
 f:='(Ref_piece like'''+ edit1.Text+'%'')';
 data.tpieces.Filter:=f;
 data.tpieces.Filtered:=(f<>'');

Merci Comme meme et j'ai un autre problem comme faire pour cherche des noms
par example NOM et nom sont pas kif kif alors es que il y une possible de les rendre les meme en terme de recherche bien sure si je tappe par example nom
elle affiche tout les nom Majuscule et Miniscule

[NABIL74]

Salut.lenetfm.

Essaye ce code,il marche très bien:

Code :

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

1
2
3
4
5
6
data.tpieces.Filtered:=false;
 f:='';
 if  Edit1.Text<>'' then
 f:='Ref_piece= '''+(Edit1.Text)+'*''';(ton problème réside dans : '*'')'  . il faut avoir 4 apostrophes pour que le filtre marche.
 data.tpieces.Filter:=f;
 data.tpieces.Filtered:=(f<>'');

[lenetfm]

merci nabil pour la reponse mais ca marche pas
la meme erreur

[NABIL74]

voici le code que j'utilise moi même (il marche très bien sans aucun problème) pour faire une recherche et filtre en même temps:

Code :

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

1
2
3
4
5
procedure TForm1.Edit1Change(Sender: TObject);
begin
data.tpieces.Filtered:=false;
data.tpieces.Filter:='Ref_piece = '''+(Edit1.Text)+'*''';
data.tpieces.Filtered:=true;

[lenetfm]

voici le code que j'utilise moi même (il marche très bien sans aucun problème) pour faire une recherche et filtre en même temps:

procedure TForm1.Edit1Change(Sender: TObject);
begin
data.tpieces.Filtered:=false;
data.tpieces.Filter:='Ref_piece = '''+(Edit1.Text)+'*''';
data.tpieces.Filtered:=true;

ca marche pas chez moi
juste une Question le type de ref_piece tu las met alphanémurique ?? si c'est le cas ca marche le mien et auto incremente alors ca marche pas désoler

[gentilman_delphi]

ca marche pas chez moi
juste une Question le type de ref_piece tu las met alphanémurique ?? si c'est le cas ca marche le mien et auto incremente alors ca marche pas désoler

Pourquoi pas faire strtoint(edit1.text)

[lenetfm]

Pourquoi pas faire strtoint(edit1.text)

je ne peut pas le faire parce que on dois avec un string pour que le filtre marche :d

[banban54]

je ne peut pas le faire parce que on dois avec un string pour que le filtre marche :d

QuodeStr(strtoint(edit1.text))

[lenetfm]

ça marche pas

[JP.NUAGE]

Petite question pour faire des tests : Ton Edit.text peut avoir n'importe quelle longeur, ou il a toujours un nombre maximum de caractères ?

[cantador]

@lenetfm :

Pourquoi ne pas remplacer ton TTable par un TQuery et
lancer une petite requête paramétrée..
ce qui te simplifierait grandement l'écriture du filtre :

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.Button1Click(Sender: TObject);
begin
  with Qpiece.SQL do
  begin
    Qpiece.close;
    Clear;
 
    Add('SELECT Nom  ');
    Add('FROM PIECE ');
    Add('WHERE UPPER(Nom ) LIKE :SAISIE ');
 
    Qpiece.ParamByName('SAISIE').Value := '%' + Uppercase(Edit1.Text) + '%';
    Qpiece.Open;
  end;
end;

en traitant le tout en majuscule, tu règles ton souci de recherche sur "nom"

ce qui t'empêche pas éventuellement d'ajouter un autre paramètre dans la requête 'AND quelque chose=:num' te permettant de filtrer le numéro de l'index de ta pièce.

Cantador

[lenetfm]

Merci beaucoup