обработка исключений sql

[kate158]

в моей базе данных есть уникальный ключ, который не позволяет добавлять в бд повотряющиеся значения. на форме есть грид, при добавлении значения (если оно повторяется) появляется sql ошибка о том, что добавить в бд нельзя, потому что поле уникально и тд. как обработать такую ошибку?

[quit]

Вы можете в ХП сделать проверку на существование записи и из бд вывести ошибку о не допустимости записи из-за ее дубля.
Обработать ошибку можно по разному, главное что именно хочешь получить в конечном итоге.

[Stilet]

Как добавляешь?
Методами компонентов или SQL командой?

Или имеется ввиду что в ДБГриде просто переходишь на новую запись и оно падает?

[kate158]

добавляю с использованием дбнавигатора!

вот код

procedure TMainForm.gLegacyEnter(Sender: TObject);
begin
  try
  CheckLegInfTable;
  except on e:exception do
  begin
    if  e.HelpContext = 5003022 then
      ShowMessage('Вы пытаетесь добавить дублирующую запись!');
  end;
 end;
end;

--

procedure TMainForm.CheckLegInfTable;
begin
    if DataMod.qLegacy.State in [dsEdit, dsInsert] then
    begin
      if Application.MessageBox('Сохранить изменения в таблице?', PNAME, MB_YESNO +
        MB_ICONQUESTION) = IDYES
        then
        DataMod.qLegacy.Post
      else
        DataMod.qLegacy.Cancel;
    end;

[Stilet]

kate158

Хм... Я бы тебе не советовал пользовать этими компонентами.
Самое надежное написать SQL-INSERT и им вносить записи естесственно без ключевого поля (я так понимаю оно же автоинкрементно?)

[kate158]

я хочу сделать с навигатором.
поле не автоинкрементно.
это ключ, который наследуется из родительской таблицы.

пользователь выбирает устройство (ключ наследуется в Legacy) и добавляет в таблицу Legacy количество устройств. в таблице Legacy не должно быть повторяющихся устройств.

[quit]

Тогда исключайте возможность выбора устройства, если его уже ввели