Определение типа базы данных

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: OAmiry (Borland)

«Могу ли я при помощи объекта 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;

{/codecitation}

Добавить комментарий