paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 17:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add millisecs to datetime parameters, Mantis #20616. Patch by Lacak2.

Browse Source 
git-svn-id: trunk@20405 -
This commit is contained in:
marco 2012-02-22 21:01:11 +00:00
parent 54066744ac
commit f979c2e67f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/src/sqldb/sqldb.pp
View File

@ -509,7 +509,7 @@ const DefaultSQLFormatSettings : TFormatSettings = (
TimeAMString: '';
TimePMString: '';
ShortTimeFormat: 'hh:nn:ss';
LongTimeFormat: 'hh:nn:ss';
LongTimeFormat: 'hh:nn:ss.zzz';
ShortMonthNames: ('','','','','','','','','','','','');
LongMonthNames: ('','','','','','','','','','','','');
ShortDayNames: ('','','','','','','');
@ -703,9 +703,9 @@ function TSQLConnection.GetAsSQLText(Field : TField) : string;
begin
if (not assigned(field)) or field.IsNull then Result := 'Null'
else case field.DataType of
ftString : Result := '''' + field.asstring + '''';
ftString : Result := QuotedStr(Field.AsString);
ftDate : Result := '''' + FormatDateTime('yyyy-mm-dd',Field.AsDateTime,FSqlFormatSettings) + '''';
ftDateTime : Result := '''' + FormatDateTime('yyyy-mm-dd hh:nn:ss',Field.AsDateTime,FSqlFormatSettings) + '''';
ftDateTime : Result := '''' + FormatDateTime('yyyy-mm-dd hh:nn:ss.zzz',Field.AsDateTime,FSqlFormatSettings) + '''';
ftTime : Result := QuotedStr(TimeIntervalToString(Field.AsDateTime));
else
Result := field.asstring;
@ -722,7 +722,7 @@ begin
ftString : Result := QuotedStr(Param.AsString);
ftDate : Result := '''' + FormatDateTime('yyyy-mm-dd',Param.AsDateTime,FSQLFormatSettings) + '''';
ftTime : Result := QuotedStr(TimeIntervalToString(Param.AsDateTime));
ftDateTime : Result := '''' + FormatDateTime('yyyy-mm-dd hh:nn:ss', Param.AsDateTime, FSQLFormatSettings) + '''';
ftDateTime : Result := '''' + FormatDateTime('yyyy-mm-dd hh:nn:ss.zzz', Param.AsDateTime, FSQLFormatSettings) + '''';
ftCurrency,
ftBcd : Result := CurrToStr(Param.AsCurrency, FSQLFormatSettings);
ftFloat : Result := FloatToStr(Param.AsFloat, FSQLFormatSettings);