Изменения не были успешно внесены из за повторяющихся значений в индексе

[Sheeby]

Доброго времени суток!
Наткнулся на траблу с добавлением в базу новых данных. В самой базе у меня на это поле стоит запрет на совпадения... Когда добавляю новую запись, которой в базе нет, то реакция нормальная. И добавляются эти данные. А если пытаюсь добавить данные, которые уже содержатся в таблице, то выскакивает ошибка
01.jpg
и отключается dataset. когда тыркаю на таблицу вылезает еще одна ошибка
02.png

даю код

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
try
  if (Trim(Edit1.Text)='') then
begin
    exit;
end;
  if form1.ADOQuery1.Locate('Марка',Edit1.Text,[]) then
begin
    form3.show;
    form2.Enabled:=false;
    form3.Label1.Caption:='Запись уже существует!';
end
else begin
    form1.ADOQuery1.Insert;
    form1.ADOQuery1.FieldByName('Марка').AsString:=Edit1.Text;
    form3.show;
    form2.Enabled:=false;
    form3.Label1.Caption:='Запись успешно добавлена';
    Edit1.Clear;
end;
except
  on e:Exception do
end;
form1.ADOTable1.Active:=false;
form1.ADOTable1.Active:=true;
form1.DBGrid2.Columns[0].Visible := False;
form1.DBGrid3.Columns[0].Visible := False;
end;

я так понимаю каким-то макаром пропускается целый кусок кода. а конкретно вот этот:

  if form1.ADOQuery1.Locate('Марка',Edit1.Text,[]) then
begin
    form3.show;
    form2.Enabled:=false;
    form3.Label1.Caption:='Запись уже существует!';
end

что не так, подскажите, пожалуйста. спасибо заранее!

[Dozent]

ни совсем понятно, какое поле у вас ключевое? что за база какая структура таблицы?

[Sheeby]

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

ни совсем понятно, какое поле у вас ключевое? что за база какая структура таблицы?

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

[Stilet]

что не так, подскажите

Все не так. У тебя есть ADOQuery, а ты оперируешь методами, вместо того чтоб работать SQL командами. Зачем?

[evg_m]

form1.ADOQuery1.Locate ищет не во всей таблице (базе), а только среди тех которые были получены (отобраны) при ADOQuery1.SQL.Text:='select....wher e .....'.

В отобранных (select ...where ... ) нет, Locate не находит. идем на добавление
в базе есть, получаем ... то что получаем.

что делать
1. проверять именно БД.

query2.SQL.text:='select ... where  ...=:mrk';
query2.parameters.paramterbyname('mrk').value:=Edit1.Text;
query2.open;
if query2.isempty then begin
  query2.insert;
  ....
  query2.Post;
end
else 
  showmessage('уже есть');

2. вообще не проверять и положиться на проверку БД (получать правильное exception) которое правильно обрабатывать.

try
  adoquery1.insert;
.................
  adoquery1.post;
except
on e: ??? EADOError   do begin
  adoquery1.Cancel;
end;

[Sheeby]

если так, то снова ошибка вылетает

try
  Form1.ADOQuery1.insert;
  form1.ADOQuery1.FieldByName('Марка').AsString:=Edit1.Text;
  form3.show;
  form2.Enabled:=false;
  form3.Label1.Caption:='Запись успешно добавлена';
  Edit1.Clear;
  Form1.ADOQuery1.post;
except
on e: EADOError   do begin
  Form1.ADOQuery1.Cancel;
end;

познаний в области БД у меня не столь много, конечно... поясните, пожалуйста, что ставить вместо точек и что такое "mrk" в ('select ... where ...=:mrk')

[Sheeby]

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


хотя не... чет я погорячился... сперва работало, потом расхотело почему-то....

[Sheeby]

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

[eval]

зачем же добавлять существующую?

[Sheeby]

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

зачем же добавлять существующую?

ну судя по Вашим рассуждениям - зачем тогда вообще добавлять новые записи?