добавление записи в таблицу

[hanny_18]

Здравствуйте! при добавлении записи в таблицу вылезает ошибка все типы совпадают в чем может быть ошибка

  procedure TForm3.Button1Click(Sender: TObject);
begin
DataModule2.IBStoredProc1.parambyname('IDENT').value:=1;
DataModule2.IBStoredProc1.parambyname('FIN_Kod_dom').value:=DataModule2.IBQuery1KOD_DOM.Value;
DataModule2.IBStoredProc1.parambyname('FIN_ID_KV').AsInteger:=DataModule2.IBQuery1ID_KV.Value;
DataModule2.IBStoredProc1.parambyname('FIN_Num_dom').value:=strtoint(Edit1.Text);
DataModule2.IBStoredProc1.parambyname('FIN_Rajon').AsString:=  Edit2.Text;
DataModule2.IBStoredProc1.parambyname('FIN_ulica').AsString:=  Edit3.Text;
try
DataModule2.IBStoredProc1.execproc;
except
showmessage('ГђГҐГ¤Г*êòèðîâГ*Г*ГЁГҐ Г§Г*ГЇГЁГ±ГЁ Г*ГҐ ïðîøëî'+#13+'Ïîâòîðèòü ïîïûòêó');
DataModule2.IBTransaction1.RollbackRetaining;
exit;
end;
DataModule2.IBTransaction1.CommitRetaining;
DataModule2.IBQuery1.Close;
DataModule2.IBQuery1.open;
end;

Без имени-2.jpg

Без имени-3.jpg

[Аватар]

Сфокусируйся на список полей и values в insert-е

[hanny_18]

Сообщение от Аватар

Сфокусируйся на список полей и values в insert-е

в смысле? не понял?

[Аватар]

в смысле?

В прямом - найди там ошибку ))

[hanny_18]

Сообщение от Аватар

В прямом - найди там ошибку ))

порядок полей? или если идет речь о коде дома то он в values не пишется (по крайдей мере так объяснял препод)

[IliaIT]

при вставке последовательность полей разная судя по названию.
последнее поле это ид квартиры, а туда пишется улица

сравнивай последовательность into dom и values, одлжно . о чём тебе сказали выше.

[hanny_18]

с этим разобрался varchar не хотел записывать строку
но возникла другая ошибка
я пытаюсь сначала записать дом в родительскую таблицу он требует наличия записи из дочерней (таблица "кваритра") но по логике сначала нужно записать дом а потом квартиры или я что-то не понимаю

[evg_m]

DataModule2.IBStoredProc1.parambyname('IDENT').value:=1;
DataModule2.IBStoredProc1.parambyname('FIN_Kod_dom').value:=DataModule2.IBQuery1KOD_DOM.Value;
DataModule2.IBStoredProc1.parambyname('FIN_ID_KV').AsInteger:=DataModule2.IBQuery1ID_KV.Value;
DataModule2.IBStoredProc1.parambyname('FIN_Num_dom').value:=strtoint(Edit1.Text);
DataModule2.IBStoredProc1.parambyname('FIN_Rajon').AsString:=  Edit2.Text;
DataModule2.IBStoredProc1.parambyname('FIN_ulica').AsString:=  Edit3.Text;

чтобы это такое было?!

я пытаюсь сначала записать дом в родительскую таблицу он требует наличия записи из дочерней (таблица "кваритра") но по логике сначала нужно записать

что надо по логике СЮДА(выделенно) записать "по логике".
0 это уже что-то
если "НИЧЕГО", то это NULL.