Перехват исключений базы данных

Try

  Tabl.Post;
Except

  Begin

    On
 EDatabaseError do
 
      ShowMessage('Не могу отправить данные (выполнить Post)');
    (Sender AS
 TDBEdit).SetFocus;
  End
; {Begin}
End
, {Try}

Я осуществляю синтаксический разбор Error и вновь генерирую исключение (передаю по иерархии следующему обработчику объектов исключительных ситуаций), если я больше не хочу иметь с ним дела. Если использовать:

On
 E : EDatabaseError do
... 

то можно получить значение E.Error. Реально, имя свойства с текстом ошибки должно быть похоже на что-то типа E.Message (уточните в электронной справке).

On
 EDatabaseError do
 
begin

  ShowMessage('Не могу отправить данные');
  Edit1.setFocus;
end
;

Другое по теме:

• ActiveControl имеет DataSet
• БД-дерево взаимоотношений
• Выполнение запросов к базе данных в фоне