Здравствуйте! Провозился с проблемой весь день, а результата ноль!
Проблема собственно вот в чем: имеются последовательности SQL запросов-один главный, другой дочерний, что- то типа
select * from customer
select * from orders where CustNo=:CustNo
которые должны выполняться один за другим (первая пара запросов, затем вторая и т.д). Все свойства ADOConnection и ADOQuery выставлены правильно, первая пара запросов обрабатывается успешно, а потом возникает ошибка что типа поле CustNo-из первого запроса не найдено, так его и не должно быть, запрос то другой уже. Проверял все запросы по одному, прекрасно работают.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | procedure TCForm . RecuestViewDblClick(Sender: TObject);
var i: integer ;
begin
for i:= 0 to r- 1 do
begin
if Zapros[i].Name=RecuestView . Items[RecuestView . ItemIndex].Caption then
begin
ADOdch . Close;
ADOgl . Close;
ADOgl . SQL . Clear;
ADOgl . SQL . Add(zapros[i].SQL1);
ADOdch . SQL . Clear;
ADOdch . SQL . Add(zapros[i].SQL2);
adogl . Open;
ADOdch . Open;
break;
end ;
end ;
end ;
|
это пример выполнения пары запросов, в первый раз все прекрасно, второй раз вызываю процедуру и ошибка