ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/runtime/IBUpdateSQL.pas

Comparing ibx/trunk/runtime/IBUpdateSQL.pas (file contents):
Revision 101 by tony, Thu Jan 18 14:37:18 2018 UTC vs.
Revision 143 by tony, Fri Feb 23 12:11:21 2018 UTC

#	Line 27 | Line 27
27		{    IBX For Lazarus (Firebird Express)                                  }
28		{    Contributor: Tony Whyman, MWA Software http://www.mwasoftware.co.uk }
29		{    Portions created by MWA Software are copyright McCallum Whyman      }
30	<	{    Associates Ltd 2011                                                 }
30	>	{    Associates Ltd 2011 - 2018                                               }
31		{                                                                        }
32		{************************************************************************}
33
#	Line 109 | Line 109 | begin
109		//    if RowsAffected <> 1 then IBError(ibxeUpdateFailed, [nil]);
110		// Commented out in release 1.2
111		if FieldCount > 0 then  {Has RETURNING Clause}
112	<	UpdateRecordFromQuery(Current,Buff);
112	>	UpdateRecordFromQuery(UpdateKind,Current,Buff);
113		end;
114		end;
115

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines