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