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 100 by tony, Mon Jan 1 11:31:07 2018 UTC vs.
Revision 101 by tony, Thu Jan 18 14:37:18 2018 UTC

#	Line 58 | Line 58 | type
58		procedure SetDataSet(ADataSet: TIBCustomDataSet); override;
59		procedure SQLChanged(Sender: TObject);
60		procedure Apply(UpdateKind: TUpdateKind; buff: PChar); override;
61	<	procedure ExecSQL(UpdateKind: TUpdateKind);
61	>	procedure ExecSQL(UpdateKind: TUpdateKind; buff: PChar);
62		public
63		constructor Create(AOwner: TComponent); override;
64		destructor Destroy; override;
#	Line 100 | Line 100 | begin
100		inherited Destroy;
101		end;
102
103	<	procedure TIBUpdateSQL.ExecSQL(UpdateKind: TUpdateKind);
103	>	procedure TIBUpdateSQL.ExecSQL(UpdateKind: TUpdateKind; buff: PChar);
104		begin
105		InternalPrepare(UpdateKind);
106		with Query[UpdateKind] do
#	Line 108 | Line 108 | begin
108		ExecQuery;
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);
113		end;
114		end;
115
#	Line 184 | Line 186 | begin
186		if not Assigned(FDataSet) then Exit;
187		InternalPrepare(UpdateKind);
188		InternalSetParams(Query[UpdateKind].Params,buff);
189	<	ExecSQL(UpdateKind);
189	>	ExecSQL(UpdateKind,buff);
190		end;
191
192		end.

Diff Legend

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