Определение типа базы данных |
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