salam

je suis entrain de réaliser une application de statistique donc beaucoup de requête sql ... mon problème est avec le champ date j'utilise access et adoquery pour la connexion et mon champ et de type de donné Date/Heure format Date abrégé .
avant de poster j'ai chercher partout que ce soit sur le site ou ailleurs j'ai trouver quelque solution mais ça génère un message d'erreur a chaque fois :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
with rebut do
  begin
    sql.Clear  ;
    sql.Add('SELECT tempsdefaults.Date1');
    sql.Add('FROM tempsdefaults');
    sql.Add('WHERE (tempsdefaults.Date1)='+QuotedStr(date1.Caption));
    Open;
    qt_NC.Caption := IntToStr(RecordCount);
  end;
c'est logique que ça marche pas puisque je cherche dans un champ date avec un string j'ai essayer ça aussi :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
with rebut do
  begin
    sql.Clear  ;
    sql.Add('SELECT tempsdefaults.Date1');
    sql.Add('FROM tempsdefaults');
    sql.Add('WHERE (tempsdefaults.Date1)=:date');
    Parameters.CreateParameter('date', ftstring, pdInput, 0,  StrToDate(date1.Caption));
    Open;
    qt_NC.Caption := IntToStr(RecordCount);
  end;

et voila le message d’erreur : objet paramétrer définie de manière incorrect

j'ai essayer aussi :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
with rebut do
  begin
    sql.Clear  ;
    sql.Add('SELECT tempsdefaults.Date1');
    sql.Add('FROM tempsdefaults');
    sql.Add('WHERE (tempsdefaults.Date1)=:date');
    Parameters.CreateParameter('date', ftDate, pdInput, 0,  (now));
    Open;
    qt_NC.Caption := IntToStr(RecordCount);
  end;
message d'erreur :

type de donner incompatible dans l’expression des critère

voila si quelqu'un a une solution je suis preneur et merci d'avance.