Добавление в базу не повторяясь (Делфи)

[hackmegrom]

Здравствуйте. Я видел однажды пример с ADO, где при добавлении записи, если в базе есть похожие то, она не добавляет. И код вроде не сложный был. А в голове он не остался. Уже что только не перепробовал, и edit и insert и т.п. update. Что-то не могу сформировать код. Подскажите пожалуйста, если знаете несложный код.

[artemavd]

В Access есть такой тип поля - "Счетчик". Это своего рода уникальный идентификатор записи. Наличие этого поля априори исключает дублирование записей в БД. Добавьте в БД поле и поставьте его тип в "Счетчик".

[TaYgA]

Код действительно не сложный... Делал через AdoTable... Смысл таков: при добавлении записи Delphi считывает значение поля Edit и ищет совпадения по определённому столбцу базы (допустим ФИО), если совпадение есть то выдаёт ошибку, в ином случае добавляет

  if AdoTable.Locate('ФИО',Edit.Text,[]) then
    ShowMessage('Запись уже существует!')
    else begin
      ADOTable.Insert; 
      ADOTAble.FieldByName('ФИО').AsString:=Edit.Text;
      ..................................................................
    end;

[artemavd]

TaYgA, это если по одной записи добавлять, то можно так делать. А если их циклом нужно заносить по 20000? Делая проверку прога будет тормозить. Лучше все таки на стадии проектирования БД создать уникальное поле.

[_SERGEYX_]

А если их циклом нужно заносить по 20000? Делая проверку прога будет тормозить

Но если в поле <Name> не может быть двух одинаковых значений и сделать поле <Name> ключевым, то при добавлении записей циклом просто вылетит ошибка "Повторяющиеся значения в индексе...". Я обычно проверку делаю запросом
select count(*) from <table> where name = "mystring"
if count > 0 then...

[Dimasw]

Надо сделать уникальный индекс Фамилия+Имя+Отчество+ДатаРождения и процедуру внесения записи post защитить try...except, чтобы обработать ошибку в случае добавления дубля.

try
table1.Insert;
table1['fam']:='Пупкин';
table1.Post;
except
showmessage('Такая запись имеется');
end;

P.S. секция try сработает только в скомпилированном приложении.

[_SERGEYX_]

секция try сработает только в скомпилированном приложении

Ну, почему, отлично работает при отключенном "Stop On Delphi Exception"

[hackmegrom]

Спасибо за ответы, мне они были важны, но!
Есть и индексное поле и все остальное. Давайте подумаем примерно над такой ситуацией. База с полями index, tovar, vid - это примерно такое (навскидку) 1|Процессор|Интел
Если я буду вводить значения Процессор и AMD то все нормально. А если введу еще раз Процессор и Интел вот тут то мне и надо, чтобы запись не добавилась, либо заменились, чтобы стопятьдесятштук похожих записей не было.
Мне просто нужен такой код 1,2 строчки. Просто это уже дело принципа пошло, не могу я вспомнить настолько легкий код... Где-то я брал с delphiexpert, но сейчас шарить те сайты не могу т.к. скорость 33,6 плюс деньги улетают на лету.

[soleil@mmc]

создай в своей базе уникальный индекс по этому полю и все - дубль не добавится

[BeJIuKuu_Hexo4yxa]

Здесь скорее нужен уникальный индекс по паре полей tovar, vid