Discussion :

[yacinew]

Bonjour,

Je voudrais réaliser un filtre avec 2 variables : le nom et prénom, mais le code suivant ne fonctionne pas :

Code :

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

Table1.Filter:='Nom=''' + nom.Text +'*'''+'and'+ 'PR=''' + ComboBoxP.Text + '*''';

Comment corriger ça ?

Merci

[tourlourou]

Je suppose que c'est le caractère joker qui interfère, cf. discussion http://www.developpez.net/forums/d14...es/filtre-cds/.

Avec Locate, un aperçu (sans caractères joker) ici.

Sinon, plutôt que filtrer, pourquoi ne pas faire une requête sélective, comme le préconise SergioMaster ?

[SergioMaster]

Bonjour,

Sinon, plutôt que filtrer, pourquoi ne pas faire une requête sélective, comme le préconise SergioMaster ?

C'est vrai que j'ai tendance à avoir les filtres en horreur

Code :

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

Table1.Filter:='NOM LIKE '+QuotedStr(nom.text+'%') +' AND PR LIKE '+QuotedStr( ComboBoxP.Text+'%');

ce filtre devrait fonctionner (attention aux espaces)
une autre solution est de passer par le onFilterRecord au lieu de mettre le filtre

Code :

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

1
2
3
4
5
procedure Form1.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
Accept:=(pos(nom.text,Dataset.FieldByName('NOM').asString)=1) AND (pos( ComboBoxP.Text,Dataset.FieldByName('PR').asString)=1); 
end;

il y a d'autres possibilités que le Pos , j'ai fait au plus simple

[yacinew]

Merci pour les réponse,
la deuxième solution de Monsieur SergioMaster a bien marché.

[yacinew]

SVP, Comment corriger le filtre suivant :

Code :

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

Table1.Filter:='NOM LIKE '+QuotedStr(nom.text+'%') +' AND PR LIKE '+QuotedStr( ComboBoxP.Text+'%');

2- ou :

Code :

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

Table1.Filter:='Nom=''' + nom.Text +'*'''+'and'+ 'PR=''' + ComboBoxP.Text + '*''';

[yacinew]

SVP quelqu'un peux m'aider ...!

[paulfr]

Bonjour,

personnellement dans de tel cas je passe par une l'intermédiaire d'une chaîne de caractères, ce sera plus clair.

PL

[Papy214]

Je vais faire mon chipoteur en préconisant l'emploi de Format qui rend les choses plus lisibles lors de le définition de la chaîne à composer:

Code :

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

1
2
3
4
5
 
const
  Fmt = 'Champ1 = %s and Champ2 = %s';
begin
  ShowMessage(Format(Fmt, [QuotedStr('Bonjour%'), QuotedStr('Developpez.com')]));