| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
обработка ошибок в Query [D7]
Neket © (2006-09-01 09:19:00)При запросе в БД возможны ошибки. К примеру не корректно создан сам SQL запрос. Как "отловить" это событие. Я пытаюсь следующим образом но при этом подобного рода ошибка не обрабатывается.
Query1.close;
Query1.SQL.Clear;
If StrZapros <> '' then
Query1.SQL.Add(StrZapros)
else
begin
messageDlg('Не был введен SQL запрос', mtError, [mbOK], 0);
exit;
end;
try
Query1.Open;
except
On e : EDatabaseError do
messageDlg(e.message,
mtError,
[mbOK],0);
end;
P.S.
Другими словами, мне необходимо чтобы в случае некорректного запроса у меня срабатывал EXIT из процедуры в которой этот запрос осуществляется.
Desdechado (2006-09-01 11:16:00) [1]
on E: EDBEngineError do
Neket (2006-09-01 09:50:00) [2]Все спасибо... Разобрался.
ANB (2006-09-01 09:25:00) [3]Query1.close;
Query1.SQL.Clear;
If StrZapros <> '' then
Query1.SQL.Add(StrZapros)
else
begin
messageDlg('Не был введен SQL запрос', mtError, [mbOK], 0);
exit;
end;
try
Query1.Open;
except
On e : Exceptiondo
messageDlg(e.message,
mtError,
[mbOK],0);
exit;
end;
Правда теперь обработчик ошибок будет перехватывать ВСЕошибки. Хотя может именно это тебе и надо . . .
| |
