probleme avec un Datimepicker

Version imprimable

Salut tous j'ai un petit problème avec un Datimepicker format heures( Kind =dtkTime)
j'enregistre dans une table paradox un champs T
si j'enregistre avec un Ttable ok pas de probleme, mais avec un query et Update j'ai un souci.
dans le Datimepicker s'affiche bien dans ma table aussi.Mais dans un DBtext il affiche une date type 20/02/41/417
Pourquoi ??
Voici mon code
Code:

1 2 3 4 5 6 7 8 with DataModule2.Query9 do begin SQL.Clear; SQL.Add('Update base_de_donnee.db set champs1 = '+ QuotedStr(champs1 .Text) +',champs_heures = '+ QuotedStr(FormatDateTime('hh:mm:ss', champs_heures.DateTime)) +' where Idtable ='+ QuotedStr(Idtable.text)+''); Prepare; ExecSQL;
il y a autre chose à faire ??
Merci de votre aide

Essaie d'utiliser les paramètres pour éviter tout risque dans la conversion des données :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
with DataModule2.Query9 do
begin
  SQL.Clear;
  SQL.Text :='UPDATE base_de_donnee.db SET champs1 = :Pchamps1, champs_heures = :Pheures WHERE Idtable = :PIdTable';
 
  ParamCheck := True;
  Parameters.ParamByName('Pchamps1').DataType := ftString;
  Parameters.ParamByName('Pchamps1').Value    := Champs1.Text;
  Parameters.ParamByName('Pheures').DataType  := ftTime;
  Parameters.ParamByName('Pheures').Value     := YourDateTimePicker.DateTime;
  Parameters.ParamByName('PIdTable').DataType := ftString;
  Parameters.ParamByName('PIdTable').Value    := IdTable.Text;
 
  Prepare;
  ExecSQL;
end;

Tout a fait d'accord avec Archonte , l'utilisation des paramètres réglera le problème maintenant , le datatype est peut être de trop ;)
vieux fainéant que je suis je cast directement le paramètre
Code:

1 2 3 4 Parameters.ParamByName('Pchamps1').asString := Champs1.Text; Parameters.ParamByName('Pheures').asDateTime :=yourDateTimePicker.Time; Parameters.ParamByName('PIdTable').asString := IdTable.Text;