Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Oracle+ExecSql+Open [D6]

Max_ © (2003-09-05 17:22:00)

Есть редактор Оракловских запросов! Классический пример с запросами на 100 строк работает прекрасно:
Query1.Close;
Query1.SQL.Add(zapros);
try
Query1.Open;
except
on EDataBaseError do
Query1.ExecSQL;
end;
Но скажем если я пишу запрос (Update) на 30000 строк (только не пишите, что таких запросов писать неследует), то идет выполнение Query1.Open; (где-то 30-40 сек.) потом, под конец как известно, Query1.Open пытается создать выходной курсор (которого быть в случае Updatе"а не может) происходит ошибка и компилятор начинает заново 40 сек. выполнять Update, но уже с Query1.ExecSQL;
P.S. Есть ли решение поизящнее (что б не тратить по 40 сек. каждый раз, нпр. проверить возвратит данный запрос курсор или нет)!

Petr V. Abramov (2003-09-06 14:56:00) [1]

...
except
on EDataBaseError
может быть что угодно, в т.ч. и обрыв соединения с сервером, упавшим от update 30 тыс строк.
Не знаю, можно ли в BDE от D6 достать родные оракловские хендлы, но если можно, то в их атрибутах есть код statement`а

VAleksey (2003-09-05 19:46:00) [2]

А что так
try
Query.Open;
except
on E:<Какое там исключение при открытии курсора> do
begin
end;
end;
или
try
Query.Open;
except
on E:Exception do
begin
// Парсим E.Message на предмет нашей ошибки
if e.Message <> "Error creating cursor handle" then
Raise;
end;
end;

Reindeer Moss Eater (2003-09-05 17:48:00) [3]

Опять таки признаки скрипта легко детектируются в тексе.
Так что не надо усложнять.
Нет скрипта, но есть UPDATE - нет никакого курсора.

Sandman25 (2003-09-05 17:46:00) [4]

Написать своего наследника TQuery, у которого перекрыть Open так, чтобы не происходило исключения при неудачном создании курсора.

Reindeer Moss Eater (2003-09-05 17:45:00) [5]

Есть предложение использовать SQL+ и не парить мозги.

Max_ (2003-09-05 17:43:00) [6]

Ну я так и думал, что последует такого рода ответ! Это не решение! Select может быть вложенным или Update быть вместе с Selectом или в скрипте! (одним словом, я это проверял- возможны нюансы) Ещё предложения? :)

Reindeer Moss Eater (2003-09-05 17:34:00) [7]

Если в тексте запроса найден update, то сразу делать Exec, а не найдено - значит Open

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »