IDalODBCConnectionDescriptor.ODBCParams

Синтаксис

ODBCParams: String;

ODBCParams: String;

Описание

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

Комментарии

Параметры и их значения указываются в формате «параметр1=значение1;параметр2=значение2...».

Пример

В операционной системе должен быть установлен ODBC драйвер для Microsoft SQL Server. В сети имеется сервер с наименованием «MSSQLServer», на сервере создана схема «DataRepository».

Добавьте ссылку на системную сборку Dal. В Fore.NET также добавьте ссылки на системную сборку WinForms.Utils.

Sub UserProc;
Var
    Driver: IDalDriver;
    ConDesc: IDalConnectionDescriptor;
    Params: IDalConnectionDescriptorParams;
    Con: IDalConnection;
    ParamsODBC: IDalODBCConnectionDescriptor;
Begin
    // Драйвер для подключения
    Driver := New DalMsSql2012ODBCDriver.Create As IDalDriver;
    // Описание подключения
    ConDesc := Driver.CreateDescriptor;
    Params := ConDesc.Params;
    // Настройка параметров подключения
    Params.Find("Host BSTR").Value := "MSSQLServer";
    Params.Find("Database").Value := "DataRepository";
    Params.Find("User Name").Value := "User";
    Params.Find("Password").Value := "Password";
    // Дополнительные параметры подключения
    ParamsODBC := ConDesc as IDalODBCConnectionDescriptor;
    ParamsODBC.ODBCParams := "MultiSubnetFailover=Yes;ApplicationIntent=ReadOnly";
    Con := ConDesc.CreateConnection;
    Con.Open;
    If Con.IsDisconnected Then
        Debug.WriteLine("Соединение отсутствует.");
    Else
        Debug.WriteLine("Соединение установлено.");
    End If;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Dal;
Imports Prognoz.Platform.PiLibNet.Utils;

Public Shared Sub UserProc();
Var
    // Драйвер для подключения
    Driver: IDalDriver = ComCreator.Instance.CoCreate<DalMsSql2012ODBCDriverClass>();
    ConDesc: IDalConnectionDescriptor;
    Params: IDalConnectionDescriptorParams;
    Con: IDalConnection;
    ParamsODBC: IDalODBCConnectionDescriptor;
Begin
    // Описание подключения
    ConDesc := Driver.CreateDescriptor();
    Params := ConDesc.Params;
    // Настройка параметров подключения
    Params.Find("Host BSTR").Value := "MSSQLServer";
    Params.Find("Database").Value := "DataRepository";
    Params.Find("User Name").Value := "User";
    Params.Find("Password").Value := "Password";
    // Дополнительные параметры подключения
    ParamsODBC := ConDesc As IDalODBCConnectionDescriptor;
    ParamsODBC.ODBCParams := "MultiSubnetFailover=Yes;ApplicationIntent=ReadOnly";
    Con := ConDesc.CreateConnection();
    Con.Open();
    If Con.IsDisconnected Then
        System.Diagnostics.Debug.WriteLine("Соединение отсутствует.");
    Else
        System.Diagnostics.Debug.WriteLine("Соединение установлено.");
    End If;
End Sub;

При выполнении примера будет создано новое подключение к указанному серверу. При подключении используется ODBC драйвер с заданием дополнительных параметров подключения. Результат подключения будет выведен в консоль среды разработки.

См. также:

IDalODBCConnectionDescriptor