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

Written on 26 Октября 2007. Posted in [Delphi] Базы данных

{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 sте свойсто TDatabase

IsSQLBased }

end;