sibprogsistem wrote:procedure Form1_Button1_OnAfterClick (Sender: string);
begin
SQLExecute( 'INSERT INTO D (X, Y, Z, id_main) VALUES ("' + Form2.Edit1.Text + '","' + Form2.Edit2.Text + '","' + Form2.Edit3.Text +'", "'+IntToStr(Last_Insert_id)+'")' );
end;
id_man - содержит id записи с которой Вам нужно связать новую запись, где man- имя таблицы с которой связываете запись
Last_Insert_id - получить id последней записи
------------------------------------------------------------------------------------------
Не получается связать по ID. Прописывает Last_ID "0", хотя ID из таблицы main может быть и 1, и 2, и 7. Выдает ошибку.
Скрипт следующий на кнопке:
procedure frmAdd_Button1_OnAfterClick (Sender: TObject);
begin
SQLExecute( 'INSERT INTO parent (p_name_1, p_name_2, p_name_3, phone, id_main) VALUES ("' + frmAdd.add_parent_name_1.Text + '","' + frmAdd.add_parent_name_2.Text + '","' + frmAdd.add_parent_name_3.Text + '","' + frmAdd.add_phone.Text + '", "'+IntToStr(Last_Insert_id)+'")' )
end;
Post's attachments Безымянный.png 19.6 kb, 104 downloads since 2020-09-25