Discussion :

[Klemsy78]

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 :

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

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!

[ShaiLeTroll]

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

j'ai développe ceci

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

[Klemsy78]

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