送分100分：求事务控制的代码格式

Question

求事务控制的代码格式（VB6）

Answer 1

lz是指数据库的事务控制？'先打开数据库连接conn   
  Err.clear   
  conn.BeginTrans   
  '插入、更新操作   
  conn.execute   "insert   into   table1(col1,col2)   values(value1,value2)"   
  conn.execute   "update   table2   set   co11=value1,col2=value2"   
  if   Err   then   
          conn.RollbackTrans'回滚   
  else   
          conn.CommitTrans'提交更新   
  end   if   
  conn.close   
  set   conn=nothing

Answer 2

  Err.clear     On   Error   GoTo   Errhandle   
            
  cn.BeginTrans   '开始事务    '插入、更新操作   
  cn.execute   "insert   into   table1(col1,col2)   values(value1,value2)"   
  cn.execute   "update   table2   set   co11=value1,col2=value2"     
  cn.CommitTrans   '提交事务   
                        
  Exit   Sub   
Errhandle:    
   cn.RollbackTrans   '回滚事务
   
End   Sub   
    

Answer 3

VB的事务处理包括以BeginTrans开始，以CommitTrans或Rollback结尾的多条数据库操作指令。事务处理除了能很好的保证数据库的完整性以外，同时能大大提高数据库批量更新的效率。这是因为如果数据库更新操作没有使用事务处理，则每次Update操作都会引起数据库写盘一次。使用事务处理后，更新只在内存缓冲区内进行，执行CommitTrans时才将所有修改一次写回到磁盘中。

Answer 4

Dim cnn As New ADODB.Connection
...
...
     cnn.BeginTrans '开始新事务
     cnn.Execute sql
     If cnn.Errors.Count > 0 Then
       cnn.RollbackTrans
       MsgBox "建立数据库时出错，检查磁盘空间是否太小，重启计算机，再试。"
       Exit Sub
     Else
       cnn.CommitTrans
     End If

Answer 5

打开数据库链接的代码使用这个：http://download.csdn.net/source/1498324