Filtre sur l'année d'une Date [Résolu]

[souminet]

Bonjour,

Voilà, je voudrais savoir comment filtrer ma table juste sur L'année du champs Date...
Je m'explique:
Table: TabAppel : Type Paradox
Champs: N_App, Objet_App, ..., Date_PArution, ...)

Je voudrais pouvoir donner la possibilté à 'utilisateur de Filtrer Ma table Par rapport au champs: Date de parution , mais Juste sur l'année
Exemple: Filtrer les Appels d'offres parus en : 2006
Les dates ont le format: jj/mm/aaaa

Merci

[SergioMaster]

Comment tu n'as pas trouvé

Code :

1
2
 
SELECT t.* FROM TabAppel T WHERE extract(Year FROM T.Date_Parution)=2006

devrait fonctionner , non testé

[souminet]

Oui mais c'est pas à travers une requête que je voudrais le faire, C'est plutôt avec un Filtre, car j'en utilise déja un, pour Un autre paramètre de filtre:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TFConsultationApp.FiltreBtnClick(Sender: TObject);
Var
FiltrClass:String;
FiltrAnn:String;
begin
 If FiltrClasRad.Checked=true then
  Begin
   Datamodule3.TabAppel.Filtered:=false;
   FiltrClass:= 'Classe = '''+ LookClass.Text + '*''';
   datamodule3.TabAppel.filter:=FiltrClass;
   datamodule3.TabAppel.Filtered:=true;
  end;
   If ParRad.Checked=true then
  Begin
   Datamodule3.TabAppel.Filtered:=false;
   FiltrAnn:=  ????????????????????;
   datamodule3.TabAppel.filter:=FiltrAnn;
   datamodule3.TabAppel.Filtered:=true;
  end;

end;

C'est juste pour la partie en rouge ci dessus, Je veux un Filtre pour continuer dans le même esprit

Merci

[SergioMaster]

Effectivement dans ce cas là je t'ai mal dirigé en t'indiquant de forum puisque du coup c'est Delphi .
Voir ce que j'ai répondu dans ce dernier . le mieux c'est de travailler avec l'evenement onFilterRecord de la table
decouper la date puis Accept:=(Annee=2006);

[souminet]

Envoyé par SergioMaster

Effectivement dans ce cas là je t'ai mal dirigé en t'indiquant de forum puisque du coup c'est Delphi .
Voir ce que j'ai répondu dans ce dernier . le mieux c'est de travailler avec l'evenement onFilterRecord de la table
decouper la date puis Accept:=(Annee=2006);

Eh...... Comment???

[SergioMaster]

quelque chose comme ça (non testé) . Le problème c'est que j'ai l'impression qu'il y a beaucoup de Forms dans ton projet donc au hasard

Code :

1
2
3
4
5
6
7
8
9
10
 
datamodule3.TabAppelOnFilterRecord(DataSet : TDataSet;Accept : BOOLEAN);
var aa,mm,jj : word;
begin
IF TFConsultationApp.ParRad.Checked then
begin
  DecodeDate(DataSet['Date_PArution'].value]);
  Accept:=(aa=2006);
end;
end;

il faut bien sur "oublier"

Code :

1
2
3
 
  // FiltrAnn:=  ????????????????????;
  // datamodule3.TabAppel.filter:=FiltrAnn;

[ALWEBER]

En Delphi tu crée un index secondaire sur la colonne Date_PArution nommé ici IS1
puis dans le programme :

Code :

1
2
  Table1.IndexName := 'IS1' ;
  Table1.SetRange([StrToDate('01/01/2000')],[StrToDate('01/01/2001')]);