[Red_Garry]

Здравствуйте!
Имею такой вот элементарный код записи строки в таблицу access-овской базы данных:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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 есть ограничение на количество полей записи базы?

[poli-smen]

А какие из этих полей у тебя логические?

[Red_Garry]

В том то и дело, что нету у меня логических полей! Что за хрень такая! Сижу второй день, честно говоря, и мыслей не осталось

Только числовые и строковые Всё!

заполняется форма ввода, кнопка записи и больше никаких изысков. ur1,ur2,ur3,ur4,polz - глобальные. Они имеют конкретное значение при входе в процедуру, как и положено

[poli-smen]

Сообщение от Red_Garry

В том то и дело, что нету у меня логических полей! Что за хрень такая! Сижу второй день, честно говоря, и мыслей не осталось

Только числовые и строковые Всё!

заполняется форма ввода, кнопка записи и больше никаких изысков. ur1,ur2,ur3,ur4 - глобальные. Они имеют конкретное значение при входе в процедуру, как и положено

Попробуй позаменять FieldValues, на:

Код:

1 2 3 4 5

form4.Table_Rab.FieldByName('...').AsString := ...;// Для строковых form4.Table_Rab.FieldByName('...').AsFloat := ...;// Для дробных form4.Table_Rab.FieldByName('...').AsInteger := ...;// Для целых form4.Table_Rab.FieldByName('...').AsDateTime := ...;// Для дат // и т.д.

Можешь по одному, чтобы выяснить где глюк

Кстати, а почему здесь используются и Insert и Edit?:

Сообщение от Red_Garry

Код:

Обычно достаточно чего-то одного: для вставки новой записи - Insert (или Append), для редактирования текущей записи - Edit.

[Red_Garry]

Так заработало. Спасибо большое! Короче, век живи век учись

[poli-smen]

Сообщение от Red_Garry

Так заработало. Спасибо большое! Короче, век живи век учись

Интересно в чём же был глюк. Почему была попытка преобразовать строку в логическое если в таблице нет полей логического типа...