主题：[分享] 事务处理（20140305）

Dim SqlList As List(of String) = Args(0)

Dim cn1 As Connection = Connections("shiwu")   '获取数据库连接,数据源名称按实际修改
Dim cn As New System.Data.OleDb.OleDbConnection(cn1.ConnectionString)
Dim cmd As new System.Data.OleDb.OleDbCommand
cn.Open()
cmd.Connection = cn
Dim j As Integer = SqlList.Count
try
    cmd.Transaction = cn.BeginTransaction()   '开始事务
    For Each sql As String In SqlList
        cmd.CommandText = sql
        cmd.ExecuteNonQuery()
    Next
    cmd.Transaction.Commit()  '提交事务
    cmd.Dispose()    '释放
    cn.Close()       '关闭连接
    Return 2    
Catch ex As Exception
    cmd.Transaction.Rollback()  '回滚事务
    msgbox("操作被取消!")      '返回错误信息
    cmd.Dispose()    '释放
    cn.Close()       '关闭连接
    Return 1      ‘返回值可以用于后续操作
End Try

逛逛大哥，这个函数还看得懂，思路挺清晰的，就是分别执行每一条sql，为何附件2中的内部函数看的我云里雾里的，有啥区别呢？

两个是完全不同的方法

方法1：就是合成SQL语句进行更新

方法2：基本逻辑

          1、生成一个包哈所有更改数据的可更新的DataTable

          2、更新这个DataTable

          3、保存到数据库中