IMetabaseLink.UseMetabaseCredentials

Синтаксис

UseMetabaseCredentials: Boolean;

Описание

Свойство UseMetabaseCredentials определяет, будут ли для подключения к базе данных использоваться учетные данные, указанные при входе в текущий репозиторий.

Комментарии

При значении True для подключения к базе данных будут использоваться учетные данные, указанные при входе; при значении False будут использоваться данные, указанные в Credentials.

Комментарии

По умолчанию свойство имеет значение False. Данное свойство актуально для использования, если свойство LoginPrompt установлено в False.

Пример

Sub UserProc;

Var

MB: IMetabase;

CrInfo: IMetabaseObjectCreateInfo;

Link: IMetabaseLink;

Begin

MB := MetabaseClass.Active;

CrInfo := MB.CreateCreateInfo;

CrInfo.ClassId := MetabaseObjectClass.KE_CLASS_METABASELINK;

CrInfo.Id := "Link_1";

CrInfo.Name := "Связь с репозиторием Test1";

CrInfo.Parent := MB.Root;

Link := MB.CreateObject(CrInfo).Edit As IMetabaseLink;

Link.Authentication := AuthenticationMode.Password;

Link.DriverId := "ORCL8";

Link.SecurityPackage := "STANDARDSECURITYPACKAGE";

Link.LogonData.ParamValue("SERVER") := "%METABASE_SERVER%";

Link.LogonData.ParamValue("SCHEME") := "TestShema";

Debug.WriteLine(Link.LoginPrompt);

Link.LoginPrompt := False;

Link.UseMetabaseCredentials := True;

(Link As IMetabaseObject).Save;

End Sub UserProc;

После выполнения примера в корневом каталоге репозитория будет создан новый объект - Связь с репозиторием. Данный объект будет осуществляет связь с репозиторием, расположенным в схеме "TestShema" на том же сервере, что и текущий репозиторий. При использовании данного объекта будет осуществляться автоматическое подключение к схеме с учетными данными, указанными при входе в текущий репозиторий.

См. также:

IMetabaseLink