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

Comparing ibx/trunk/runtime/IBSQL.pas (file contents):
Revision 31 by tony, Tue Jul 14 15:31:25 2015 UTC vs.
Revision 33 by tony, Sat Jul 18 12:30:52 2015 UTC

# Line 2311 | Line 2311 | begin
2311        FBOF := True;
2312        FEOF := False;
2313        FRecordCount := 0;
2314 +      if not (csDesigning in ComponentState) then
2315 +        MonitorHook.SQLExecute(Self);
2316        if FGoToFirstRecordOnExecute then
2317          Next;
2318      end;
# Line 2321 | Line 2323 | begin
2323                              Database.SQLDialect,
2324                              FSQLParams.AsXSQLDA,
2325                              FSQLRecord.AsXSQLDA), True);
2326 +      if not (csDesigning in ComponentState) then
2327 +        MonitorHook.SQLExecute(Self);
2328   (*      if (fetch_res <> 0) and (fetch_res <> isc_deadlock) then
2329        begin
2330           { Sometimes a prepared stored procedure appears to get
# Line 2344 | Line 2348 | begin
2348                             @FHandle,
2349                             Database.SQLDialect,
2350                             FSQLParams.AsXSQLDA), True);
2351 +      if not (csDesigning in ComponentState) then
2352 +        MonitorHook.SQLExecute(Self);
2353    end;
2348  if not (csDesigning in ComponentState) then
2349    MonitorHook.SQLExecute(Self);
2354    FBase.DoAfterExecQuery(self);
2355   //  writeln('Rows Affected = ',RowsAffected);
2356   end;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines