Add: IMetabaseDefinition;
Метод Add осуществляет добавление нового описания репозитория.
Для работы с описанием репозитория используйте свойства и методы интерфейса IMetabaseDefinition.
Добавьте ссылки на системные сборки: Metabase.
Sub UserProc;
Var
Man: IMetabaseManager;
Defs: IMetabaseDefinitions;
Def: IMetabaseDefinition;
Begin
Man := MetabaseManagerFactory.Active;
Defs := Man.Definitions;
Def := Defs.Add;
Def.Id := "TestDefinition";
Def.Name := "TestDefinition";
Def.Authentication := AuthenticationMode.Password;
Def.DriverId := "ORCL8";
Def.SecurityPackage := "STANDARDSECURITYPACKAGE";
Def.LogonData.ParamValue("SERVER") := "Test";
Def.LogonData.ParamValue("SCHEME") := "TestShema";
Def.Scope := MetabaseDefinitionScope.LocalMachine;
Def.Save;
End Sub UserProc;
После выполнения примера будет создано новое описание репозитория. Данные репозитория будут храниться на сервере «Test» в схеме «TestShema». При подключении будет использоваться парольная аутентификация, тип СУБД, установленной на сервере - Oracle 9.x или выше. Данное описание будет доступно всем пользователям операционной системы.
См. также: