A
По памяти там не сложно вроде
Size: a a a
2020 February 03
DM
Сюда скриншот )
DB
можно видео экрана как идет проход по дизасму. bandicam хорошо справится
AZ
народ, кто тут спец по firedac. нужна подсказка :)
AZ
вобщем идет редактирование датасета через TFDCustomCommand, операция вставки записи, как мне потом получить значение автоинкрементного поля, как параметр оно вроде не достается
AZ
INSERT INTO PEOPLE
(FAM, IM, OT, BIRTH)
VALUES (:NEW_FAM, :NEW_IM, :NEW_OT, :NEW_BIRTH);
SELECT LAST_INSERT_AUTOGEN() AS ID
(FAM, IM, OT, BIRTH)
VALUES (:NEW_FAM, :NEW_IM, :NEW_OT, :NEW_BIRTH);
SELECT LAST_INSERT_AUTOGEN() AS ID
AZ
база sqlite
SB
last_insert_rowid()
AZ
просто запросом?
VA
вобщем идет редактирование датасета через TFDCustomCommand, операция вставки записи, как мне потом получить значение автоинкрементного поля, как параметр оно вроде не достается
AZ
Вить, пробовал, null возвращает при том что запись в БД попала
VA
Вить, пробовал, null возвращает при том что запись в БД попала
точно работало. в транзакции получаешь это значение?
AZ
procedure TPeopleService.Add(APerson: TPerson);
var
Cmd: TFDCustomCommand;
begin
Cmd := FDM.updPeople.Commands[arInsert];
TFireDACUtils.ObjectToParameters(Cmd.Params, APerson, 'NEW_');
Cmd.Execute;
APerson.ID := cmd.Connection.GetLastAutoGenValue('id');
end;
var
Cmd: TFDCustomCommand;
begin
Cmd := FDM.updPeople.Commands[arInsert];
TFireDACUtils.ObjectToParameters(Cmd.Params, APerson, 'NEW_');
Cmd.Execute;
APerson.ID := cmd.Connection.GetLastAutoGenValue('id');
end;
AZ
и вот тут NULL
VA
попробуй в транзакцию обернуть.
AZ
нет, не помогло
VA
нет, не помогло
попробуй имя убрать. просто передавай пустую строку в аргумент
АР
Dmitry Mozulyov
Сюда скриншот )
VA
попробуй имя убрать. просто передавай пустую строку в аргумент
для sqlite не должно имя указывать согласно доке
AZ
да ты прав