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

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

 
 
 

Советы по delphi \ Базы данных \ Ошибки БД \ Нарушение уникальности записи

Нарушение уникальности записи

try
  tMyTable.Post;
except
  on E : EDBEngineError do
    if E.Message = 'Key violation' then
    begin
      MessageDlgC ('Дублирование записи не допускается.', mtError, [mbOk], 0);
      // Я не уверен в том, что это нужно делать:
      tMyTable.Cancel;
    end
    else 
      Raise;
end;

Хорошим примером может служить проект DBERRORS.DPR, расположенный в каталоге Delphi 2 Demos. Выглядит это примерно так:

Создайте функцию типа этой:

function DBError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
const
  eKeyViol = 9729;
var
  iDBIError: Integer;
begin
  if (E is EDBEngineError) then
  begin
    iDBIError := (E as EDBEngineError).Errors[0].Errorcode;
    case iDBIError of
      eKeyViol:
      begin
        MessageDlg('Нарушение уникальности записи ', mtWarning, [mbOK], 0);
        Abort;
      end;
  end;

Затем для каждой таблицы вашего приложения создайте следующий обработчик события:

procedure TMainForm.Table1EditError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  DBError(Table1, E, Action);
end;

Таким образом вы можете перехватить множество ошибок. Смотрите примеры от Borland, там много чего есть полезного.

Название: Нарушение уникальности записи
Дата публикации: 2004-03-20 (2796 Прочтено)

 
 

 

Page generation 0.034 seconds