opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 10:02:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

Catch date/time conversion errors in GetDateTimeValue, which happen e.g. when passing an empty date.

Browse Source
This commit is contained in:
Ansgar Becker
2014-07-26 14:14:38 +00:00
parent 956ea205eb
commit 07bdeea79f
1 changed files with 15 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
source/dbconnection.pas
View File

@ -3597,16 +3597,21 @@ begin
// Return date/time string value as expected by server
case Parameters.NetTypeGroup of
ngMSSQL: begin
dt := StrToDateTime(Input);
case Datatype of
dtDate:
Result := SysUtils.FormatDateTime('dd"/"mm"/"yyyy', dt);
dtTime:
Result := SysUtils.FormatDateTime('hh":"nn":"ss', dt);
dtYear:
Result := SysUtils.FormatDateTime('yyyy', dt);
dtDatetime:
Result := SysUtils.FormatDateTime('dd"/"mm"/"yyyy hh":"nn":"ss', dt);
try
dt := StrToDateTime(Input);
case Datatype of
dtDate:
Result := SysUtils.FormatDateTime('dd"/"mm"/"yyyy', dt);
dtTime:
Result := SysUtils.FormatDateTime('hh":"nn":"ss', dt);
dtYear:
Result := SysUtils.FormatDateTime('yyyy', dt);
dtDatetime:
Result := SysUtils.FormatDateTime('dd"/"mm"/"yyyy hh":"nn":"ss', dt);
end;
except
on E:EConvertError do
Result := Input;
end;
end;
else