Ошибки при добавлении записей в БД

@Ирина Ирина · Регистрация: 05.11.2015

Author24 — интернет-сервис помощи студентам

Доброго времени суток, в моем проекте возникла ошибка добавления записи в бд. БД на Access, я связываю с делфи при помощи ADO conecthion, связывается и выводит без проблем. В проекте три таблицы Родители - Дети - Группы (схема связи рис 1), добавление записи произвожу сразу в две таблицы Дети и Родители(листинг кода добавления ниже). При таком варианте связи выходит ошибка (рис 2), учитывая, что при добавлении, в таблице группа имеются несколько записей и добавляя нового ребенка я ссылаюсь на код уже добавленной группы. Когда я изменяю схему связи (рис 3), и пробую добавить запись то возникает следующая ошибка (рис 4). Прошу помощи знатоков. Заранее спасибо. P.S. Также были попытки добавить запись при помощи DBNavigator, но результат тот же.

Delphi

 TForm2.Button1Click(Sender: TObject);
begin
//try
if (Trim(Edit1.Text)='') or (Trim(Edit2.Text)='') or (Trim(Edit3.Text)='')
or (Trim(Edit4.Text)='') or (Trim(Edit5.Text)='') or (Trim(Edit6.Text)='')
or (Trim(Edit7.Text)='') or (Trim(Edit8.Text)='') or (Trim(Edit9.Text)='')
or (Trim(Edit11.Text)='') or (Trim(Edit12.Text)='') or (Trim(Edit13.Text)='')
or (Trim(Edit14.Text)='') or (Trim(Edit15.Text)='')
then
ShowMessage('Заполните пустые поля')
else begin
form1.ADOTable1.Insert;
form1.ADOTable1.FieldByName('Фамилия').AsString:=Edit1.Text;
form1.ADOTable1.FieldByName('Имя').AsString:=Edit2.Text;
form1.ADOTable1.FieldByName('Отчество').AsString:=Edit3.Text;
form1.ADOTable1.FieldByName('Дата рождения').AsDatetime:=StrToDate(Edit4.Text);
form1.ADOTable1.FieldByName('Школа').AsInteger:=StrToInt(Edit5.Text);
form1.ADOTable1.FieldByName('Класс').AsInteger:=StrToInt(Edit6.Text);
form1.ADOTable1.FieldByName('Документ удостоверяющий личность').AsString:=Edit7.Text;
form1.ADOTable1.FieldByName('Код родителя').AsInteger:=StrToInt(Edit6.Text);
form1.ADOTable1.FieldByName('Код группы').AsInteger:=StrToInt(Edit7.Text);
form3.ADOTable1.Insert;
form3.ADOTable1.FieldByName('Код родителя').AsInteger:=StrToInt(Edit6.Text);
form3.ADOTable1.FieldByName('Фамилия').AsString:=Edit11.Text;
form3.ADOTable1.FieldByName('Имя').AsString:=Edit12.Text;
form3.ADOTable1.FieldByName('Отчество').AsString:=Edit13.Text;
form3.ADOTable1.FieldByName('Адрес').AsString:=Edit14.Text;
form3.ADOTable1.FieldByName('Телефон').AsString:=Edit15.Text;
Edit1.clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Edit8.Clear;
Edit9.Clear;
Edit11.clear;
Edit12.Clear;
Edit13.Clear;
Edit14.Clear;
Edit15.Clear;
Form1.ADOtable1.Active:=true;
form1.ADOtable1.Post;
Form3.ADOtable1.Active:=true;
form3.ADOtable1.Post;
end;
end;

@qwertehok · 03.05.2016, 17:21

и в чем вопрос?

@Ирина Ирина · 03.05.2016, 17:24 **[ТС]**

Как избавиться от данных ошибок и нормально добавить записи в БД.

@qwertehok · 03.05.2016, 17:27

Сообщение от Ирина Ирина

Как избавиться от данных ошибок

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

Сообщение от Ирина Ирина

нормально добавить записи в БД.

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

@qwertehok 5489 / 4404 / 1076 Регистрация: 29.08.2013 Сообщений: 27,597 Записей в блоге: 3
	03.05.2016, 17:21	2
	и в чем вопрос? 0

@Ирина Ирина 0 / 0 / 0 Регистрация: 05.11.2015 Сообщений: 2
	03.05.2016, 17:24 [ТС]	3
	Как избавиться от данных ошибок и нормально добавить записи в БД. 0

@qwertehok 5489 / 4404 / 1076 Регистрация: 29.08.2013 Сообщений: 27,597 Записей в блоге: 3
	03.05.2016, 17:27	4
	Сообщение от Ирина Ирина Как избавиться от данных ошибок нужно правильно внести данные в таблицу - в вашем случае что бы записи были связаны Сообщение от Ирина Ирина нормально добавить записи в БД. вам обязательно ограничение на уровне БД? ведь можно не проставлять связи в аксессе, а просто учесть их при разработке запросов 0