Code: Select all
const
tablename = 'LINK';
var
Con: TUniConnection;
qry: TUniQuery;
tbl: TUniTable;
begin
Con:= TUniConnection.Create(nil);
Con.ProviderName := 'Oracle';
Con.SpecificOptions.Add('Direct=True');
Con.Server := 'DELL-2:1521:XE';
Con.Username := 'xxxx';
Con.Password := 'xxxxxx';
Con.Database := 'XE';
Con.LoginPrompt := False;
Con.Open;
qry:= TUniQuery.Create(nil);
qry.Connection:= con;
qry.SQL.Add('select * from sys.all_tables where table_name='+chr(39)+tablename+chr(39));
qry.open;
if qry.RecordCount=0 then
raise exception.Create('Table '+tablename+' not found in database');
qry.close;
qry.Free;
tbl:= TUniTable.Create(nil);
tbl.TableName:= tablename;
tbl.Connection := con;
tbl.Open;
Any idea?