[PunK_HS]

Доброго времени суток!

Подскажите пожалуйста, есть запрос на update, генерированный

Код:

1 2 3 4 5 6 7 8 9 10 11

UPDATE DI_WORKERS SET     NUMBER = :NUMBER,     FIO = :FIO,     FIO_FULL = :FIO_FULL,     ID_UNIT = :ID_UNIT,     ID_OWNER = :ID_OWNER,     DELETE_WORKERS = :DELETE_WORKERS,     DATE_DELETE = :DATE_DELETE WHERE     ID = :OLD_ID

Вот мой кусок из Delphi (не работает)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

old_id : Integer; ... old_id := frm_workers_list.ds_workers.FieldByName('ID').AsInteger; ... if MessageBox(Application.Handle,'Сохранить изменения?',           'Предупреждение',MB_YESNO)=ID_Yes then           begin             frm_workers_list.ds_workers_iudr.ParamByName('OLD_ID').AsInteger := old_id;             frm_workers_list.ds_workers_iudr.Edit;             frm_workers_list.ds_workers_iudr.FieldByName('NUMBER').AsString := Trim(e_tabnumber.Text);             frm_workers_list.ds_workers_iudr.FieldByName('FIO_FULL').AsString := Trim(e_fio_full.Text);             frm_workers_list.ds_workers_iudr.FieldByName('FIO').AsString := Trim(e_fio.Text);             frm_workers_list.ds_workers_iudr.FieldByName('ID_UNIT').AsInteger := lc_units.Value;             frm_workers_list.ds_workers_iudr.FieldByName('DELETE_WORKERS').AsBoolean := cb_delete.Checked;             //frm_workers_list.ds_workers_iudr.ParamValue('OLD_ID').AsInteger := old_id;             frm_workers_list.ds_workers_iudr.Post;                ModalResult := mrOk;           end;

Как правильно осуществить UPDATE?