Construire requête SQL paramétrée avec between et TDateTimePicker

Version imprimable

Bonjour tous le monde
je réalise une fenetre qui permet a un utilisateur de construire son requete SQL
pour ça j met deux TDateTimePicker (DTime1 et DTime2) afin de permetre a un utilisateur de réaliser une requete (date BETWEEN DTime1 AND DTime2)

voici une partie de code:
Code:

1 2 3 4 5 6 7 if (CheckBox10.Checked) then begin if add_and then data.QR3.SQL.Add('and'); data.QR3.SQL.Add(' datecreation BETWEEN '+DateToStr(DTime1.Date)+' and '+DateToStr(DTime2.Date)+''); add_and:=true; end;
mais il me donne aucun resultat malgré qu'il ya des enregistrements entre les dates indiqué

merci d'avance

Bonjour,
tu nous a pas donné les Composant que tu utilise (BDE , ADO , IBX...)?
Essaye de faire ce qui suit :

Code:

1
2
3
4
5
6
7
8
9
if (CheckBox10.Checked) then
      begin
        if add_and then  data.QR3.SQL.Add('and');
          data.QR3.SQL.Add(' datecreation BETWEEN  :jour1 and :jour2');
       Add_and.Parameters.ParamByName('jour1').Value :=  DateToStr(DTime2.Date);
       Add_and.Parameters.ParamByName('jour2').Value :=  DateToStr(DTime2.Date);
 
         add_and:=true;
      end;

Bon codage.

Je crois qu’il y a une erreur dans ton expression

Code:

1
2
data.QR3.SQL.Add(' datecreation BETWEEN '''+
          DateToStr(DTime1.Date)+''' and '''+DateToStr(DTime2.Date)+'');

tu doit metre des cotes pour les valeurs d’un enregistrement de type Date
voici une proposition :

Code:

1
2
3
4
5
6
7
if (CheckBox10.Checked) then
      begin
        if add_and then  data.QR3.SQL.Add('and');
          data.QR3.SQL.Add(' datecreation BETWEEN '''+
          DateToStr(DTime1.Date)+''' and '''+DateToStr(DTime2.Date)+'''');
         add_and:=true;
        end;

17/02/2007, 14h18
fthdz

:merci: pour vous touhami et kkhaled

pour la solution de kkhaled n est pas marché erreur " incompatible type critère..." je pense qu 'il y a un petit chose a faire.
mais la solution de touhami c tres bien marché avec biensur

Code:

data.QR3.Parameters.ParamByName('jour1').Value := DateToStr(DTime2.Date);

a la place de

Code:

Add_and.Parameters.ParamByName('jour1').Value := DateToStr(DTime2.Date);

MERCI:king:
17/02/2007, 15h11
touhami

de rien :oops: ,
mais le tag :resolu: a ne pas oublier.:D
bon developpement a tous.