Discussion :

[julesclaude]

Bonjour à tous,
J'utilise Delphi 2007 en version architect avec Interbase

Voici mon problème :
La requète SQL suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
With F_Accueil.IBDataSet_Reservations do
     begin
      Close;
      SelectSQL.Clear;
      SelectSQL.Add('SELECT * FROM '+ xnom_table_reservation_interbase);
      SelectSQL.Add(' WHERE NDOSSIER LIKE' + quotedStr(xrecherche));
      SelectSQL.Add(' AND ' + '(ACTUALSTART>= '+ '''' +datetimetostr(date + ''')');
      active := true;
     end;

me retourne à l'exécution le message d'erreur :
Conversion error form string ''24/08/2011''

Pour info ce qui m'intéresse c'est de récupérer tous les enregistrements ayant pour numero de dossier xrecherche et pour actualstart les date supérieur ou égal à aujourd'hui.

Merci d'avance
Claude Guez.

[David55]

Bonjour,

L'erreur vient d'ici:

Code :

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

1
2
 
   SelectSQL.Add(' AND ' + '(ACTUALSTART>= '+ '''' +datetimetostr(date + ''')');

Il faudrait mettre plutot:

Code :

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

1
2
 
   SelectSQL.Add(' AND ' + '(ACTUALSTART>= '+ '''' +datetimetostr(date)  + ''')');

[dehorter olivier]

Sous INTERBASE ce doit être la même chose que sous FIREBIRD, la date n'est pas (par défaut) sous ce format "''24/08/2011'' mais "2011-08-24".

Utilise le CAST :

Code :

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

SelectSQL.Add(' AND ' + '(ACTUALSTART>= CAST('+ '''' +datetimetostr(date)  + ''' AS DATE))');

attention, je me suis peut être un peu perdu dans les parenthèses

[SergioMaster]

Je confirme ce que dit Olivier pour ce qui est du format de la Date :
soit à l'anglaise sous la forme mm/dd/yyyy
soit à la française jj.mm.aaaa

cependant une remarque pour éviter ce genre de problème , il vaut mieux utiliser un paramètre

Code :

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

1
2
3
4
5
6
7
8
9
10
With F_Accueil.IBDataSet_Reservations do
     begin
      Close;
      SelectSQL.Clear;
      SelectSQL.Add('SELECT * FROM '+ xnom_table_reservation_interbase);
      SelectSQL.Add(' WHERE NDOSSIER LIKE' + quotedStr(xrecherche));
      SelectSQL.Add(' AND  ACTUALSTART>= :D');
      SelectSQL.ParamByNBame('D').asDateTime:=Date;
      active := true;
     end;

[julesclaude]

Bonjour,

Les gars vous êtes super !!! Cela marche très bien.
J'ai eu un petit faible pour la solution de SergioMaster avec une petite modif :

With F_Accueil.IBDataSet_Reservations do
begin
Close;
SelectSQL.Clear;
SelectSQL.Add('SELECT * FROM '+ xnom_table_reservation_interbase);
SelectSQL.Add(' WHERE NDOSSIER LIKE' + quotedStr(xrecherche));
SelectSQL.Add(' AND ACTUALSTART>= :C');
F_Accueil.IBDataSet_Reservations.ParamByName('C').AsDateTime := Date;
active := true;
end;

Ce forum est vraiment un outil formidable.

Merci encore à vous trois.
Claude Guez