Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
Внизобработка ошибок в 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]Все спасибо... Разобрался.
← →
Desdechado © (2006-09-01 11:16) [3]
on E: EDBEngineError do
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.04 c