Связанные таблицы

@Bekonai · Регистрация: 15.04.2010

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

Здравствуйте. Помогите плиз чайнику. У меня 2 таблицы связанные друг с другом(один ко многим). И я через форму добавляю данные.
Фото:
http://pics.kz/s4/c6/0d/fc/c60... 5f4146.jpg
Но когда я нажимаю на кнопку, все поля полностью не заполняется. Я здесь загрузил маленький видео ролик, посмотрите пожалуйста. http://files.gameworld.kz/ntcmrn71kv.html
Заранее большое спасибо.
А код у меня такой:

Delphi

   frmdolzhniki.ADOTable1.Insert;
   frmdolzhniki.ADOTable2.Insert;
   frmdolzhniki.ADOTable1.Edit;
   frmdolzhniki.ADOTable2.Edit;
   FrmDolzhniki.ADOTable2.FieldByName('Naimenovanie').AsString:=Frmprodatdolg.DBEdit1.Text;
   FrmDolzhniki.ADOTable2.FieldByName('Kolichesnvo').AsString:=Frmprodatdolg.Edit1.Text;
   FrmDolzhniki.ADOTable2.FieldByName('Cena').AsString:=Frmprodatdolg.DbEdit2.Text;
   FrmDolzhniki.ADOTable1.FieldByName('Fio').AsString:=Frmprodatdolg.DBEdit3.Text;
   FrmDolzhniki.ADOTable1.FieldByName('Adres').AsString:=Frmprodatdolg.Edit3.Text;
   FrmDolzhniki.ADOTable1.FieldByName('Domtel').AsString:=Frmprodatdolg.Edit4.Text;
   FrmDolzhniki.ADOTable1.FieldByName('Mobtel').AsString:=Frmprodatdolg.Edit5.Text;

@Чёрный Медведь · 30.09.2010, 11:40

Добрый день. Ролик посмотреть не могу, т.к. на работе, однако если код добавления записи приведён полностью, то он неправильный.
Для начала обычно нужен старт транзакции, т.к. Ваши действия приведут к изменению данных в базе. Это делается как то так ADOConnection.BeginTrans;
Далее после вызова ADOTable1.Insert никакие ADOTable1.Edit не нужны, т.к. таблица итак создаёт новую строку и переводит её в режим для редактирования.
Также после заполнения полей не забудьте вызвать ADOTable1.Post, чтобы закрепить изменения в кэше и для подтверждения транзакции ConnectionSQL.CommitTrans чтобы закрепить изменения в базе.

@Lord_Voodoo · 30.09.2010, 12:04

Bekonai, сразу два замечания:
1) это где вы такое вычитали? вы сначала переводите таблицу в режим добавления, а потом сразу же в режим редактирования... даже затрудняюсь спрогноризовать, что оно там себе делает...

Delphi

   frmdolzhniki.ADOTable1.Insert;
   frmdolzhniki.ADOTable2.Insert;
   frmdolzhniki.ADOTable1.Edit;
   frmdolzhniki.ADOTable2.Edit;

а где команды Post для таблиц, чтобы данные записались?

@Bekonai · 30.09.2010, 12:41 **[ТС]**

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

Bekonai, сразу два замечания:
1) это где вы такое вычитали? вы сначала переводите таблицу в режим добавления, а потом сразу же в режим редактирования... даже затрудняюсь спрогноризовать, что оно там себе делает...

Delphi

   frmdolzhniki.ADOTable1.Insert;
   frmdolzhniki.ADOTable2.Insert;
   frmdolzhniki.ADOTable1.Edit;
   frmdolzhniki.ADOTable2.Edit;

а где команды Post для таблиц, чтобы данные записались?

Если не ставить Edit, тогда выходить ошибка, что типа таблица открыта только для чтения.
Команда Post есть, просто я сюда неправильно скопировал. Я уже изменил форму и у меня другой вопрос, если не трудно не могли бы мне помочь. У меня проблема была в том, что в 1-ю таблицу все данные заполняется, во 2-ю нет. Теперь можно ли из другой таблицы взять данные и вставить в эту 2-ю таблицу. Мне нужно взять из другой таблицы только поля Найменование и Цена?

@Lord_Voodoo · 30.09.2010, 13:15

Bekonai, а зачем такие премудрости? вы просто при записи данных в эти таблицы и берите нужную вам инфу и пишите сразу...

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

Если не ставить Edit, тогда выходить ошибка, что типа таблица открыта только для чтения.

такого быть не может... что-то вы неправильно делаете...

@Чёрный Медведь 233 / 95 / 15 Регистрация: 31.12.2009 Сообщений: 224
	30.09.2010, 11:40	2
	Добрый день. Ролик посмотреть не могу, т.к. на работе, однако если код добавления записи приведён полностью, то он неправильный. Для начала обычно нужен старт транзакции, т.к. Ваши действия приведут к изменению данных в базе. Это делается как то так ADOConnection.BeginTrans; Далее после вызова ADOTable1.Insert никакие ADOTable1.Edit не нужны, т.к. таблица итак создаёт новую строку и переводит её в режим для редактирования. Также после заполнения полей не забудьте вызвать ADOTable1.Post, чтобы закрепить изменения в кэше и для подтверждения транзакции ConnectionSQL.CommitTrans чтобы закрепить изменения в базе. 1

@Lord_Voodoo Супер-модератор 8783 / 2536 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	30.09.2010, 13:15	5
	Bekonai, а зачем такие премудрости? вы просто при записи данных в эти таблицы и берите нужную вам инфу и пишите сразу... Сообщение от Bekonai Если не ставить Edit, тогда выходить ошибка, что типа таблица открыта только для чтения. такого быть не может... что-то вы неправильно делаете... 0