Помогите пожалуйста, у меня не работает механизм добавления строки в БД. Пишет ошибку :""The insert failed because a column definition includes validation constraints.validation error for column IDVR, value "*** null ***"."
Вот код добавления:
Код:
procedure TfmNew.bbOkClick(Sender: TObject);
begin
DataModule2.DSRaboty.Insert;
DataModule2.DSRaboty.FieldByName('IDR').AsInteger := 12;
DataModule2.DSRaboty.FieldByName('IDPREPOD').AsInteger := DBLookupComboBox3.KeyValue;
DataModule2.DSRaboty.FieldByName('IDVR').AsInteger := DBLookupComboBox1.KeyValue;
DataModule2.DSRaboty.FieldByName('IDVMR').AsInteger := DBLookupComboBox2.KeyValue;
DataModule2.DSRaboty.FieldByName('Nazvanier').AsString := Memo1.Text;
DataModule2.DSRaboty.FieldByName('CountListovR').AsInteger := StrToInt(Edit4.Text);
DataModule2.DSRaboty.FieldByName('IDMINR').AsInteger := DBLookupComboBox4.KeyValue;
DataModule2.DSRaboty.FieldByName('Godr').AsDateTime := StrToDate(Edit5.Text);
ShowMessage(DBLookupComboBox1.KeyValue);
DataModule2.DSRaboty.Post;
end;
Admin: Теги, и еще раз теги!
Пробовал сделать через sql - запрос, все равно выдает ту же ошибку.
sql - запрос :
insert into metodinauchnraboty(IDR, NAZVANIER, COUNTLISTOVR, GODR, IDVR, IDPREPOD, REITINGNR, IDMINR, IDVMR)
VALUES(:IDR, :NAZVANIER, :COUNTLISTOVR, :GODR, :IDVR, :IDPREPOD, :REITINGNR, :IDMINR, :IDVMR);
В Ibexpert через этот же запрос запись вставляется нормально...