Советы по 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]
