主题：[分享] 事务处理（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中的内部函数看的我云里雾里的，有啥区别呢？