Проблема обнаружена под операционной системой windows 2000 sp3, в среде
delphi6, delphi7 (скорее всего не зависит от версии delphi) с использованием
microsoft jet db engine версия 4, sp3. Некоторый, вполне типичный, код
заполнения запроса в процессе выполнения вызывает access violation, притом, что
согласно документации все должно работать корректно.
Пример кода:
Допустим, есть база данных в ms access 2000, имеющая таблицу main и в ней
целочисленное (int) поле id в качестве главного ключа. Так же есть компонент
adoquery1: tadoquery, для доступа к базе данных. Максимальное значение поля id
может быть получено следующим кодом:
adoquery1.active := false;
adoquery1.sql.clear;
adoquery1.sql.add('select max(id)'); // -- Сбой здесь !!!
adoquery1.sql.add('as idmax');
adoquery1.sql.add('from main');
adoquery1.active := true;
Как было показано в комментарии, исключение возникает в процессе добавления
текста в запрос, но при этом в сообщении об ошибке указывалось, что исключение
произошло внутри библиотеки jet.
Исследование исходных текстов компонента tadoquery показало следущее:
свойство sql, типа tstrings связано с полем fsql: tstrings, создаваемого как
экземляр класса tstringlist, при этом объекту fsql назначается обработчик
события onchange — метод querychanged (protected, статический), что исключает
его возможную перегрузку.
Этот метод устанавливает свойство active в false и присваивает содержимое
fsql.text полю commandtext объекта ado.
За отсутствием исходных текстов библиотеки jet, дальнейшее исследование
пришлось прекратить, но можно сделать несколько выводов:
Корни проблемы в невполне корректном поведении как кода от borland, так и от
microsoft. Компонент tadoquery передает в ado неоконченный sql-запрос, а jet
начинает анализировать этот запрос до того, как он полностью поступит. Возможно,
microsoft пытался реализовать упреждающее выполнение запросов, чтобы снизить
время обработки запроса после получения команды на выполнение.
Теоретически и другие драйвера баз данных могут быть чувствительны к неполным
запросам, так что данная ошибка может появляться и при работе с другими СУБД.
При дополнительном исследовании были выяснены интересные подробности:
Данный код не прерывает выполнения при возникновении exception, т.е.
теоретически даже try..except не нужен. Похоже, это происходит из-за того, что
jet является com-объектом, а их методы вызываются как safecall. Дальнейшие тесты
подтвердили это предположение — при снятии галочки stop on delphi exceptions и в
варианте exe-файла ошибка не проявлялась. Таким образом, ситуация несколько
меняется — исключение возникает только в среде разработки, что, правда, является
слабым утешением, т.к. многие програмисты работают с настройками по-умолчанию, и
в случае его возникновения могут долго ломать голову, ища свою ошибку там где ее
нет.
ТИПОВЫЕ РЕШЕНИЯ
1. Передавать запрос целиком — одной строкой. Пример:
adoquery1.active := false;
adoquery1.sql.text := 'select max(id) as idmax from main;';
adoquery1.active := true;
2. Отключить галочку tools->debugger options->language
exceptions->stop on delphi exceptions
3. Просто игнорировать это исключение (в этом случае в процессе разработки
придется периодически несколько раз нажимать ok, что, конечно, менее удобно)
Напоследок: Небольшое исследование исходного кода компонент данных bde и
dbexpress показало, что в них передача sql-запроса происходит через
промежуточное текстовое поле, что, на мой взгляд, исключает в них возможность
появления аналогичной ошибки.
КОММЕНТАРИЙ:
Компонент tadoquery от delphi 5 содержит аналогичный код (метод querychanged),
приводящий к ошибке.
Еще один вариант решения - использовать стандартные возможности tstrings по
управлению обновлением:
adoquery1.sql.beginupdate;
try
adoquery1.sql.clear;
adoquery1.sql.add('select max(id)');
adoquery1.sql.add('as idmax');
adoquery1.sql.add('from main');
finally
adoquery1.sql.endupdate;
end;
В этом случае событие onchange произойдет только при выполнении endupdate.
Автор: Дмитрий Померанцев
|