ViewVC Help

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

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

Comparing ibx/trunk/runtime/IBQuery.pas (file contents):
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC

#	Line 56 | Line 56 | type
56		FPrepared: Boolean;
57		FParams: TParams;
58		FText: string;
59	–	FRowsAffected: Integer;
60	–	FCheckRowsAffected: Boolean;
59		FSQLUpdating: boolean;
60		FInQueryChanged: boolean;
61		function GetRowsAffected: Integer;
#	Line 152 | Line 150 | begin
150		TStringList(SQL).OnChange := QueryChanged;
151		FParams := TParams.Create(Self);
152		ParamCheck := True;
155	–	FRowsAffected := -1;
153		end;
154
155		destructor TIBQuery.Destroy;
#	Line 297 | Line 294 | begin
294		begin
295		if Value then
296		begin
300	–	FRowsAffected := -1;
301	–	FCheckRowsAffected := True;
297		if Length(Text) > 1 then PrepareSQL
298		else IBError(ibxeEmptySQLStatement, [nil]);
299		end
300		else
301		begin
307	–	if FCheckRowsAffected then
308	–	FRowsAffected := RowsAffected;
302		InternalUnPrepare;
303		FParams.Clear;
304		end;
#	Line 378 | Line 371 | var
371		begin
372		CheckInActive;
373		if SQL.Count <= 0 then
381	–	begin
382	–	FCheckRowsAffected := False;
374		IBError(ibxeEmptySQLStatement, [nil]);
375	<	end;
375	>
376		ActivateConnection();
377		DidActivate := ActivateTransaction;
378		try
#	Line 392 | Line 383 | begin
383		finally
384		if DidActivate then
385		DeactivateTransaction;
395	–	FCheckRowsAffected := True;
386		end;
387		end;
388

Diff Legend

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