Показать сообщение отдельно
  #1  
Старый 19.10.2012, 13:52
Red_Garry Red_Garry вне форума
Начинающий
 
Регистрация: 07.07.2011
Сообщения: 126
Репутация: 10
По умолчанию ADOTable - ошибка

Здравствуйте!
Имею такой вот элементарный код записи строки в таблицу access-овской базы данных:
Код:
procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
form4.Table_Rab.Insert;
form4.Table_Rab.Edit;
form4.Table_Rab.FieldValues['n_r'] := form2.Memo1.Text;
form4.Table_Rab.FieldValues['obgr'] := form2.Memo2.Text;
form4.Table_Rab.FieldValues['ur1'] := ur1; 
form4.Table_Rab.FieldValues['ur2'] := ur2;
form4.Table_Rab.FieldValues['ur3'] := ur3;
form4.Table_Rab.FieldValues['ur4'] := ur4;
form4.Table_Rab.FieldValues['kto'] := form2.ComboBox1.Text;
form4.Table_Rab.FieldValues['v_r'] := form2.ComboBox2.Text;
form4.Table_Rab.FieldValues['dk'] := form2.Edit5.Text;
form4.Table_Rab.FieldValues['tz_GS'] := StrToFloat(form2.Edit1.Text);
form4.Table_Rab.FieldValues['kil_GS'] := StrToInt(form2.Edit2.Text);
form4.Table_Rab.FieldValues['obs_PS_r'] := StrToFloat(form2.Edit3.Text);
form4.Table_Rab.FieldValues['kil_PS_r'] := StrToInt(form2.Edit4.Text);
form4.Table_Rab.FieldValues['mat_PS'] := StrToFloat(form2.Edit6.Text);
form4.Table_Rab.FieldValues['obs_PS_i'] := StrToFloat(form2.Edit7.Text);
form4.Table_Rab.FieldValues['kil_PS_i'] := StrToFloat(form2.Edit8.Text);
form4.Table_Rab.FieldValues['naim'] := form2.Edit9.Text;
form4.Table_Rab.FieldValues['isp'] := polz;
form4.Table_Rab.FieldValues['tim'] := now;
form4.Table_Rab.Post;
end;
Ошибку, которая возникает прилагаю. Странность в том, что каждое из этих полей пишется без проблем отдельно. Ну, т.е. если закомментировать остальные и оставить запись в одно поле или даже несколько. Как только пытаюсь писать ВСЕ поля записи вылазит такое! Может в технологии ADO есть ограничение на количество полей записи базы?
Изображения
Тип файла: jpg error.JPG (25.2 Кбайт, 5 просмотров)
Ответить с цитированием