Проверка записей в DBGrid

[Stranger333]

У меня есть БД покдлючена через ADOQuery. Проблема состоит в том что мне надо сделать перехвачивание если будет вводится код в таблицу который не может повторятся. Например А99 - первая запись, значит остальные записи не могут быть А99, тоесть мне надо поставить здесь перехватчик или проверку на уникальность. Помогите чем можете пожайлуста.

[vovk]

А если просто поле ключевым сделать? и пусть бд этим занимается

[Kemperok]

Делай запрос Q1 проверки типа
select * from tb1
where pole1 = :text (для проверки вводимого значения)
перед открытием запроса просто передаешь ему переменную (:text), которую ты хочешь проверить.

а перед сохранением своих записей просто напиши проверку
Q1.open;
if Q1.recordcount.value > 0 then begin
(Сообщение об ошибке типа "Данные поля Pole1 - не уникальны, измените их, ну или что-то в таком духе);
end else begin
(Сохранение вводимых данных, т.е. все впорядке);
end;
Q1.close;

[rdama]

Все же лучше ключ. Чем городить огород.
А на чем у тебя БД?

[Stranger333]

БД на Access, мне всеравно чем ее подключить ADOTable или ADOQuery. Пhосто я эту таблицу связал с другой талицей по этому полю (MasterFields). Тоесть в первой таблице значение не должно повторятся, а в другой для этого значения заполняем даные.

Kemperok, попробую твой вариант хотя SQL не знаю

[rdama]

Всеже такой вариант который ты решил использовать не совсем правильный.
Для аксеса он сойдет.
Но если попытаться его использовать с большими объемами данных.
Да еще и удаленно от БД.
Ьез индекса то этому полю
То есть шанс вообще не дождаться результата проверки.

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

[Kemperok]

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

Всеже такой вариант который ты решил использовать не совсем правильный.
Для аксеса он сойдет.
Но если попытаться его использовать с большими объемами данных.
Да еще и удаленно от БД.
Ьез индекса то этому полю
То есть шанс вообще не дождаться результата проверки.

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

Так то оно так, но если ключевое поле - не счетчик, то при вводе в поле уже существующего значения юзер просто напросто будет получать от БД непонятное ему сообщние. В таком случае прийдется еще и описывать ошибку для разъяснения пользователю что у него есть совпадения записей...
Аксесс и большой объем данных - это слова антонимы...

[rdama]

Аксесс и большой объем данных - это слова антонимы...

Ну так я и пишу

Для аксеса он сойдет

Ну а что сложного написать обработчик возвращаемой ошибки.

try 
  сюда действия по добавлению записи
except on e:exception do
begin
  ну а сюда обработчик исключения
  проверка что вернулось с БД.
  и сообщение для пользователя.  
end;
end;

Просто я считаю что так правильнее...

[Stranger333]

rdama если не сложно напишы код.

procedure TForm1.ADOQuery2BeforePost(DataSet: TDataSet);
begin
  try
    ADOQuery2.Insert;
    ADOQuery2.FieldByName('Kod_proektu').AsString;
  except on e:exception do
  begin
  ShowMessage('!');
  end;
  end;
end;

Я сделал так ещ так

procedure TForm1.ADOQuery2BeforePost(DataSet: TDataSet);
begin
ADOQuery2.FieldByName('Kod_proektu').AsString;
ADOQuery2.Open;
ADOQuery2.Insert;
if ADOQuery2.recordcount > 0 then begin
ShowMessage('1');
end;
ADOQuery2.close;
end;

Мой меседж выводит но потом выдает системный меседж. Тоесть мне нужно сделать здесь исключение, но не знаю как.

[rdama]

  try
    ADOQuery1.ExecSQL;
  except on e:exception do
  begin
    if  e.HelpContext = 5003022 then
      ShowMessage('Вы пытаетесь ввести дублирующее значение в поле');
  end;
  end;

Только тут есть небольшая проблема в том у Access'а похоже нет кодов ошибок либо он их не возвращает.
Поэтому обработчик построен на возврате e.HelpContext.
И еще у exception есть поля ClassName и Message.
Ты можешь их использовать

И еще при отлове ошибки в IDE ты в любом случае получишь сообщение Access'a.
Т.к. её тебе плюнет дебагер.

А вот если запустишь программу без IDE, то ошибки Acces'a уже не будет.