enrégistrer un date dans une base de données Mysql 5

Version imprimable

Bonjour Messieurs,
je veuex savoir comment enrégistrer un champs de Type TDate dans une base Mysql5.
Quand je le fais par mon Delphi7
Code:

1 2 3 4 5 6 7 8 9 Vsql:='insert into Composer_Budget(IdClient,IdBudget,Resume_Demande,Date_OR) values '+ '("'+IntToStr(self.IdClient)+'","'+IntToStr(self.IdBudget)+'","'+self.Resume_Demande+'","'+CurrToStr(self.BackLog)+'" ,"'+self.Date_OR+'" )'; DM.ZQuery1.Close; DM.ZQuery1.SQL.Text:= Vsql; try DM.ZQuery1.ExecSQL; except end;
J'obtiens une error d'incompatibilité sur la date.
J'ai besoin d'aide.
Merci pour votre compréhension!

Utilise une requêtre Paramêtre ou alors utilise le format YYYY-MM-DD

j'ai développe ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
const
  MY_SQL_DECIMAL_SEPARATOR = '.';
  MY_SQL_DATE_FORMAT = 'yyyy-mm-dd';
  MY_SQL_TIME_FORMAT = 'hh:nn:ss';
 
class function TepcDBEntiteToolHelp.DateToStringSQL(Value: TDateTime): string;
begin
   Result := FormatDateTime(MY_SQL_DATE_FORMAT, Value); // Format DB YYYY-MM-DD
end;
 
class function TepcDBEntiteToolHelp.TimeToStringSQL(Value: TDateTime): string;
begin
   Result := FormatDateTime(MY_SQL_TIME_FORMAT, Value); // Format DB '00:00:00'
end;
 
class function TepcDBEntiteToolHelp.DateTimeToStringSQL(Value: TDateTime): string;
begin
   if Frac(Value) = 0 then
     Result := DateToStringSQL(Value)
   else
     if Int(Value) = 0 then
       Result := TimeToStringSQL(Value)
     else
       Result := DateToStringSQL(Value) + ' ' + TimeToStringSQL(Value);
end;

03/11/2009, 18h08
Klemsy78

Ok merci!
Cela resoud mon problème.
Merci!