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

* Avoid errors when dataset is not active while constructing update SQL.

Browse Source 
git-svn-id: trunk@45189 -
This commit is contained in:
michael 2020-04-30 10:43:03 +00:00
parent c66ceaf0e3
commit 07e2d4e4c5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2017,7 +2017,8 @@ begin
if (sql_where<>'') then
sql_where:=sql_where + ' and ';
sql_where:= sql_where + '(' + FieldNameQuoteChars[0] + F.FieldName + FieldNameQuoteChars[1];
if F.OldValue = NULL then
// primary key normally cannot be null
if Assigned(F.Dataset) and F.Dataset.Active and (F.OldValue = NULL) then
sql_where := sql_where + ' is null '
else
sql_where := sql_where +'= :"' + 'OLD_' + F.FieldName + '"';