"Могу ли я при помощи объекта Tdatabase узнать с каким типом
базы данных он связан?"
|
|
{uses
должен включать в себя db, dbitypes, dbiprocs }
procedure
TForm1.FormCreate(Sender: TObject); var
rDB: DBDesc ; begin
{ Первый аргумент DbiGetDatabaseDesc - имя
псевдонима базы данных
типа PChar }
Check(DbiGetDatabaseDesc('IBLOCAL',
@rDB)) ;
{ член szDbType структуры DBDesc содержит
информацию о типе
базы данных и имеет тип PChar }
ShowMessage( 'Database имеет тип: ' +
StrPas(rDB.szDbType) ) ;
{ Совет: Если вам просто необходимо узнать -
SQL server это или нет, используйте свойсто TDatabase
IsSQLBased } end;
|
OAmiry/Borland |