Discussion forums for open issues and questions concerning database tools, data access components and developer tools from Devart
https://forums.devart.com/
Code: Select all
procedure TForm1.Button1Click(Sender: TObject);
var
OraQuery_1, OraQuery_2 : TOraQuery;
begin
OraQuery_1 := TOraQuery.Create(nil);
OraQuery_2 := TOraQuery.Create(nil);
//This steps are not necessary if you omit them then TOraQuery links
//to the first available TOraSession object
OraQuery_1.Session := OraSession1;
OraQuery_2.Session := OraSession1;
OraQuery_1.SQL.Clear;
OraQuery_1.SQL.Text := 'Select * from emp';
OraQuery_2.SQL.Clear;
OraQuery_2.SQL.Text := 'Select * from dept1';
OraQuery_1.Open;
OraQuery_2.Open;
//Do something with data
OraQuery_1.Close;
OraQuery_2.Close;
OraQuery_1.Free;
OraQuery_2.Free;
end;