主题：[原创]事务处理函数——感谢逛逛、狐爸、bin、有点甜

已经写好了，经测试可以用 '向服务器提交数据的事务函数  Args(i) 表示SQL 语句 '获取数据库连接 Dim cn As New System.Data.OleDb.OleDbConnection(Connections("EAERP").ConnectionString) Dim cmd As new System.Data.OleDb.OleDbCommand cn.Open() cmd.Connection = cn Try     cmd.Transaction = cn.BeginTransaction()     For i As Integer =0 To args.length-1         cmd.CommandText = args(i)         cmd.ExecuteNonQuery     Next     cmd.Transaction.Commit()      Catch ex As Exception     cmd.Transaction.Rollback()     cmd.Dispose()    '释放     CN.CLOSE()     MessageBox.Show(ex.tostring,"向服务器提交数据错误!",MessageBoxButtons.OK)     Return False End Try cmd.Dispose()    '释放 CN.CLOSE() Return True

其中，EAERP替换成你自已的外部数据源

本来想搞个回复可见，好像我还没有这个权限，不久这个贴子，会很快沉下去，建议狐爸置顶，方便对有事务要求的童鞋有帮助！