ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/client/3.0/FB30Statement.pas
(Generate patch)

Comparing ibx/branches/udr/client/3.0/FB30Statement.pas (file contents):
Revision 384 by tony, Mon Jan 17 09:52:58 2022 UTC vs.
Revision 389 by tony, Thu Jan 20 23:33:40 2022 UTC

# Line 1749 | Line 1749 | begin
1749            IBError(ibxeEOF,[nil]);
1750          { Go to the next record... }
1751          fetchResult := FResultSet.fetchNext(StatusIntf,FSQLRecord.MessageBuffer);
1752 +        Check4DataBaseError;
1753          if fetchResult = Firebird.IStatus.RESULT_NO_DATA then
1754          begin
1755            FBOF := false;
# Line 1763 | Line 1764 | begin
1764            IBError(ibxeBOF,[nil]);
1765          { Go to the next record... }
1766          fetchResult := FResultSet.fetchPrior(StatusIntf,FSQLRecord.MessageBuffer);
1767 +        Check4DataBaseError;
1768          if fetchResult = Firebird.IStatus.RESULT_NO_DATA then
1769          begin
1770            FBOF := true;
# Line 1772 | Line 1774 | begin
1774        end;
1775  
1776      ftFirst:
1777 <      fetchResult := FResultSet.fetchFirst(StatusIntf,FSQLRecord.MessageBuffer);
1777 >      begin
1778 >        fetchResult := FResultSet.fetchFirst(StatusIntf,FSQLRecord.MessageBuffer);
1779 >        Check4DataBaseError;
1780 >      end;
1781  
1782      ftLast:
1783 <      fetchResult := FResultSet.fetchLast(StatusIntf,FSQLRecord.MessageBuffer);
1783 >      begin
1784 >        fetchResult := FResultSet.fetchLast(StatusIntf,FSQLRecord.MessageBuffer);
1785 >        Check4DataBaseError;
1786 >      end;
1787  
1788      ftAbsolute:
1789 <      fetchResult := FResultSet.fetchAbsolute(StatusIntf,PosOrOffset,FSQLRecord.MessageBuffer);
1789 >      begin
1790 >        fetchResult := FResultSet.fetchAbsolute(StatusIntf,PosOrOffset,FSQLRecord.MessageBuffer);
1791 >        Check4DataBaseError;
1792 >      end;
1793  
1794      ftRelative:
1795 <      fetchResult := FResultSet.fetchRelative(StatusIntf,PosOrOffset,FSQLRecord.MessageBuffer);
1795 >      begin
1796 >        fetchResult := FResultSet.fetchRelative(StatusIntf,PosOrOffset,FSQLRecord.MessageBuffer);
1797 >        Check4DataBaseError;
1798 >      end;
1799      end;
1800  
1787 –    Check4DataBaseError;
1801      if fetchResult <> Firebird.IStatus.RESULT_OK then
1802        exit; {result = false}
1803  

Diff Legend

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