Devart Forums

Code: Select all

program OraBlockCorrupted;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, DB, Ora;

var
  OraSession: TOraSession;
  Query: TOraQuery;

begin
  ReportMemoryLeaksOnShutdown := True;
  OraSession := TOraSession.Create(nil);
  try
    OraSession.ConnectString := '<your username>/<your password>@<SID>';
    OraSession.Connect;
    Query := TOraQuery.Create(Nil);
    try
      Query.Session := OraSession;
      Query.SQL.Clear;
      Query.SQL.Add('Select * From Emp');
      Query.Open;
    finally
      Query.Free
    end;
  finally
    OraSession.Free;
  end;
end.

Code: Select all

Query.FetchAll := True;

Code: Select all

Query.Open;