IMetabaseLink.UseMetabaseCredentials

Синтаксис

UseMetabaseCredentials: Boolean;

UseMetabaseCredentials: boolean;

Описание

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

Комментарии

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

Комментарии

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

Пример

Для выполнения примера предполагается наличие сервера «%METABASE_SERVER%» и схемы «TestShema».

Добавьте ссылку на системную сборку Metabase.

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;
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    Link: IMetabaseLink;
    MBClass: MetabaseClass = New MetabaseClassClass();
Begin
    MB := Params.Metabase;
    CrInfo := MB.CreateCreateInfo();
    CrInfo.ClassId := MetabaseObjectClass.KE_CLASS_METABASELINK As integer;
    CrInfo.Id := "Link_2";
    CrInfo.Name := "Связь с репозиторием Test1";
    CrInfo.Parent := MB.Root;
    Link := MB.CreateObject(CrInfo).Edit() As IMetabaseLink;
    Link.Authentication := AuthenticationMode.amPassword;
    Link.DriverId := "ORCL8";
    Link.SecurityPackage := "STANDARDSECURITYPACKAGE";
    Link.LogonData.ParamValue["SERVER"] := "%METABASE_SERVER%";
    Link.LogonData.ParamValue["SCHEME"] := "TestShema";
    System.Diagnostics.Debug.WriteLine(Link.LoginPrompt);
    Link.LoginPrompt := False;
    Link.UseMetabaseCredentials := True;
    (Link As IMetabaseObject).Save();
End Sub;

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

См. также:

IMetabaseLink