[Кревед]

Как реализовать подключение?

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

type   TForm1 = class(TForm)     DataSource1: TDataSource;     DBGrid1: TDBGrid;     Database1: TDatabase;     Query1: TQuery; ...   Database1.DriverName:='ORACLE';   Database1.Params.Add('SERVER NAME=orasrv');   Database1.Params.Add('USER NAME=scott');   Database1.Params.Add('PASSWORD=tiger');   Database1.LoginPrompt:=False;   Database1.DatabaseName:='my';   Query1.DatabaseName:='my';   Query1.SQL.Text:='select * from user_tables';   Query1.Open;