IDalDriver.CreateDescriptor

Копировать пример

Sub UserProc;
Var
    Driver: IDalDriver;
    ConDesc: IDalConnectionDescriptor;
    ODBCConnection: IDalODBCConnectionDescriptor;
    Connection: IDalConnection;
Begin
    Driver := New DalODBCDriver.Create;
    ConDesc := Driver.CreateDescriptor;
    ODBCConnection := ConDesc As IDalODBCConnectionDescriptor;
    /// <summary>
    /// Ниже представлены различные варианты указания параметров подключения (1-3).
    /// Каждый из вариантов используется независимо от других вариантов,
    /// также допустимо использование комбинированного варианта задания параметров
    /// через свойства ODBCParams и ODBCParamValue (4).
    /// </summary>
    // 1. Пользовательский DSN
    ODBCConnection.ODBCParams := "DSN=PostgreSQL35W";
    // 2. Полная строка подключения
    ODBCConnection.ODBCParams := "DRIVER={PostgreSQL Unicode};SERVER=127.0.0.1;DATABASE=WAREHOUSE;UID=user;PWD=password;";
    // 3. Задание значения параметра с наименованием DSN или отдельных параметров подключения
    ODBCConnection.ODBCParamValue("DSN") := "PostgreSQL35W";
    // или
    ODBCConnection.ODBCParamValue("DRIVER") := "{PostgreSQL Unicode}";
    ODBCConnection.ODBCParamValue("SERVER") := "127.0.0.1";
    ODBCConnection.ODBCParamValue("DATABASE") := "WAREHOUSE";
    ODBCConnection.ODBCParamValue("UID") := "user";
    ODBCConnection.ODBCParamValue("PWD") := "password";
    // 4. Комбинированный вариант
    ODBCConnection.ODBCParams := "DRIVER={PostgreSQL Unicode};SERVER=127.0.0.1;DATABASE=WAREHOUSE";
    ODBCConnection.ODBCParamValue("UID") := "user";
    ODBCConnection.ODBCParamValue("PWD") := "password";
    // Создание соединения
    Connection := ConDesc.CreateConnection;
    Debug.WriteLine(Connection.IsDisconnected ? "Соединение отсутствует." : "Соединение создано.");
    Connection.Close;
End Sub UserProc;