Discussion :

[eloidi2]

Salut et bonjour à tous.

Voila, j'ai un problème concernant les dates dans une requette SelectSQL d'un IBDataset.
Je précise : je veux que mon IBDataset affiche les champs de type "Date" dont la date est inférieur à une date données. Voici le code utilisé :

Code delphi :

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
var
  s_date :TDateTime;
 
begin
 
  s := 'Select * From "CLIENTS"';
  s := s + ' Where DATE_VISITE <= ' + DateToStr(s_date);
  s := s + ' Order By DATE_VISITE';
 
  with DataClients.ibdClients do
  begin
    Close;
    SelectSQL.Clear;
    SelectSQL.Add(s);
    Open;
  end;
 
end;

ibdClients est le nom de mon IBDataset.

et un grand merci à vous !

[Cl@udius]

Salut

Pour éviter ce genre de soucis (format de date), il est préférable d'utiliser une requête paramétrée.

Code delphi :

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
var
  s_date :TDateTime;
 
begin
 
  s := 'Select * From "CLIENTS"';
  s := s + ' Where DATE_VISITE <= :DateVisite';;
  s := s + ' Order By DATE_VISITE';
 
  with DataClients.ibdClients do
  begin
    Close;
    SelectSQL.Clear;
    SelectSQL.Add(s);
    ParamByName('DateVisite').AsDate := s_date;
    Open;
  end;
end;

@+ Claudius

[kabakas]

Salut

c'est trés gentil de votre part, Cl@udius. et ça à marché !

mais, j'ai une petite remarque : est-ce sont obligatoires les deux points-virgule à la fin de cette ligne ?

Code delphi :

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

1
2
 
  s := s + ' Where DATE_VISITE <= :DateVisite';;

=============================================
kabakas

[Cl@udius]

est-ce sont obligatoires les deux points-virgule à la fin de cette ligne ?

Non pas du tout ! Un seul est suffisant bien entendu.