paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 20:09:27 +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: ''; TimeAMString: '';
TimePMString: ''; TimePMString: '';
ShortTimeFormat: 'hh:nn:ss'; ShortTimeFormat: 'hh:nn:ss';
LongTimeFormat: 'hh:nn:ss'; LongTimeFormat: 'hh:nn:ss.zzz';
ShortMonthNames: ('','','','','','','','','','','',''); ShortMonthNames: ('','','','','','','','','','','','');
LongMonthNames: ('','','','','','','','','','','',''); LongMonthNames: ('','','','','','','','','','','','');
ShortDayNames: ('','','','','','',''); ShortDayNames: ('','','','','','','');
@ -703,9 +703,9 @@ function TSQLConnection.GetAsSQLText(Field : TField) : string;
begin begin
if (not assigned(field)) or field.IsNull then Result := 'Null' if (not assigned(field)) or field.IsNull then Result := 'Null'
else case field.DataType of else case field.DataType of
ftString : Result := '''' + field.asstring + ''''; ftString : Result := QuotedStr(Field.AsString);
ftDate : Result := '''' + FormatDateTime('yyyy-mm-dd',Field.AsDateTime,FSqlFormatSettings) + ''''; 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)); ftTime : Result := QuotedStr(TimeIntervalToString(Field.AsDateTime));
else else
Result := field.asstring; Result := field.asstring;
@ -722,7 +722,7 @@ begin
ftString : Result := QuotedStr(Param.AsString); ftString : Result := QuotedStr(Param.AsString);
ftDate : Result := '''' + FormatDateTime('yyyy-mm-dd',Param.AsDateTime,FSQLFormatSettings) + ''''; ftDate : Result := '''' + FormatDateTime('yyyy-mm-dd',Param.AsDateTime,FSQLFormatSettings) + '''';
ftTime : Result := QuotedStr(TimeIntervalToString(Param.AsDateTime)); 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, ftCurrency,
ftBcd : Result := CurrToStr(Param.AsCurrency, FSQLFormatSettings); ftBcd : Result := CurrToStr(Param.AsCurrency, FSQLFormatSettings);
ftFloat : Result := FloatToStr(Param.AsFloat, FSQLFormatSettings); ftFloat : Result := FloatToStr(Param.AsFloat, FSQLFormatSettings);