Discussion :

[ferhat80]

je voudrais faire un filtrage entre deux date mais ca ne marche pas le code
BBD SQL

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TF_Consultation.OKBtnClick(Sender: TObject);
var DateDebut, DateFin: string;
begin
 
DateDebut := DateToSTR(DateTimePicker1.Date);
DateFin := DateToSTR(DateTimePicker2.Date);
 
DM.ADO_Emprunte.Close;
DM.ADO_Emprunte.Filtered := True;
DM.ADO_Emprunte.Filter := 'Date_Liv_Ren >= '''+DateDebut+''' and Date_Liv_Ren <= '''+DateFin+''' ';
DM.ADO_Emprunte.Active := True;

[anapurna]

salut

essai un truc de ce genre et dis nous si cela fonctionne mieux

Code :

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

1
2
3
4
5
6
7
8
9
 
 // format date #yyyy/mm/dd#
 
if  DM.ADO_Emprunte.Active  Then 
Begin 
  DM.ADO_Emprunte.Filtered := False;
  DM.ADO_Emprunte.Filter :=Format('Date_Liv_Ren >= %0:s and Date_Liv_Ren <=  %1:s ',[DateDebut,DateFin]);
  DM.ADO_Emprunte.Filtered := True;
end;

[ShaiLeTroll]

Si c'est un BDD SQL, pourquoi ne pas faire un TADOQuery contenant WHERE BETWEEN ?
Evidemment ParamByName avec DataType à ftDate pour éviter la problématique de format de date (locale, UTC, SQL)

Cela réduit en plus les données récupérées, au lieu de tout lire et filtrer, on fait l'inverse.


Si c'est un TADOTable
le Close Active est inutile et contre-performant, c'est Filtered := False puis Filtered := True;
Mais c'est une approche lente, pour ACCESS en local par exemple, à bannir sur un SGBD distant.

[ferhat80]

salut

essai un truc de ce genre et dis nous si cela fonctionne mieux

Code :

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

1
2
3
4
5
6
7
8
9
 
 // format date #yyyy/mm/dd#
 
if  DM.ADO_Emprunte.Active  Then 
Begin 
  DM.ADO_Emprunte.Filtered := False;
  DM.ADO_Emprunte.Filter :=Format('Date_Liv_Ren >= %0:s and Date_Liv_Ren <=  %1:s ',[DateDebut,DateFin]);
  DM.ADO_Emprunte.Filtered := True;
end;

[ferhat80]

j'ai essayé ça et ça na pas marché non plus

J'utilise le Composant ADOQuery la requête (Select * From Emprunte)

Code :

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

1
2
3
4
5
DM.ADQ_FiltrDateEmpr.Active;
DM.ADQ_FiltrDateEmpr.SQL.Clear;
DM.ADQ_FiltrDateEmpr.SQL.Add('Select * From Emprunte where Date_Liv_Prete Between '+QuotedStr (FormatDateTime('yyyy-mm-dd', DateTimePicker2.Date))+'AND' +QuotedStr (FormatDateTime('yyyy-mm-dd', DateTimePicker1.Date))+ '');
DM.ADQ_FiltrDateEmpr.ExecSQL;
DM.ADQ_FiltrDateEmpr.Active := True;

Si c'est un BDD SQL, pourquoi ne pas faire un TADOQuery contenant WHERE BETWEEN ?
Evidemment ParamByName avec DataType à ftDate pour éviter la problématique de format de date (locale, UTC, SQL)

Cela réduit en plus les données récupérées, au lieu de tout lire et filtrer, on fait l'inverse.


Si c'est un TADOTable
le Close Active est inutile et contre-performant, c'est Filtered := False puis Filtered := True;
Mais c'est une approche lente, pour ACCESS en local par exemple, à bannir sur un SGBD distant.

[free07]

j'ai essayé ça et ça na pas marché non plus

J'utilise le Composant ADOQuery la requête (Select * From Emprunte)

DM.ADQ_FiltrDateEmpr.Active;
DM.ADQ_FiltrDateEmpr.SQL.Clear;
DM.ADQ_FiltrDateEmpr.SQL.Add('Select * From Emprunte where Date_Liv_Prete Between '+QuotedStr (FormatDateTime('yyyy-mm-dd', DateTimePicker2.Date))+'AND' +QuotedStr (FormatDateTime('yyyy-mm-dd', DateTimePicker1.Date))+ '');
DM.ADQ_FiltrDateEmpr.ExecSQL;
DM.ADQ_FiltrDateEmpr.Active := True;

Et en mettant les espaces pour le 'AND' ? :

Code :

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

 DM.ADQ_FiltrDateEmpr.SQL.Add('Select * From Emprunte where Date_Liv_Prete Between '+QuotedStr (FormatDateTime('yyyy-mm-dd', DateTimePicker2.Date))+' AND ' +QuotedStr (FormatDateTime('yyyy-mm-dd', DateTimePicker1.Date)));

[SergioMaster]

C'est surtout en utilisant des paramètres pour ne pas se soucier du format de date que le SQL devient intéressant.

Je déteste ADO, mais cela doit donner quelque chose comme ça

Code :

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

1
2
3
4
5
6
7
8
 
DM.ADQ_FiltrDateEmpr.Close;
DM.ADQ_FiltrDateEmpr.SQL.Text:='Select * From Emprunte where Date_Liv_Prete Between :debut AND :fin';   // voir réflexion plus bas 
DM.ADQ_FiltrDateEmpr.Parameters.ParamByName('debut').DataType := ftDate;
DM.ADQ_FiltrDateEmpr.Parameters.ParamByName('debut').Value := DateTimePicker1.Date;
DM.ADQ_FiltrDateEmpr.Parameters.ParamByName('fin').DataType := ftDate;
DM.ADQ_FiltrDateEmpr.Parameters.ParamByName('fin').Value := DateTimePicker2.Date;
DM.ADQ_FiltrDateEmpr.Open;

NB. au moins deux erreurs dans le dernier code proposé

1. DM.ADQ_FiltrDateEmpr.Active; Justement non, il faut au contraire fermer la requête au cas où elle serait déjà ouverte
2. DM.ADQ_FiltrDateEmpr.ExecSQL; Inutile, une requête qui renvoie des données s'ouvre via un open

Deux réflexions :

1. Puisque la requête est dans le datamodule est-il besoin, grâce aux paramètres, de changer son texte ?
2. Dans ce cas, un DM.ADQ_FiltrDateEmpr.prepare (dans le datamodule) pourrait encore améliorer le passage de paramètres et réduire le code (plus besoin de définir les types enfin je crois car ADO et moi )

[ShaiLeTroll]

On ignore toujours le SGBD utilisé, le Provider choisi (le driver en donc), la version de Delphi ...

j'ai essayé ça et ça na pas marché non plus

J'utilise le Composant ADOQuery la requête (Select * From Emprunte)

Code :

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

1
2
3
4
5
DM.ADQ_FiltrDateEmpr.Active;
DM.ADQ_FiltrDateEmpr.SQL.Clear;
DM.ADQ_FiltrDateEmpr.SQL.Add('Select * From Emprunte where Date_Liv_Prete Between '+QuotedStr (FormatDateTime('yyyy-mm-dd', DateTimePicker2.Date))+'AND' +QuotedStr (FormatDateTime('yyyy-mm-dd', DateTimePicker1.Date))+ '');
DM.ADQ_FiltrDateEmpr.ExecSQL;
DM.ADQ_FiltrDateEmpr.Active := True;

Comme vous n'avez pas repris le concept le plus important " ParamByName avec DataType à ftDate ", pas de surprise que cela ne fonctionne pas ExecSQL et Active (Open) ne doivent pas être utilisé ensemble, vous ne maitrisez pas les composants DB semble-t-il.

Active est une propriété, la première ligne ne fait absolument rien de pertinent, c'est le GetActive qui est invoqué donc sans intérêt, là c'est même la maitrise de Delphi qui est a revoir.



La proposition de SergioMaster est exactement ce qui semble approprié, ce que je fais sauf SQL.Add qui peut être un piège, mieux vaut SQL.Text !
Une vérification que ParamCheck est à True (valeur par défaut) mais pouvant être modifié dans le DFM.

Le Prepare explicite pour une utilisation fréquente en ne changeant QUE les paramètres, oui, ça sera plus performant
A savoir qu'il y a un Prepare implicte
Affecté à SQL.Text ou Appeler SQL.Add() invoque le OnChange de SQL soit le gestionnaire QueryChanged qui provoque un TADOCommand.SetCommandText et InitParameters pour les TADOQuery (TParameters.InternalRefresh, RefreshFromOleDB, ICommandPrepare.Prepare peut être lent)
Ensuite cela charge si il a pu être déterminer le type de paramètre (SQL Server le supporte par exemple), il rarement utile ce mécanisme car on sait le type de la valeur soumise, seul un cas d'application fortement customisable peut exploiter cela sans se soucier de fortement typé les paramètres.

Code :

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

1
2
3
4
5
6
7
DM.ADQ_FiltrDateEmpr.Close();
DM.ADQ_FiltrDateEmpr.SQL.Text := 'Select * From Emprunte where Date_Liv_Prete Between :debut AND :fin';
DM.ADQ_FiltrDateEmpr.Parameters.ParamByName('debut').DataType := ftDate;
DM.ADQ_FiltrDateEmpr.Parameters.ParamByName('debut').Value := DateTimePicker1.Date;
DM.ADQ_FiltrDateEmpr.Parameters.ParamByName('fin').DataType := ftDate;
DM.ADQ_FiltrDateEmpr.Parameters.ParamByName('fin').Value := DateTimePicker2.Date;
DM.ADQ_FiltrDateEmpr.Open();

Ne pas oublier de mettre le DataSource sur ce ADQ_FiltrDateEmpr pour qu'il soit afficher dans le TDBGrid par exemple

[SergioMaster]

La proposition de SergioMaster est exactement ce qui semble approprié, ce que je fais sauf SQL.Add qui peut être un piège, mieux vaut SQL.Text !

mea culpa, je n'avais pas fait attention à cette partie. Bien évidemment, il faut utiliser SQL.text (j'ai corrigé mon code) ou alors ajouter une instruction SQL.Clear avant.

[oneDev]

J'ai un code équivalent. J'utilise l'évènement ClientDataSet1FilterRecord.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.btnSearchDatesClick(Sender: TObject);
begin
  if (dtStart.Date = FDateStart)
    and (dtEnd.Date = FDateEnd) then
    Exit;
 
  FDateStart := dtStart.Date;
  FDateEnd := dtEnd.Date;
 
  ClientDataSet1.Filtered := False;
 
  if (FDateStart > 0) and (FDateEnd > 0) then
    ClientDataSet1.Filtered := True;
end;

Code :

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

1
2
3
4
5
6
procedure TForm1.ClientDataSet1FilterRecord(DataSet: TDataSet; var Accept:
    Boolean);
begin
   Accept := (ClientDataSet1['MA_DATE'] >= FDateStart)
              and (ClientDataSet1['MA_DATE'] <= FDateEnd);
end;

[ferhat80]

Bonsoir
Oh...! Merci pour vos réponse, je suis vraiment très touché c'est gentil de votre part.

[SergioMaster]

J'ai un code équivalent. J'utilise l'évènement ClientDataSet1FilterRecord.

L'inconvénient d'un filtre que ce soit par la propriété Filter ou par OnFilterRecord est que toute la table doit-être chargée puis parcourue par le programme

[ferhat80]

Code :

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

1
2
3
4
5
6
7
DM.ADQ_FiltrDateEmpr.Close();
DM.ADQ_FiltrDateEmpr.SQL.Text := 'Select * From Emprunte where Date_Liv_Prete Between :debut AND :fin';
DM.ADQ_FiltrDateEmpr.Parameters.ParamByName('debut').DataType := ftDate;
DM.ADQ_FiltrDateEmpr.Parameters.ParamByName('debut').Value := DateTimePicker1.Date;
DM.ADQ_FiltrDateEmpr.Parameters.ParamByName('fin').DataType := ftDate;
DM.ADQ_FiltrDateEmpr.Parameters.ParamByName('fin').Value := DateTimePicker2.Date;
DM.ADQ_FiltrDateEmpr.Open();

[oneDev]

L'inconvénient d'un filtre que ce soit par la propriété Filter ou par OnFilterRecord est que toute la table doit-être chargée puis parcourue par le programme

Effectivement, c'est un choix. Dans mon cas c'est préférable, cela évite de faire beaucoup de requête à la base à chaque changement des valeurs.