ISecurityPackage.PerformLogon

Синтаксис

PerformLogon(

AuditError: Boolean;

LogonData: ISecurityPackageLogonData;

UserCredentials: ICredentials;

[MetaKey: Integer = 0];

[ObjectKey: Integer = 0]): ISecurityConnection;

Параметры

AuditError - параметр, определяющий будут ли фиксироваться ошибки аудита в протоколе доступа. Если передавать значение True, то при возникновении ошибки, соответствующая запись будет добавляться в протокол доступа.

LogonData - параметры модуля безопасности, используемые при подключении.

UserCredentials - учетные данные пользователя, используемые при подключении.

MetaKey - параметр, зарезервированный для внутреннего использования.

ObjectKey - параметр, зарезервированный для внутреннего использования.

Описание

Метод PerformLogon создает новое соединение с сервером БД, используя указанные значения параметров.

Пример

Sub Main;

Var

Package: ISecurityPackage;

OracleSPLD: IPrimaryOracleSPLD;

Cred: IPasswordCredentials;

Connection: ISecurityConnection;

ColCur: IDalColumns;

Field: IDalCursorField;

Begin

Package := New StandardSecurityPackage.Create;

OracleSPLD := Package.CreateLogonData("ORCL") As IPrimaryOracleSPLD;

OracleSPLD.Scheme := "Test_Schema_ORCL";

OracleSPLD.Server := "Test_ORCL";

Cred := Package.CreateCredentials(AuthenticationMode.Password) As IPasswordCredentials;

Cred.UserName := "Test_Schema_ORCL";

Cred.Password := "Test_Schema_ORCL";

Connection := Package.PerformLogon(True, OracleSPLD, Cred);

ColCur := Connection.Columns("Table_1");

While Not ColCur.Eof Do

For Each Field In ColCur.Fields Do

Debug.WriteLine(Field.Name + " " + Field.Value);

End For;

Debug.WriteLine("");

ColCur.Next;

End While;

ColCur.Close;

End Sub Main;

После выполнения примера будет осуществлено новое подключение к схеме "Test_Schema_ORCL", расположенной на сервере "Test_ORCL", с указанными учетными данными. Будет получена и выведена в консоль среды разработки системная информация о таблице "Table_1", если таковая имеется в данной схеме.

См. также:

ISecurityPackage