Stack OverFlow

[Tanya2008]

Добрый день! у меня проблема с переполнением стека. программа такая: на главной форме есть меню, на клике на одном из пунктов меню написан такой код:

period:='';
 if not InputQuery('Ввод периода', 'Введите период',period)
then exit;
t_name:='Budget_'+period;
DM.ADOQuery1.Close;
DM.ADOQuery1.SQL.Clear;
DM.ADOQuery1.sql.add('select Kategoria.kategor, Pklass.pklas, sum('+t_name+'.isp_b) from Pklass, '+t_name+', Kategoria ');
DM.ADOQuery1.sql.add('where (Kategoria.kodkat=Pklass.kodkat) and (Pklass.kodkat='+t_name+'.kodkat) and (Pklass.kodkl='+t_name+'.kodkl)and (Pklass.kodp='+t_name+'.kodp) and ('+t_name+'.utv_b!=0) group by Kategoria.kategor, Pklass.pklas ');
DM.ADOQuery1.sql.add('order by Kategoria.kategor ;');
DM.ADOQuery1.ExecSQL;
DM.ADOQuery1.Open;
Form6.QRLabel1.Caption:='Анализ структуры доходной части бюджета области за '+copy(t_name,8,4)+' г.';
Form6.QuickRep1.Preview;

В базу делается запрос. Должен формироваться отчет QuickRep, который связан с ADOQuery1.
Если я выполняю эту процедуру один раз, то ошибки нет, но когда пытаюсь еще раз, ввожу в InputQuery другой год, но вылетает оишбка Stack Overflow! Подскажите что сделать! Почему ошибка не пойму.

[Kotofff]

Попробуй убери вот это

DM.ADOQuery1.ExecSQL;

Должно хватить Open.

[Tanya2008]

Сообщение от Kotofff

Попробуй убери вот это

DM.ADOQuery1.ExecSQL;

Должно хватить Open.

Попробовала, не помогает

[Kotofff]

А ошибка точно в данной части кода ?
Дело в том, что ExecSQL отличается от Open тем, что не возвращает набор данных и его использование с select внутри самого запроса нецелесообразно. Если ты ожидаешь получить от запроса данные, то используй Open.
Дай больше кода тогда посмотреть.

[Tanya2008]

больше кода нет, это весь
что интересно, если отчет не отображать (Form6.QuickRep1.Preview то все работает идеально, только толку мало

[Kotofff]

Так может в нем и проблема ?
Отладчиком посмотри на какой именно строчке происходит ошибка.

[Tanya2008]

ни на каком не происходит, когда все строчки проходит тогда и выдает, последнюю проходит и появляется ошибку, а на первый раз ошибки нет, только на второй.
Может этот отчет как-нибудь очищать надо или что? не пойму ничего