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

Previous  Top  Next

    
 

 

 

Code:

dbMain.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;

 

 

©Drkb::02641

       

Взято с http://delphiworld.narod.ru