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中的内部函数看的我云里雾里的,有啥区别呢?