обработка ошибок в Query

← →
Neket (2006-09-01 09:19) [0]

При запросе в БД возможны ошибки. К примеру не корректно создан сам 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 из процедуры в которой этот запрос осуществляется.

← →
ANB © (2006-09-01 09:25) [1]

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 : Exception do
messageDlg(e.message,
mtError,
[mbOK],0);
exit;
end;

Правда теперь обработчик ошибок будет перехватывать ВСЕ ошибки. Хотя может именно это тебе и надо . . .

← →
Neket (2006-09-01 09:50) [2]

Все спасибо... Разобрался.

on E: EDBEngineError do

обработка ошибок в Query Найти похожие ветки