IDalODBCConnectionDescriptor.ODBCParamValue

Синтаксис

ODBCParamValue(Name: String): Variant;

ODBCParamValue[Name: String]: Object;

Параметры

Name. Наименование параметра.

Описание

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

Комментарии

Наименования параметров можно получить в документации по ODBC драйверу, с помощью которого осуществляется подключение.

Пример

В операционной системе должен быть установлен 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.ODBCParamValue("MultiSubnetFailover") := "Yes";
    ParamsODBC.ODBCParamValue("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.ODBCParamValue["MultiSubnetFailover"] := "Yes";
    ParamsODBC.ODBCParamValue["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