Перехват ошибок от TTable

[иванлеон]

Как перехватить ошибки, которые происходят в базе данных, если они происходят не в программном коде и выводить свои сообщения. Конкретно, от ADOTable
Например, чтобы сообщения были на русском языке.
События OnDeleteError и подобные вообще не работают(((

[Stilet]

Через try except. в который помещаешь действия, которые требуют перехвата.

[иванлеон]

Сообщение от Stilet

Через try except. в который помещаешь действия, которые требуют перехвата.

А если кода нет и ошибка происходит при работе с базой данных?
Например, вводишь неверную дату, срабатывает автоматическое исключение "is not a valid date and time".
Как перехватить такое исключение и вывести своё по-русски. Мол - Неверный формат даты и т.п.

[Stilet]

Например, вводишь неверную дату

Где вводишь? В компоненте типа DBEdit?

[иванлеон]

Сообщение от Stilet

Где вводишь? В компоненте типа DBEdit?

Нет, TDBGrid. Так уже сделано.

[Stilet]

Ну вот тут я тебе не скажу... Не пользуюсь этим компонентов вообще и давно.
Но вроде бы нет возможности отключить вывод исключений.

[иванлеон]

В сети валяется следующий код.
У меня он не работает.

{Секция Interface} 
procedure HandleException(Sender: TObject; E: Exception); 
... 

{Секция Implementation} 
procedure TForm1.HandleException(Sender: TObject; E: Exception); 
var 
  err: DBIResult; 
begin 
  if E is EDBEngineError then 
  begin 
    err := (E as EDBEngineError).errors[(E as EDBEngineError).errorcount - 
      1].errorcode; 
    if (err = DBIERR_KEYVIOL) then 
      showMessage('Ошибка Key violation!') 
    else if (err = DBIERR_LOCKED) then 
      showmessage('Запись блокирована другим пользователем') 
    else if (err = DBIERR_FILELOCKED) then 
      showmessage('Таблица блокирована кем-то еще') 
    else 
      showmessage('Другая ошибка DB') 
  end 
  else 
    showmessage('Упс!: ' + E.Message); 
end; 

...'инсталлировать' обработчик исключений можно так: 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Application.onException:=HandleException; 
end;

Для использования предопределенных констант ошибок ('DBIERR_etc.'), вам необходимо включить DBIERRS в список используемых модулей. Полный список кодов ошибок при работе с базами данных вы можете найти в файле DBIERRS.INT, расположенном в каталоге :\DELPHI\DOC.


DBIERRS подключаю.Кричит на EDBEngineError

[xxbesoxx]

Например, вводишь неверную дату, срабатывает автоматическое исключение "is not a valid date and time".

Есть же компонент для работы "дату"

TDBGrid. Так уже сделано.

Что там сделано ? и вам спрашивают по DBEdit и не про TDBGrid

DBIERRS подключаю.Кричит на EDBEngineError

На #2 вам уже ответили и вы продолжайте своего . погуглиг бы и посмотрел пример http://delphiworld.narod.ru/base/edbengineerror.html
http://articles.org.ru/cn/showdetail.php?cid=8082

[иванлеон]

Сообщение от xxbesoxx

Есть же компонент для работы "дату"

Что там сделано ? и вам спрашивают по DBEdit и не про TDBGrid

В приложении уже сделана БД, где ввод через TDBGrid

[xxbesoxx]

где ввод через TDBGrid

Я бы запретил DBGrid редактирование и для добавление и редактирование делал второе форма , DBGrid это для отображения данных