|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Добавление с DBCombobox
Делаю программу "Электронная библиотека", и получился косяк на самом важно элементе, выдача книги.
(Делаю с помощью access) вот форма "Выдача книг" На ней dblookupcombobox берет данные с других таблиц (Клиенты и Книги) и автоматически заполняет bdedit. в dbcombobox в integer написано (Выдана) т.е предназначена для создавания статуса книги. Я выбираю фамилию(автоматически заполняются данные:имя, отчество, телефон), далее выбираю название книги (автоматически заполняются данные:автор), выбираю в "статус" Выдана. после чего в таблице: и так далее т.е заполняет только выше,не понимаю почему, вот код на кнопку "Выдача": Код:
ADOQuery1.Insert; ADOQuery1.FieldByName('famp').AsString:=DBLookupComboBox1.Text; ADOQuery1.FieldByName('imap').AsString:=DBEdit1.Text; //Добавит содержимое DBedit1 в колонку imap ADOQuery1.FieldByName('ot4p').AsString:=DBEdit2.Text; ADOQuery1.FieldByName('na3').AsString:=DBLookupComboBox2.Text; //Добавит содержимое DBedit2 в колонку ot4p ADOQuery1.FieldByName('avtor').AsString:=DBEdit3.Text; ADOQuery1.FieldByName('telefp').AsString:=DBEdit4.Text; ADOQuery1.FieldByName('datav').AsString:= datetostr(DateTimePicker1.date); ADOQuery1.FieldByName('status').AsString:=DBComboBox1.Text; ADOQuery1.Post; //Сохранение в БД DBEdit1.Text:=''; DBEdit2.Text:=''; DBEdit3.Text:=''; DBEdit4.Text:=''; Ребят помогите, срочно надо, задавайте вопросы я весь день буду тут, ждать ответа. Последний раз редактировалось Admin, 24.06.2014 в 19:18. |
#2
|
||||
|
||||
Попробуйте заменить ADOQuery1.Insert; на ADOQuery1.Append;
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |