yaosansi's Blog

On   Error   Resume   Next   

conn.begintrans   
    
 conn. Execute   strSQL  
   
If  conn.Errors.Count= 0 Then
     conn.CommitTrans'事物结束 
   Else
     conn.RollbackTrans
     conn.Errors.Clear
 End If 

....     '连接数据库  
  conn.open  
  conn.BeginTrans  
  .....      
  '此后,在每次数据库操作的时候,判断   err.number   <>   0,如果是true,   Conn.RollBackTrans  
  '直到两个表都操作完成后,在recordset关闭后,再:  
  Conn.CommitTrans  
  ....   '关闭数据库连接

使用存储过程  
  begin   tran  
   
  commit   tran  
   
  rollback   tran