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

Материал из DRKB

Определение типа базы данных[править | править код]

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;


Сборник Kuliba

Author: OAmiry/Borland
Source: Взято из Советов по Delphi от Валентина Озерова
ID: 02543