Каким драйвером пользуется TDATABASE?
Вы можете использовать вызов IDAPI dbiGetDatabaseDesc. Вот быстрая справка (не забудьте добавить DB в список используемых модулей):
|
var pDatabase: DBDrsc: begin { pAlias - PChar, содержащий имя псевдонима} dbiGetDatabaseDesc ( pAlias, @pDatabase ) ; |
Для получения дополнительной информации обратитесь к описанию свойства pDatabase.szDbType. [001384]
