Отправка "сложных" запрос к Oracle через ADODB

Поле 1 Как Номер запроса

Объединить Все

Выбрать Запрос № 2
Поле 2 Как Номер запроса

типо :v := '123'; 


(7) Зачем? И Глупо :)

Функция СоздатьКомандуАДО(Соединение, Текст)
    Команда = Новый ComОбъект("ADODB.Command");
    Команда.ActiveConnection = Соединение;
    
    Команда.CommandType = мМагияСКЛ.adCmdText;
    Команда.Prepared = Истина;
    
    Команда.CommandText = Текст;
    Возврат Команда;
КонецФункции

Функция ВыполнитьКомандуАДО(Команда)
    
    Попытка 
        Результат = Команда.Execute();
    Исключение
        Инфо = ИнформацияОбОшибке();
        ВызватьИсключение "Ошибка выполнения команды!" + Символы.ПС + Команда.CommandText + Символы.Пс + ПредставлениеОшибки(Инфо);
    КонецПопытки;
    
    Возврат Результат;
КонецФункции

Команда = СоздатьКомандуАДО(Соединение,

        |    (DocumentType, RecordId, Status, ItemId, ItemBarCode) 
        |VALUES 
        |    (1, ?, 2, ?, ?)");
    
    Выборка = Результат.Выбрать();
    ТекНомер = ПолучитьОбновитьПоследнийНомерDAX(Выборка.Количество(), мСоответствиеОбъектовДляОбмена.ИмяТипаПриемника_Штрихкоды1с);
    
    Счетчик = ПолучитьСтруктуруСчетчика(Выборка.Количество(), "Выгрузка штрихкодов");
    Пока Выборка.Следующий() Цикл
        
        ОбновитьСостояниеСчетчика(Счетчик);
        Команда.Parameters.Item(0).Value = ОтформатироватьИОбновитьСчетчикDAX(ТекНомер);
        Команда.Parameters.Item(1).Value = Выборка.СсылкаВДругойИБ;
        Команда.Parameters.Item(2).Value = Выборка.Штрихкод;
        
        ВыполнитьКомандуАДО(Команда);

        Набор = РегистрыСведений.Штрихкоды.СоздатьНаборЗаписей();
        Набор.Отбор.Код.Установить(Выборка.Код);
        ПланыОбмена.УдалитьРегистрациюИзменений(мСоответствиеОбъектовДляОбмена.УзелОбмена, Набор);
    КонецЦикла;

Используй параметры, куда безопасней :)

select поле из таблица where ДругоеПоле = "123"

Процедура УстановитьСтатус(Команда, RECORDID, Статус)
    
    Параметры = Новый COMSafeArray("VT_VARIANT", 3);
    Параметры.SetValue(0, Статус);
    Параметры.SetValue(1, ТекущаяДата());
    Параметры.SetValue(2, СокрЛП(RECORDID));
    
    Попытка 
        Пока 
            Команда.state = мМагияСКЛ.adStateExecuting
        Цикл
            // ждем

        КонецЦикла;
        Команда.Execute(, Параметры, мМагияСКЛ.adAsyncExecute + мМагияСКЛ.adExecuteNoRecords);
    Исключение// если слишком много асинхронных вызовов, то надо дать просраться

        Попытка 
            Команда.Execute(, Параметры, мМагияСКЛ.adExecuteNoRecords);
            ДобавитьСообщение("Синхронное обновление таблицы обмена!", СтатусСообщения.Информация);
        Исключение
            Инфо = ИнформацияОбОшибке();
            лТекстСообщения = "обновления таблицы обмена для строки " + RECORDID + " : " + ПредставлениеОшибки(Инфо);
            лСтатусСообщения = СтатусСообщения.Важное;
            ДобавитьСообщение(лТекстСообщения, лСтатусСообщения);
            //ВызватьИсключение "Ошибка обновления таблицы обмена для строки " + RECORDID + "!";

        КонецПопытки
    КонецПопытки
КонецПроцедуры