Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



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

Если пpогpаммист в 09.00 утpа уже на pаботе, значит он ещё на pаботе...


 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS