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 33 by tony, Sat Jul 18 12:30:52 2015 UTC vs.
Revision 118 by tony, Mon Jan 22 13:58:14 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(UpdateKind,Current,Buff);
113		end;
114		end;
115
#	Line 183 | Line 185 | procedure TIBUpdateSQL.Apply(UpdateKind:
185		begin
186		if not Assigned(FDataSet) then Exit;
187		InternalPrepare(UpdateKind);
188	<	InternalSetParams(Query[UpdateKind],buff);
189	<	ExecSQL(UpdateKind);
188	>	InternalSetParams(Query[UpdateKind].Params,buff);
189	>	ExecSQL(UpdateKind,buff);
190		end;
191
192	<	end.
192	>	end.

Diff Legend

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