Devart Forums

Code: Select all

CREATE TABLE ODACRECORDCOUNTTEST (
  ID   NUMBER(9,0)
);

ALTER TABLE ODACRECORDCOUNTTEST ADD CONSTRAINT ODACRECORDCOUNTTESTPK PRIMARY KEY (ID);

Code: Select all

program ODACFilteredDSRecordCount;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  DBAccess,
  Ora,
  OraSmart;

{
CREATE TABLE ODACRECORDCOUNTTEST (
  ID   NUMBER(9,0)
);

ALTER TABLE ODACRECORDCOUNTTEST ADD CONSTRAINT ODACRECORDCOUNTTESTPK PRIMARY KEY (ID);
}

const
  VerboseLevel: Integer = 0;//default = 0 (value does not matter for test result)
  UseWhileNotEof: Boolean = False;//default = False (value does not matter for test result)
  OpenBeforeApplyFilter: Boolean = False;//default = False
  QueryRecCount = True;//default = True
  cServer = 'YourServer';
  cUsername = 'YourUser';
  cPassword = 'YourPassword';

type
  TFetchHandler = class(TObject)
  private
    FFetchCount: Integer;
  public
    procedure OraQueryAfterFetch(DataSet: TCustomDADataSet);
    property FetchCount: Integer read FFetchCount;
  end;

function TestQueryRecCountWithFilterAppliedBeforeOpen: Boolean;
var
  se: TOraSession;
  qr: TSmartQuery;
  I, RecordCountAfterOpen: Integer;
  FH: TFetchHandler;
begin
  FH := TFetchHandler.Create;
  se := TOraSession.Create(nil);
  qr := TSmartQuery.Create(nil);
  try
    se.Server := cServer;
    se.Username := cUserName;
    se.Password := cPassword;
    with qr do
    begin
      Options.QueryRecCount := QueryRecCount;
      AfterFetch := FH.OraQueryAfterFetch;
      Session := se;
      SQL.Add('DELETE FROM ODACRECORDCOUNTTEST');
      ExecSQL;
      SQL.Clear;
      SQL.Add('SELECT * FROM ODACRECORDCOUNTTEST ORDER BY ID');
      Keyfields := 'ID';
      Open;
      for I := 1 to 1000 do
      begin
        Insert;
        Fields[0].AsInteger := I;
        Post;
      end;
      Close;
      if OpenBeforeApplyFilter then
        Open;
      Filter := 'ID > 70 AND ID = 1 then
        WriteLn(Format('After Open (RecordCount = %d)', [RecordCount]));
      if UseWhileNotEof then
      begin
        First;
        while not Eof do
        begin
          if VerboseLevel >= 2 then
            WriteLn(Format('Next (RecordCount = %d)', [RecordCount]));
          Next;
        end;
        if VerboseLevel >= 1 then
          WriteLn(Format('After While not Eof (RecordCount = %d)', [RecordCount]));
      end
      else
      begin
        Last;
        if VerboseLevel >= 1 then
          WriteLn(Format('After Last (RecordCount = %d)', [RecordCount]));
        Close;
      end;
    end;
  finally
    qr.Free;
    se.Free;
    FH.Free;
  end;
  Result := (RecordCountAfterOpen >= 0) and (RecordCountAfterOpen = 2 then
    WriteLn(Format('  AfterFetch (FetchCount = %d)', [FFetchCount]));
end;

begin
  try
    if TestQueryRecCountWithFilterAppliedBeforeOpen then
      WriteLn('PASS')
    else
      WriteLn('FAIL');
  except
    on E: Exception do
    begin
      WriteLn('FAIL - Exception Error');
      WriteLn('  E.ClassName = ', E.ClassName);
      WriteLn('    E.Message = ', E.Message);
    end;
  end;
  ReadLn;
end.