Доброго времени суток, Динозавры77.

Наступил на неприятную вещь, делюсь как обойти/исправить.
При повторном вызове ВыполнитьSQL_ИзТЗ без повторного Подготовить данные неверно передаются на сервер, возможны варианты:
а) фантомные строки
б) вылет платформы с ошибкой доступа к памяти

Воспроизводится так:

Процедура Сформировать()
     рс = СоздатьОбъект("ODBCRecordSet");
     рс.ВыполнитьСкалярный("drop table if exists #tbl");
     рс.ВыполнитьИнструкцию("create table #tbl(k1 char(9), k2 char(9))");
     рс.Подготовить("insert #tbl(k1,k2) values(?,?)");
     тз = СоздатьОбъект("ТаблицаЗначений");
     тз.НоваяКолонка("к1","Строка");
     тз.НоваяКолонка("к2","Строка");
     
     Для ъъ=1 По 100 Цикл
           тз.НоваяСтрока();
           тз.к1 = ъъ;
           тз.к2 = 100 - ъъ;
     КонецЦикла;
     рс.ВыполнитьSQL_ИзТЗ(тз);
     
     тз.УдалитьСтроки();
     Для ъъ=1 По 99 Цикл
           тз.НоваяСтрока();
           тз.к1 = ъъ;
           тз.к2 = 99 - ъъ;
     КонецЦикла;
     рс.ВыполнитьSQL_ИзТЗ(тз);
     
     тз1 = рс.ВыполнитьИнструкцию("select * from #tbl");
     тз1.ВыбратьСтроку();
     
КонецПроцедуры

В результате в выборке будут фантомные строки, оставшиеся в памяти от первого заполнения таблицы значений.
Ошибка кроется в Odbccore.cpp,
BOOL CODBCRecordset::SetRowsetSizeForParams(int nRows)

Повторный вызов функции не выделяет память, если выборка открыта (подготовлена). Вторая таблица значений содержит меньше строк, соответственно, пакет в 10% от таблицы значений содержит не 10, а 9 строк. Однако память для передачи параметров не перераспределяется, а используется прежний буфер в 10 строк, в котором 10-я строка содержит фантомные значения.

Обойти можно, повторно вызвав Подготовить перед вторым ВыполнитьSQL_ИзТЗ, но в моем случае это создавало лишнюю нагрузку на сервер (~миллионы вызовов по сотне строк в # - sp_unprepare / sp_prepare)

Исправляется тут (возможно, не самый лучший вариант багфикса, но можно сделать без пересборки с исходников):
//      if (!m_bIsOpen && m_nRowsetSizeForParams != nRows)
     if (m_nRowsetSizeForParams != nRows)

или в бинарнике (1cpp.dll):
0010C0F1: 75 4E 3B 6E 5C 74 49 8B  46 28 85 C0 74 08 50 FF
->
0010C0F1: 90 90 3B 6E 5C 74 49 8B  46 28 85 C0 74 08 50 FF

Глядишь, еще живы те, кто могут пересобрать сие чудо++ и включить этот багфикс))

trad писал(а) 08. Июля 2019 :: 13:43:

Заметно проседает:

     тз = СоздатьОбъект("ТаблицаЗначений");
     тз.НоваяКолонка("к1","Строка");
     тз.НоваяКолонка("к2","Строка");
     Для ъъ=1 По 100000 Цикл
           тз.НоваяСтрока();
           тз.к1 = ъъ;
           тз.к2 = 100000 - ъъ;
     КонецЦикла;
     рс = СоздатьОбъект("ODBCRecordSet");

     рс.ВыполнитьСкалярный("drop table if exists #tbl");
     рс.ВыполнитьИнструкцию("create table #tbl(k1 char(9), k2 char(9))");
     рс.Подготовить("insert #tbl(k1,k2) values(?,?)");
     нач = _GetPerformanceCounter();
     рс.ВыполнитьSQL_ИзТЗ(тз);
     время = _GetPerformanceCounter() - нач;
     Сообщить(время);
     // SQL+1С на одном сервере 7302
     // SQL и 1С на разных серверах  7728


     рс.ВыполнитьСкалярный("drop table if exists #tbl");
     рс.ВыполнитьИнструкцию("create table #tbl(k1 char(9), k2 char(9))");
     рс.Подготовить("insert #tbl(k1,k2) values(?,?)");
     нач = _GetPerformanceCounter();
     рс.ВыполнитьSQL_ИзТЗ(тз, 1);
     время = _GetPerformanceCounter() - нач;
     Сообщить(время);
     // SQL +1С на одном сервере 20563
     // SQL и 1С на разных серверах  65432