Discussion :

[mahboubi]

j'ai essaie de faire une recherche pour afficher mes enregistrement
par mois c.a.d si j'entre mai mon dbgrid affiche seulement les
enregistrement concernée

Code :

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

1
2
3
4
5
6
7
if MaskEdit1.Text <> '' then
begin
form6.DBGrid1.Visible:=true;
Query1.Active:=False;
Query1.Params[0].AsDate := strtodate(MaskEdit1.Text);
Query1.Active:=True;
end;

la requette est la suivante:

Code sql :

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

1
2
Select Codloc,NomPrenom,Naissance,Residance from membrec
Where Durerloyer(month) =:variableDate

[Just-Soft]

Salut;

D'abord parlons de l'ordre, le code SQL c'est à dire la requête, le paramétrage puis l'exécution se qui donnera approximativement cela :

Code :

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

1
2
3
 
Select Codloc,NomPrenom,Naissance,Residance from membrec
Where Durerloyer(month) =:variableDate

Code :

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

1
2
3
4
5
6
7
if MaskEdit1.Text <> '' then
begin
form6.DBGrid1.Visible:=true;
Query1.Active:=False;
Query1.Params[0].AsDate := strtodate(MaskEdit1.Text);
Query1.Active:=True;
end;

Ensuite, je constate que ton but est de filtrer le mois par contre ton MaskEdit contient une date ce qui fait une grande différence. Donc, faudrait utiliser DecodeDate pour ne retenir que le mois et le passer en paramètre.

Bon courage.

[Just-Soft]

Salut;

voici un petit joujou répondant à ton souci :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
procedure TForm1.bFiltreClick(Sender: TObject);
var
  chaine_sql : string;          // pour stocker la chaine SQL
  jj, mm, aa : word;            // variables servant aux stockages de l'année, le mois et le jour
  d_debut, d_fin : TDate;       // date début et date fin
  taTable, tonChamp : string;   // Table et champ invoqués
begin
  // ici le nom de la table
  taTable := 'employee';
 
  // ici le champ de type date
  tonChamp := 'HireDate';
 
  // la chaine SQL
  chaine_sql := 'SELECT * '
              + 'FROM ' + taTable + ' '
              + 'WHERE  ' + tonChamp + '>=:vAnneeDebut AND ' + tonChamp + ' <=:vAnneeFin';
  // fermer le query
  query1.Close;
 
  // effacer l'ancien contenu
  query1.SQL.Clear;
 
  // affecter la chaine SQL
  query1.SQL.Text := chaine_sql;
 
  // décoder la date pour obtenir l'année
  DecodeDate(DateTimePicker1.Date, aa, mm, jj);
 
  // construire la date début
  d_debut := EncodeDate(aa, 01, 01);
 
  // construire la date fin
  d_fin := EncodeDate(aa, 12, 31);
 
  // affeter aux deux paramètres comme indiquer dans la chaine SQL
  query1.ParamByName('vAnneeDebut').AsDate := d_debut;
  query1.ParamByName('vAnneeFin').AsDate := d_fin;
 
  // ouvrir la table
  query1.Open;
 
  // affichage du résultat et fin...........
  ShowMessage(Format('%d enregistrement(s) trouvé(s)', [query1.RecordCount]));
end;

Bon codage.

[mahboubi]

ça na pas marcher car je veut quand j'entre un mois dans un edit1.text
je doit appercevoire dans ma dbgrid seulement les enregistrement de ce mois

[Just-Soft]

Salut;

Un peu d'effort. J'avais oublié de signaler que j'ai travaillé avec un DateTimePicker. Bref c'est du pareil au même en tout cas puisque tu travaille avec un MaskEdit.

[SergioMaster]

Si au moins on savait avec quelle BDD . La plupart ont des fonctions permettant d'extraire le mois d'une date .

Les détails , les détails .....

et qu'est-ce que 'Durerloyer(month)' ?

[lou_delphdev]

Bonjours mahboubi, je pense avoire la solution a ton prob...
Voici le code:

pour le filtre par mois:

Code :

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

1
2
3
4
5
6
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from Tatatable');
Query1.SQL.Add ('where extract(month from Ton champ)= '''+MaskEdit2.text+'''');
Query1.Open;

pour le filtre par année:

Code :

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

1
2
3
4
5
6
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from Tatable');
Query1.SQL.Add ('where extract(year from Ton champ)= '''+MaskEdit1.text+'''');
Query1.Open;

et enfin par jour:

Code :

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

1
2
3
4
5
6
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from Tatable');
Query1.SQL.Add ('where extract(day from Ton champ)= '''+MaskEdit3.text+'''');
Query1.Open;

Ps: vus que tu n'as pas mentioné le type de bd que tu utilises, j'ai jujé que c'été en BDE.... j'esper t'avoire aider

[Just-Soft]

Justement SergioMaster ce que j'ai proposé va au delà du SGBD utilisé, pas la peine de savoir quel SGBD il utilise !

[mahboubi]

salut ts le monde merci pour l'aide
mois j'utilise PARADOX et la solution de lou delphdev n'a pas marcher il m'affiche type mismatch

[SergioMaster]

On y arrive
Paradox donc extract devrait fonctionner maintenant le mois étant un entier il faudrait peut-être comprarer un entier avec un entier et non un chaine de caractère . Mieux encore utiliser les pramètres pour une query

Code :

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

1
2
3
4
5
6
7
 
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from Tatable');
Query1.SQL.Add ('where extract(month from champDate)=:MM') 
Query1.ParambyName('MM').asInteger:=MaskEdit2.text;
Query1.Open;

PS. Ceci en espérant que Champdate est bien un champ déclaré Date et pas une String et que la validation du MaskEdit2.text ai bien été faite (valeur entière comprise entre 1 et 12) n.b. cela aurait été plus aisé avec un TspinEdit .

à la paresseuse

Code :

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

1
2
 
Query1.SQL.Add ('where extract(month from champDate)='+maskedit2.text)

devrait fonctionner , mais c'est une mauvaise habitude