IDalCommandEx.ExecuteEx

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

Sub UserProc;
Var
    //...
    MB: IMetabase;
    DBInst: IDatabaseInstance;
    Connect: ISecurityConnection;
    Transaction1, Transaction2: IConnectionTransaction;
    Command, CheckCommand: IDalCommand;
    CommandEx: IDalCommandEx;
    Param, CheckParam: IDalCommandParam;
    i, Count: Integer;
    SQL: String;
Begin
    MB := MetabaseClass.Active;
    //Запрос, который будет выполняться
    SQL := "insert into Table1(Comments) values(:CommentValue)";
    DBInst := MB.ItemById("DB").Open(Null) As IDatabaseInstance;
    Connect := DBInst.Connection;
    Command := Connect.CreateCommand(SQL);
    //Анализ SQL-запроса
    Command.Parse;
    //Указание коллекции значений параметра
    Param := Command.Params.Item(0);
    Param.DataType := DbDataType.String;
    Command.MaxParamsRows := 4;
    //Первое значение
    Param.Value := "Значение 1";
    Command.NextParamsRow;
    //Второе значение
    Param.Value := "Значение 2";
    Command.NextParamsRow;
    //Третье значение
    Param.Value := "Очень длинное значение, на которое не рассчитано поле таблицы.";
    Command.NextParamsRow;
    //Четвертое значение
    Param.Value := "Значение 4";
    //Получение команды
    CommandEx := Command As IDalCommandEx;
    //Выполнение
    Try
        //Инициализация транзакции и выполнение команды
        Transaction1 := Connect.StartTransaction(False);
        CommandEx.ExecuteEx(False);
    Except
        //При возникновении ошибки откатим все изменения
        Transaction1.Rollback;
        Debug.WriteLine("При выполнении SQL-запроса возникла ошибка");
        //В отдельной транзацкии проверим выполнение команды
        //с отдельными значениями параметра.
        //Для этого создадим отдельную команду
        Transaction2 := Connect.StartTransaction(False);
        CheckCommand := Transaction2.CreateCommand(SQL);
        CheckCommand.Parse;
        CheckParam := CheckCommand.Params.Item(0);
        //Инициализация отдельной транзакции
        Count := Command.CurrentParamsRow;
        For i := 0 To Count Do
            CommandEx.SetCurrentParamsRow(i);
            //Установка значения, с которым будет производиться проверка
            CheckParam.Value := Param.Value;
            Try
                CheckCommand.Execute;
            Except
                Debug.WriteLine("Ошибка при выполнении запроса со значением параметра:" + Command.Params.Item(0).Value);
            End Try;
        End For;
        //Откатим все изменения, внесенные в рамках проверки
        Transaction2.Rollback;
    Finally
        If Connect.InTransaction Then
            Transaction1.Commit;
        End If;
    End Try;
    //Сброс счетчика наборов параметров
    CommandEx.ClearParamSets;
    //Изменение набора параметров и дальнейшее использование
    //команды CommandEx
    //...   
End Sub UserProc;