v7: Примитивный запрос UPDATE :-)

1C 7.7

гуру

09.10.20

✎

22:04

Добрый вечер!
В продолжение(точнее, "по мотивам") темы: Замена ссылок в движениях регистров(в таблицах DBF)
Там я реальную проблему решил, конвертнул базу в SQL, воспользовался обработкой, поменял что нужно, и сконвертил в DBF обратно. Все получилось, нет проблем.
Но, захотелось все-таки что-то такое под DBF сделать, что-бы при необходимости обходиться без этих "плясок с бубном" с конвертацией туда-обратно.

В посте (7) Ёпрст писал: "Написать примитивный запрос на update нужных табличек проще всего на vfpoledb, синтаксис не особо и отличаться будет от запроса для mssql"...
Пошел по этому пути. Но опыта в прямых запросах - явно не хватает :-(
Первая часть, по поиску ссылок, заработала без особых проблем.
А вот вторая, по замене - ну никак не хочет работать...
Вот так это выглядит в отладчике: https://content.foto.my.mail.ru/mail/m_w_w/_mypagephoto/h-351.jpg
На следующем шаге падает с ошибкой, вот так: https://content.foto.my.mail.ru/mail/m_w_w/_mypagephoto/h-352.jpg
Текст ошибки:
рс.ВыполнитьИнструкцию(ТекстЗапроса);
{D:\BASA_1C\ВЕГА\ЗАМЕНАЭЛЕМЕНТАДБФ.ERT(689)}: FAILED! ICommandText::Execute(): Record is not locked.

Вот текст самого запроса:
                База = СоздатьОбъект("OLEDBData");
                Соединение = "Provider=VFPOLEDB.1;Data Source=" + КаталогИБ()+ ";Mode=ReadWrite;Collating Sequence=MACHINE";
                Если База.Соединение(Соединение) = 0 Тогда
                    Сообщить("Не соеденились");
                    Возврат;
                КонецЕсли;
                рс = База.СоздатьКоманду();

                ТекстЗапроса = "
                |UPDATE
                |    $"+тзПотомки.Метаданные+"
                | SET $"+тзПотомки.Метаданные+"."+тзПотомки.Реквизит +" = :Объект
                |FROM $"+тзПотомки.Метаданные+" AS Tab
                |where (Tab.IDDOC = :Док)
                | AND  ($Tab."+тзПотомки.Реквизит+" = :Источник)
                |";
                рс.УстановитьТекстовыйПараметр("Объект", Приемник);
                рс.УстановитьТекстовыйПараметр("Источник", Источник);
                рс.УстановитьТекстовыйПараметр("Док", Док.ТекущийДокумент());
        //        рс.Выполнить("EXECSCRIPT('SET ANSI OFF')");
                рс.ВыполнитьИнструкцию(ТекстЗапроса);

Все-таки, видимо синтаксис не особо, но отличается... Такое ощущение, что он не может получить доступ к таблице на запись...
Подскажите пожалуйста, что я не правильно делаю?

1 МихаилМ

09.10.20

✎

22:56

http://catalog.mista.ru/public/16268/

2 Ёпрст

09.10.20

✎

23:35

(0)



    ОлеДБ = СоздатьОбъект("OLEDBData");

    Соединение = "Provider=VFPOLEDB.1;Data Source=" + КаталогИБ() + ";Mode=ReadWrite;Collating Sequence=MACHINE";

    Рез = ОлеДБ.Соединение(Соединение);

    Запрос = ОлеДБ.СоздатьКоманду();

    Запрос.Выполнить("EXECSCRIPT('SET ANSI OFF')");  

    Запрос.Выполнить("EXECSCRIPT('SET REPROCESS TO 60 SECONDS')");

    Запрос.Выполнить("EXECSCRIPT('SET REFRESH TO 0,-1')");    

    Запрос.Выполнить("Exec('SET TABLEVALIDATE TO 0')");

    Запрос = ОлеДБ.СоздатьКоманду();

    ТекстЗапроса = "

    |Update

    |   Вася

    |Set

    |   $Вася.Реквизит=:Параметр

    |

    |from $Справочник.Вася as Вася

    |

    |";

    Запрос.УстановитьТекстовыйПараметр("Параметр", "Лошпед");

    Запрос.ВыполнитьИнструкцию(ТекстЗапроса);

ЗЫ: пихать метаданные...да уж.
Если че, есть Идентификатор у метаданных.

3 Ёпрст

09.10.20

✎