Код:
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;
|
__________________
Пишу программы за еду.
__________________
|