CreateLogonData(DriverName: String): ISecurityPackageLogonData;
DriverName. Идентификатор драйвера БД.
В качестве значений данного параметра необходимо указывать одно из следующих значений:
| Идентификатор | СУБД |
| ORCL8 | Oracle 9.x\10.x\11.x. |
| MSSQL2008 | Microsoft SQL Server 2008. |
| MSSQL2012 | Microsoft SQL Server 2012\2014. |
| OLEDB(ODBC HIVE) | OLEDB(ODBC HIVE). |
| OLEDB(ODBC) | OLEDB(ODBC). |
| DB2 | DB2. |
| TRDT | Teradata версии 13\13.10\14\14.10. |
| POSTGRES | PostgreSQL версии 9.1\9.2\9.3\9.4. |
| POSTGRES(NO_LO) | Greenplum/Pivotal HD Hawq. |
| SQLITE | SQLite 3.8.1. |
| WSF | Веб-сервис Prognoz Platform. |
Метод CreateLogonData возвращает объект, содержащий свойства параметров модуля безопасности.
Sub Main;
Var
Package: ISecurityPackage;
MSSQLSPLD: IPrimaryMsSqlSPLD;
Cred: IPasswordCredentials;
Connection: ISecurityConnection;
ColCur: IDalColumns;
Field: IDalCursorField;
Begin
Package := New StandardSecurityPackage.Create;
MSSQLSPLD := Package.CreateLogonData("MSSQL2008") As IPrimaryMsSqlSPLD;
MSSQLSPLD.Database := "Test_Schema_MSSQL";
MSSQLSPLD.Server := "Test_MSSQL";
Cred := Package.CreateCredentials(AuthenticationMode.Password) As IPasswordCredentials;
Cred.UserName := "TestUser";
Cred.Password := "TestUser";
Connection := Package.PerformLogonRoleO(1, MSSQLSPLD, Cred, 0, 0);
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_MSSQL", расположенной на сервере MSSQL "Test_MSSQL", с указанными учетными данными. Будет получена, и выведена в консоль среды разработки, системная информация о таблице "Table_1", если таковая имеется в данной схеме.
См. также: