Discussion :

[tarmo57]

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 :

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

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

[archonte]

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

Code :

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
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;

[SergioMaster]

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 :

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

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