Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Базы данных \ Ошибки БД \ Как поймать свой RAISEERROR в Delphi

Как поймать свой RAISEERROR в Delphi

procedure TFDMUtils.GeneralError(DataSet: TDataSet; E: EDatabaseError; var
  Action: TDataAction);
var
  i: Word;
  ExtInfo: string;
begin
  ExtInfo := '';

  if (E is EDBEngineError) then
  begin
    if (EDBEngineError(E).Errors[0].NativeError = 0) then
    begin // Local Error
      if EDBEngineError(E).Errors[0].Errorcode = 9732 then
        ExtInfo := DataSet.FieldByName(trim(copy(E.Message, 29,
          20))).DisplayLabel;
      .......................................
    end
    else
    begin // Remote SQL Server error
      ExtInfo := ExtractFieldLabels(DataSet, E.Message);
      case EDBEngineError(E).Errors[0].NativeError of
        233, 515:
          Alert('Ошибка', 'Hе все поля заполнены ! ' + ExtInfo);
        547:
          if (StrPos(PChar(E.Message), PChar('DELETE')) <> nil) then
            Alert('Ошибка пpи удалении',
              'Имеются подчиненные записи, удаление (изменение) невозможно! ' +
              ExtInfo)
          else if (StrPos(PChar(E.Message), PChar('INSERT')) <> nil) then
            Alert('Ошибка пpи вставке', 'Отсутствует запись в МАСТЕР-таблице! '
              + ExtInfo)
          else if (StrPos(PChar(E.Message), PChar('UPDATE')) <> nil) then
            Alert('Ошибка пpи обновлении',
              'Отсутствует запись в МАСТЕР-таблице! ' + ExtInfo);
        2601:
          Alert('Ошибка', 'Такая запись уже есть!');
      else
        Alert('Ошибка', 'Hеизвестная ошибка, код - ' +
          inttostr(EDBEngineError(E).Errors[0].NativeError) + ExtInfo);
      end;
    end;
  end;
end;

Этот код был заточен под MSSQL, но не нужно пытаться его использовать, а лучше по этому пpимеpу написать свою процедуру.

Название: Как поймать свой RAISEERROR в Delphi
Дата публикации: 2004-03-20 (2574 Прочтено)

 
 

 

Page generation 0.035 seconds