Problème de requète SQL dans Delphi

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

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

Code:

---

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.

Bonjour,

L'erreur vient d'ici:

Code:

---

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

---

Il faudrait mettre plutot:

Code:

---

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

---

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:

---

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

---

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

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:

---

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;

---

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 :

Citation:

---

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