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

Previous  Top  Next

    
 

 

 

Code:

{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

©Drkb::02543

Взято из Советов по Delphi от Валентина Озерова

Сборник Kuliba