Скачать: CL | DM;

обработка ошибок в 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c