[exy]

Помогите пожалуйста, у меня не работает механизм добавления строки в БД. Пишет ошибку :""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 через этот же запрос запись вставляется нормально...

[Страдалецъ]

Возможно вам поле IDR не надо указывать в запросе т.к. оно счетчик и заполняется автоматом. Или-же правилами целостности запрещен ввод в поле IVDR пустых значений. Смотрите, что у вас DBLookupComboBox1.KeyValue возвращает.

[TOJluK]

Внешний ключ не дает записать значение. Проверь DBLookupComboBox1.KeyValue, что- то он тебе ничего не возвращает.

[exy]

В том то и дело что с помощью сендмессаг смотрю и получаю правильные значения
DBLookupComboBox1.KeyValue и всех остальных тоже, но вот почему не хочет в базу записываться не понимаю.
Все лукап комбо боксы выдают правильные кей валуе, но на все жалуется делфи, просто видимо IDVR - первое с чем он сталкивается...

[lmikle]

Для начала просто укажи значения для этих полей не через компонент, а через константы и проверь, что работает. может у тебя запрос на обновление неправильный и поле просто пропущено.

Второй вариант. использовать метод AppendRecord, который деалет все за одну операцию.

[exy]

Пытаюсь заполнить вручную через константы - результат тот же...

[lmikle]

Проверяй запросы на добавление.

[exy]

Всем спасибо за помощь!!! Проблема была решена изменением стандартных делфи запросов на добавление! IMIKLE - огромный респект!

p.s. Admin: Тему можно удалять