ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/IBQuery.pas
(Generate patch)

Comparing ibx/trunk/runtime/IBQuery.pas (file contents):
Revision 79 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