        ____________581

Databasel->StartTransaction() ;

    (ExecSQL  .)

 :    Databasel->Conimit();

   Databasel->Rollback();

   Rollback  ,   
 .  ,  , 
 ,    ,     .

         -
      . 
      SQL   . -
,        -
     (,    
 I   2):

Tablel->First  ;

while (! Tablel->Eof)
{
if (Tablel->FieldByName("Dep")->AsString == " 2")

Tablel->Edit() ;

Tablel->FieldByName("Dep")->AsString = " I";

t
Tablel->Next() ;

}
Tablel->First() ;

     ,   -
   .     
  Update.     ,     
          -
.        - 
,     ,    .   -
,     Start/Transaction.  
 .

         
Query  :

UPDATE Pers SET Dep='Uex 1' WHERE Dep=' 2'

         ,  
    ,      ,  
   - .

        
,         -
     .

       
,        -
    . ,   Pers,  
    ,  ,    
   ,     :

UPDATE Pers SET Dep=' 
WHERE (Num BETWEEN 1 AND 10000)and(Dep=' 2')



UPDATE Pers SET Dep='Uex 
WHERE (Num > 10000)and(Dep=' 2')