Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 24.06.2014, 08:43
Посол_вон Посол_вон вне форума
Прохожий
 
Регистрация: 22.05.2014
Сообщения: 11
Версия Delphi: delphi
Репутация: 10
По умолчанию Добавление с 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  
Старый 24.06.2014, 19:48
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Попробуйте заменить ADOQuery1.Insert; на ADOQuery1.Append;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:12.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter