IDatabase.Credentials

Синтаксис

Credentials: ICredentials;

Описание

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

Пример

Sub Main;

Var

MB: IMetabase;

CrInfo: IMetabaseObjectCreateInfo;

MObj: IMetabaseObject;

DB: IDatabase;

Begin

MB := MetabaseClass.Active;

CrInfo := MB.CreateCreateInfo;

CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_DATABASE;

CrInfo.Id := "NewBD";

CrInfo.Name := "Новая база данных";

CrInfo.Parent := MB.Root;

MObj := MB.CreateObject(CrInfo).Edit;

DB := MObj As IDatabase;

DB.Authentication := AuthenticationMode.Password;

DB.DriverId := "ORCL";

DB.LogonData.ParamValue("SERVER") := "Test";

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

DB.LoginPrompt := False;

DB.Credentials.SlotValue("USERNAME") := "User1";

DB.Credentials.SlotValue("PASSWORD") := "password";

MObj.Save;

End Sub Main;

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

См. также:

IDatabase