Создание источника данных ODBC

Для выполнения примера предполагается наличие базы данных MS ACCESS с наименованием "db1.mdb". В данной БД имеется таблица с наименованием "Instruction".

Sub Main;

Var

MB: IMetabase;

CrInfo: IMetabaseObjectCreateInfo;

ODBC: IOdbcDataset;

Begin

MB := MetabaseClass.Active;

CrInfo := MB.CreateCreateInfo;

CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_ODBC_DS;

CrInfo.Id := "NewODBCDataset";

CrInfo.Name := "Новый источник данных ODBC";

CrInfo.Parent := MB.Root;

ODBC := MB.CreateObject(CrInfo).Edit As IOdbcDataset;

ODBC.Catalog := "C:\db1.mdb";

ODBC.DataSource := "База данных MS Access";

ODBC.DataSourceName := "Instruction";

(ODBC As IMetabaseObject).Save;

End Sub Main;

После выполнения примера в корневом каталоге репозитория будет создан новый источник данных ODBC. Данный источник будет настроен на доступ к данным таблицы "Instruction", содержащейся в базе данных MS ACCESS.

См.также:

Примеры