Discussion :

[Zizou7]

Comment faire le filtre sur une date?
C'est à dire quand on fait le choit sur feuille de payement où il ya eu plusieurs payements et on veut faire le filtre par rapport à une date dont il ya plusieurs payement, comment le faire?
Excusez moi des fautes.
Merci par avance.
Zizou7.

[ShaiLeTroll]

Je vois dans ma boule de cristal, le nom des champs, le nom des tables, je vois que tu ne fais pas plus d'effort

Regarde
Table.Filter
WHERE mot clé vachement utile en SQL

Tu ne poses pas des questions techniques mais fonctionnel sur le métier lié au logiciel que tu maintiens !
Les Membres Forum ne sont pas là pour faire TON travail !
C'est un Forum Delphi, pose des Questions sur le langage Delphi, pas sur de Compta !

[Zizou7]

Voici mon exemple qui ne marche pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
if EditRecherche.GetTextLen >0 then
 begin
case radiogroup1.ItemIndex of
0://Numero;
begin
base.tpolice.Filter:='Num_Police='''+EditRecherche.Text+'*''' ;
base.tpolice.Filtered:=true;
end;
1://Date;
begin
base.tpolice.Filter:='Date_Expiration='''+EditRecherche.Text+'*''';
base.tpolice.Filtered:=true;   end;

Ici par exemple toutes les valeurs numerique et date ne marche pas.
Par contre si je le fait par les caractères c'est à dire les

string

, ça marche.
Aidez moi pour le cas des

numeriques et dates

[SergioMaster]

je deteste les filtres
VIVE LE SQL ET LES REQUETES PARAMETREES

[Fxg]

Un petit tour dans la FAQ

et sans doute enlever :

Code :

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

+'*'

[Zizou7]

Je n'arrive pas à effectuer le filtre.
Voici ce que j'ai écrit:

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
if EditRecherche.GetTextLen >0 then
 begin
case radiogroup1.ItemIndex of
0://Numero;
begin
base.tpolice.Filter:='Numero_Police='''+EditRecherche.Text+'*''' ;
base.tpolice.Filtered:=true;
end;
1://Date;
begin
base.tpolice.Filter:='Date_Expiration='''+EditRecherche.Text+'*''';
base.tpolice.Filtered:=true;   end;
2:    //Souscripteur;
begin
base.tpolice.Filter:='Souscripteur='''+EditRecherche.Text+'*''';
base.tpolice.Filtered:=true;
  end;
end;

Rien ne marche por le moment.

[GoustiFruit]

Oulà, c'est quoi toutes ces apostrophes !? Avec un QuotedStr, ça ne serait pas plus simple ? Quelque chose comme:

Code :

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

base.tpolice.Filter := 'Numero_Police=' + QuotedStr(EditRecherche.Text) + '*';

A vérifier au niveau des ''' !

D'autre part, tu n'es vraiment pas clair, c'est quoi tes champs numériques, dates, ... ?

[SergioMaster]

mais surtout pourquoi un '*' en fin ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
0://Numero;
begin
base.tpolice.Filter:='Numero_Police='+EditRecherche.Text ;
base.tpolice.Filtered:=true;
end;
2:    //Souscripteur;
begin
base.tpolice.Filter:='Souscripteur='+QuotedStr(EditRecherche.text);
base.tpolice.Filtered:=true;

Quant a la date , c'est beaucoup plus complexe puisque déjà
- on ne connait pas la BDD donc le format de stockage
- la saisie sera t-elle juste et sous quelle forme
c'est pour cela entre autre que JE HAIS LES FILTRES et préfère les requêtes paramétrées

Quelque tentative toutefois , si la date et uniquement la date est stockée (pas d'heure) une solution , transformé la date saisie en TDateTime ,
récupérer la partie entière et faire comme en 1
s'il y a l'heure essayer plutôt un filtre avec Date_Expiration>=Date AND Date_Expiration<Date+1

Code sans conviction :

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

1
2
3
4
5
6
7
8
9
Var D : TDateTime;
try
D:=StrToDate(EditRecherche.text)
except
  D:=Date; 
end;
base.tpolice.Filter:='Date_Expiration='+InttoStr(trunc(d));
// ou 
base.tpolice.Filter:='Date_Expiration>='+InttoStr(trunc(d))+' AND Date_Expiration<'+InttoStr(trunc(d+1));

[BuzzLeclaire]

@Zizou7

Paramétor à parler (@Sergio), je rajouterais d'autre possibilité

Format('Numero_Police = %s', EditRecherche.Text);
pour la date
FormatDateTime, qui à l'avantage de transformer ta date comme tu veux en string ensuite à toi de jouer.


Et comme le souligne mon ami Sergio (@Paramétor ) si on connaissais le type de base que tu utilise se serait beaucoup plus facile.

[Zizou7]

J'ai fait ma base en access et je l'attaque sous delphi7.
Num_Police est de type entier long et date est de type Date.
Ensuite la date est sous la forme Date/Heure sous access.
Je dis que la base est en Access.
Merci par avance.

[SergioMaster]

ça sert à quoi de vous donner du code et de vous faire des remarques ?
j'aurais préféré un résolu ou un le code ne fonctionne pas parce-que ....

ou mieux encore : Comment faire sans utiliser les filtres ? ou comment je fais une requête paramétrée ?


[Edit] j'ai enfin compris l'histoire de '*' , jai toujours préféré le mot clé LIKE dans ces cas là
filtre:='CHAMP LIKE +QuotedStr('Valeur*');