Меню сайта
Мини-чат
Чтобы добавить сообщение, необходимо авторизоваться.
Главная » Статьи » Не стандартные примеры на Delphi » Базы Данных

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

    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;
Категория: Базы Данных | Добавил: DelphiAiX (20.05.2012)
Просмотров: 275 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]