Devart Forums

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
var
  sess: TOraSession;
  qry: TSmartQuery;
  nt: TOraNestedTable;
begin
  sess := TOraSession.Create(nil);
  qry := TSmartQuery.Create(nil);
  nt := TOraNestedTable.Create(nil);

  sess.username := 'my_user_name';
  sess.password := 'secret';
  sess.server := 'my_19c_database';
  sess.loginprompt := false;
  sess.connected := true;
  qry.Session := sess;
  qry.ObjectView := true;
  qry.sql.add('SELECT COLLECT(tab) as ctab');
  qry.sql.add('FROM  (SELECT NEW sys.ora_mining_number_nt(1) tab');
  qry.sql.add('       FROM dual)');
  qry.open;
  if qry.FieldByName('CTAB').DataType = ftDataSet then
  begin
    nt.DataSetField := TDataSetField(qry.FieldByName('CTAB'));
    nt.open;
  end;

end;