Работа с транзакциями

Советы » Компоненты и Базы данных » Работа с транзакциями

bMain.StartTransaction; try


  spAddOrder.ParamByName('ORDER_NO').AsInteger := OrderNo;   spAddOrder.ExecProc;   for

i := 0 to

PartList.Count - 1 do

  begin


     spReduceParts.ParamByName('PART_NO').AsInteger := PartRec(PartList.Objects[i]).PartNo;      spReduceParts.ParamByName('NUM_SOLD').AsInteger := PartRec(PartList.Objects[i]).NumSold;   end

;
  dbMain.Commit;
except


  dbMain.RollBack;
  raise

;
end

;
 

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com