Discussion :

[gegila]

Bonjour à tous ceux qui ne sont pas en vacances !

Encore un Pb quant je veux trie les données de ma table entre 2 dates

Voici mon Code:

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
procedure TForm2.DBGridDetailsFilterSelect(Sender: TObject);
Var
  DateD, DateF: TDateTime;
begin
  // dates récuprérées à partir d'un TdatePicker
  DateD := DateDebut.Date;
  DateF := DateFin.Date;
 
  try
    DataModule2.FDQueryTriDate.ParamByName('DateD').AsString := FormatDateTime('yyyy-mm-dd', DateD);
    DataModule2.FDQueryTriDate.ParamByName('DateF').AsString := FormatDateTime('yyyy-mm-dd', DateF);
    DataModule2.FDQueryTriDate.ParamByName('Choix').AsInteger := IdxCpt;
 
    DataModule2.FDQueryTriDate.SQL.Text := 'SELECT * FROM DetailsCpt WHERE IdCpt = : Choix AND  (DateEnregistre BETWEEN : DateD AND : DateF)';
    DataModule2.FDQueryTriDate.ExecSQL;
  except
    ShowMessage('Opération Impossible');
  end;
 
  ShowMessage('Opération Terminée');
end;

J'obtiens ce message d'erreur:


Quand je teste ma requête directement sur ma base cela fonctionne parfaitement. Mais dans Delphi j'obtiens ce message d'erreur
Quelqu'un aurait une solution
Par avance merci

[tourlourou]

Bonjour,
Il faut coller dans la requête le nom du paramètre aux deux-points qui lui servent de marqueur :

Code sql :

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

SELECT * FROM DetailsCpt WHERE IdCpt = :Choix AND  (DateEnregistre BETWEEN :DateD AND :DateF)

[gegila]

Merci pour ta réponse

Effectivement j'étais étourdi car je connaissais cette manip pour affecter une variable

Après correction voila ce qu'il donne comme nouveau message d'erreur

[ShaiLeTroll]

DataModule2.FDQueryTriDate.Open au lieu de DataModule2.FDQueryTriDate.ExecSQL comme le message le suggère

[gegila]

Merci pour ta réponse

OK je n'ai plus de message d'erreur, mais la sélection ne se fait pas ?

[ShaiLeTroll]

Faut l'exploiter ensuite, soit par code dans une boucle type While not EOF do Next soit visuellement dans un TDBGrid lié à un TDataSource lié à FDQueryTriDate