已经写好了，经测试可以用'向服务器提交数据的事务函数 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
加好友 
发短信
Post By：2014/2/21 8:13:00 [只看该作者]
