|
#1
|
|||
|
|||
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; |
#2
|
||||
|
||||
А какие из этих полей у тебя логические?
|
#3
|
|||
|
|||
В том то и дело, что нету у меня логических полей! Что за хрень такая! Сижу второй день, честно говоря, и мыслей не осталось
Только числовые и строковые Всё! заполняется форма ввода, кнопка записи и больше никаких изысков. ur1,ur2,ur3,ur4,polz - глобальные. Они имеют конкретное значение при входе в процедуру, как и положено Последний раз редактировалось Red_Garry, 19.10.2012 в 14:09. |
#4
|
||||
|
||||
Цитата:
Код:
form4.Table_Rab.FieldByName('...').AsString := ...;// Для строковых form4.Table_Rab.FieldByName('...').AsFloat := ...;// Для дробных form4.Table_Rab.FieldByName('...').AsInteger := ...;// Для целых form4.Table_Rab.FieldByName('...').AsDateTime := ...;// Для дат // и т.д. Кстати, а почему здесь используются и Insert и Edit?: Цитата:
|
#5
|
|||
|
|||
Так заработало. Спасибо большое! Короче, век живи век учись
|
#6
|
||||
|
||||
Цитата:
|