Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.11.2010, 15:22   #1
WALL
Пользователь
 
Регистрация: 04.10.2010
Сообщений: 67
По умолчанию Запись в таблицу

Есть на форме 2 компонента DBLookupComboBox1 и edit нужно при нажатии на кнопку, сохраняла данные в таблицу. У меня сохраняет но когда я пытаюсь еще одну запись добавить он мне перезаписывает.
WALL вне форума Ответить с цитированием
Старый 05.11.2010, 15:31   #2
nervniy
Пользователь
 
Регистрация: 13.05.2009
Сообщений: 52
По умолчанию

код кнопки??
nervniy вне форума Ответить с цитированием
Старый 05.11.2010, 15:38   #3
WALL
Пользователь
 
Регистрация: 04.10.2010
Сообщений: 67
По умолчанию

Код:
   FormatDateTime('mm',Form5.DateTimePicker1.Date);
       Form4.ADOQuery1.Open;
       Form4.ADOQuery1.Insert;
       Form4.ADOQuery1.FieldByName('Фамилия').AsString:=Form5.Edit1.Text;
       Form4.ADOQuery1.FieldByName('Имя').AsString:=Form5.Edit2.Text;
       Form4.ADOQuery1.FieldByName('Отчество').AsString:=Form5.Edit3.Text;
       Form4.ADOQuery1.FieldByName('Дата').AsDateTime:=Form5.DateTimePicker1.Date;
       Form4.ADOQuery1.Post;
       Form4.ADOTable1.Open;
       Form4.ADOTable1.Insert;
       Form4.ADOTable1.FieldByName('Продукт_питания').AsString:=Form5.DBLookupComboBox1.text;
       Form4.ADOTable1.FieldByName('Количество').AsString:=Form5.Edit5.Text;
       Form4.ADOTable1.FieldByName('срок хранения').AsString:=Form5.Edit4.Text;
       Form4.ADOTable1.FieldByName('температура C').AsString:=Form5.Edit6.Text;
       Form4.ADOTable1.Post;
       Form5.Edit5.Clear;
       Edit1.Clear;
       Edit2.Clear;
       Edit3.Clear;
      end;
WALL вне форума Ответить с цитированием
Старый 05.11.2010, 16:05   #4
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Код:
       Edit1.Clear;
       Edit2.Clear;
       Edit3.Clear;
А это не к Form5 относится ?
Как Form5.Edit5.Clear; ?
mihali4 вне форума Ответить с цитированием
Старый 05.11.2010, 16:45   #5
WALL
Пользователь
 
Регистрация: 04.10.2010
Сообщений: 67
По умолчанию

я удалил это осталось ранешь, проблема все равно есть
Код:
 FormatDateTime('mm',Form5.DateTimePicker1.Date);
       Form4.ADOQuery1.Open;
       Form4.ADOQuery1.Insert;
       Form4.ADOQuery1.FieldByName('Фамилия').AsString:=Form5.Edit1.Text;
       Form4.ADOQuery1.FieldByName('Имя').AsString:=Form5.Edit2.Text;
       Form4.ADOQuery1.FieldByName('Отчество').AsString:=Form5.Edit3.Text;
       Form4.ADOQuery1.FieldByName('Дата').AsDateTime:=Form5.DateTimePicker1.Date;
       Form4.ADOQuery1.Post;
       Form4.ADOTable1.Open;
       Form4.ADOTable1.Insert;
       Form4.ADOTable1.FieldByName('Продукт_питания').AsString:=Form5.DBLookupComboBox1.text;
       Form4.ADOTable1.FieldByName('Количество').AsString:=Form5.Edit5.Text;
       Form4.ADOTable1.Post;
       Form5.Edit5.Clear;
       Edit1.Clear;
       Edit2.Clear;
       Edit3.Clear;
      end;
WALL вне форума Ответить с цитированием
Старый 05.11.2010, 17:04   #6
_SERGEYX_
Участник клуба
 
Аватар для _SERGEYX_
 
Регистрация: 07.07.2007
Сообщений: 1,518
По умолчанию

Кажется, ты сам смутно понимаешь то, что пишешь...
Код:
FormatDateTime('mm',Form5.DateTimePicker1.Date);
Что означает эта строка?

Код:
Form4.ADOQuery1.Open;
Зачем пытаться открывать таблицу перед каждым добавлением записи? Разве она была закрыта?

Код:
 Form4.ADOTable1.FieldByName('Продукт_питания').AsString:= Form5.DBLookupComboBox1.text;
Логичнее обращаться не к DBLookupComboBox1.text, а к тому ListField, который подключен к DBLookupComboBox1. При добавлении (удалении, изменении значения поля) записи в эту таблицу DBLookupComboBox1.text останется без изменений пока не сработает DBLookupComboBox1.KeyField:= <Ключевое поле таблицы>;
Таким образом, DBLookupComboBox1.text будет отличаться от реальной записи в таблице.
_SERGEYX_ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
запись в таблицу andrenisimus БД в Delphi 3 28.10.2010 21:30
Запись в таблицу Omg Zomg БД в Delphi 0 30.05.2010 13:08
Запись из формы в таблицу??? DEZuv Microsoft Office Access 2 06.04.2009 10:15