paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 16:29:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: sqldb: use ISO-8601 format for DateTime literals, which is not locale dependant and supported by PostgreSQL,MSSQL,MySQL,Sqlite. Bug #32979

Browse Source 
git-svn-id: trunk@37947 -
This commit is contained in:
lacak 2018-01-12 14:08:33 +00:00
parent 52aa40c3b0
commit a4354e3801
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1703,7 +1703,7 @@ begin
else case Field.DataType of
ftString : Result := QuotedStr(Field.AsString);
ftDate : Result := '''' + FormatDateTime('yyyy-mm-dd',Field.AsDateTime,FSqlFormatSettings) + '''';
ftDateTime : Result := '''' + FormatDateTime('yyyy-mm-dd hh:nn:ss.zzz',Field.AsDateTime,FSqlFormatSettings) + '''';
ftDateTime : Result := QuotedStr(FormatDateTime('yyyy-mm-dd"T"hh:nn:ss.zzz',Field.AsDateTime,FSqlFormatSettings));
ftTime : Result := QuotedStr(TimeIntervalToString(Field.AsDateTime));
else
Result := Field.AsString;
@ -1720,7 +1720,7 @@ begin
ftString : Result := QuotedStr(GetAsString(Param));
ftDate : Result := '''' + FormatDateTime('yyyy-mm-dd',Param.AsDateTime,FSQLFormatSettings) + '''';
ftTime : Result := QuotedStr(TimeIntervalToString(Param.AsDateTime));
ftDateTime : Result := '''' + FormatDateTime('yyyy-mm-dd hh:nn:ss.zzz', Param.AsDateTime, FSQLFormatSettings) + '''';
ftDateTime : Result := QuotedStr(FormatDateTime('yyyy-mm-dd"T"hh:nn:ss.zzz', Param.AsDateTime, FSQLFormatSettings));
ftCurrency,
ftBcd : Result := CurrToStr(Param.AsCurrency, FSQLFormatSettings);
ftFloat : Result := FloatToStr(Param.AsFloat, FSQLFormatSettings);