Советы по Delphi

       

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


"Могу ли я при помощи объекта 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 это или нет, используйте свойсто TDatabaseIsSQLBased } end;

OAmiry/Borland [000600]



Содержание раздела