[Nostradamus051]

Добрый день!

Есть код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

procedure TForm1.btn15Click(Sender: TObject); begin if (cbb2.ItemIndex=(-1)) or (edt2.text='') then MessageDlg('Çàïîëíåíû íå âñå ïîëÿ!',mtError, [mbOK], 0) else begin   if edt1.text<>'' then begin     dm.ADOtab1.Append;     dm.ADOtab1['name_kat']:=edt1.Text;     dm.ADOtab1.Post;     DM.ADOtab1.Refresh;     end;   if not DM.ADOtab3.Locate('name_tip',edt6.Text,[]) then begin     DM.ADOtab3.Append;     dm.ADOtab3['name_tip']:=edt6.Text;     dm.ADOtab3.Post;     dm.ADOtab3.Refresh;     end;   DM.ADOtab2.Append;   if cbb2.ItemIndex>(-1) then DM.ADOtab2['name_kat']:=cbb2.text   else dm.ADOtab2['name_kat']:=edt1.Text;   DM.ADOtab2['name_kn']:=edt2.text;   DM.ADOtab2['avtor']:=edt3.text;   DM.ADOtab2['god']:=edt4.text;   dm.ADOtab2['name_file']:=edt5.text;   dm.ADOtab2['tip_file']:=edt6.text;   dm.ADOtab2['data']:=date();   dm.ADOtab2.Post;   end; end;

При добавлении новой записи (если создавать новую запись в adotab1['name_kat']) вылетает ошибка (во вложении).
И это странно, т.к. при добавлении новой записи в adotab3['name_tip'] все нормально работает и сохраняет.
В tab1 'name_kat' - ключ, в tab3 'name_tip' - ключ. Связаны с tab2 как один ко многим.
Ошибка вылетает на строке dm.ADOtab2.Post;
Для полной ясности во вложении проект и бд.
Пароль "2014".

[M.A.D.M.A.N.]

Большой совет: не пользуйся этим дермищем, используй ADOCommand с параметризованным запросом "insert into tablename(field1, field2) values(:value1, :value2)".

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

[Nostradamus051]

Сообщение от M.A.D.M.A.N.

Большой совет: не пользуйся этим дермищем, используй ADOCommand с параметризованным запросом "insert into tablename(field1, field2) values(:value1, :value2)".

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

В том то и дело, что запись создается в первой таблице.. Но сохранять запись во второй не хочет.
В то же время при новой записи в третей таблице - все работает.
Ладно, попробую разобраться в adocommand.

[M.A.D.M.A.N.]

Транзакция на тот момент завершена?

[Nostradamus051]

Какая-то хрень.. Методом тыка пришел к такому изменению:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

DM.ADOtab2.Append; dm.ADOtab2['name_kat']:=cbb2.Items.Strings[0]; DM.ADOtab2['name_kn']:=edt2.text; DM.ADOtab2['avtor']:=edt3.text; DM.ADOtab2['god']:=edt4.text; dm.ADOtab2['name_file']:=edt5.text; dm.ADOtab2['tip_file']:=edt6.text; dm.ADOtab2['data']:=date(); dm.ADOtab2.Post; dm.ADOtab2.Edit; dm.ADOtab2['name_kat']:=edt1.Text; dm.ADOtab2.Post;

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