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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.03.2013, 11:26   #1
Agent2811
Пользователь
 
Регистрация: 05.03.2013
Сообщений: 10
Сообщение добавление в ADOTable

Здравствуйте!подскажите пож-та где ошибка?
Код:
Form4.ADOTable1.Insert;
Form4.ADOTable1.FieldByName('РНН').AsInteger := StrToInt(Edit1.Text);
Form4.ADOTable1.FieldByName('ИИН').AsInteger := StrToInt(Edit2.Text);
Form4.ADOTable1.FieldByName('Фамилия').AsString:=Edit3.Text;
Form4.ADOTable1.FieldByName('Имя').AsString:=Edit4.Text;
Form4.ADOTable1.FieldByName('Отчество').AsString:=Edit5.Text;
Form4.ADOTable1.FieldByName('Год рождения').AsDateTime := StrToDateTime(Edit6.Text);
Form4.ADOTable1.FieldByName('Тип документа').AsString:=ComboBox1.Text;
Form4.ADOTable1.FieldByName('Номер документа').AsInteger:=StrToInt(Edit7.Text);
Form4.ADOTable1.FieldByName('Дата выдачи').AsDateTime := StrToDateTime(Edit8.Text);
Form4.ADOTable1.FieldByName('номер вод. уд').AsString:=Edit10.Text;
Form4.ADOTable1.FieldByName('Выдано').AsDateTime := StrToDateTime(Edit11.Text);
Form4.ADOTable1.FieldByName('стаж вождения').AsInteger:=StrToInt(Edit9.Text);
Form4.ADOTable1.FieldByName('семейное положение').AsString:=ComboBox2.Text;
Form4.ADOTable1.Post;
Form4.ADOTable1.Refresh;
выдает ошибкуБезымянный.jpg
Agent2811 вне форума Ответить с цитированием
Старый 10.03.2013, 11:32   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

текст ошибки с английского перевести не пробовали?
"Невозможно выполнить эту операцию на закрытом датасете (наборе данных)"

Решение.
перед добавлением откройте датасет.

Код:
Form4.ADOTable1.Open;
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Добавление записи в ADOTable Agent2811 Помощь студентам 1 09.03.2013 20:59
Добавление в связанные таблицы ADOQuery и ADOTable Alukard ń_ಶ Помощь студентам 0 07.06.2010 21:11
AdoTable Artruman БД в Delphi 4 03.04.2009 02:07
Как копировать данные из ADOTable в ADOTable? mauar БД в Delphi 1 10.05.2008 16:05
добавление новой колонки в ADOTable abakumov БД в Delphi 2 19.02.2007 15:04