狐爸看过来，事务处理 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

狐爸，2014版，还是没有事务处理，参照论坛上的做了一个事务函数，还是有问题，一执行整个SQL 就死在那里，

所以，狐爸，狐表一定要支持事务（SQL SERVER 事务），或者你写一个示例，我参考一下

卡在这里有半年了，没有办法进行下去了（已经买了两个开发版，本来近期还准备再买一个，老板已经签字了，如果还是做不出来，想放弃了。整了很久了，唉！）

已经用ACCESS +SQL SERVER 2008 R2 为公司开发了一个ERP产品（从网页里的了解更多对比看来，我原来的ERP产品，比他们复杂多了），，由于ACCESS不能编译，所有转向了FOXTABLE

我用得就是逛逛的例子改得，执行多条SQL语句，会造成SQL SERVER服务器无响应，函数如下：

'向服务器提交数据的事务函数 Args(i) 表示SQL 语句

'Dim cn As New System.Data.sqlDb.sqlDbConnection(Connections("Local_EAERP"))

'Dim cn As new System.Data.SqlClient.SqlConnection( Connections("EAERP").ConnectionString )

Dim cn As new System.Data.SqlClient.SqlConnection("Server = 192.168.2.51;Database = EAERP;User ID = SA;Password = 123456;")

'Dim cn As new System.Data.SqlClient.SqlConnection("EAERP")

'If(cn.state<>1) Then

cn.Open()

'End If

Dim cmd As New System.Data.SqlClient.SqlCommand()

cmd.Connection = cn

'cmd.Transaction = cn.BeginTransaction()

cn.BeginTransaction()

Try

For i As Integer =0 To args.length-1

If args(i) Is Nothing Then

Exit For

Else

cmd.CommandText = args(i)

cmd.ExecuteNonQuery

End If

' MessageBox.Show(cn.State,"")

Catch ex As Exception

cmd.Transaction.Rollback()

CN.CLOSE()

MessageBox.Show(ex.tostring,"向服务器提交数据错误!",MessageBoxButtons.OK)

Return False

End Try

CN.CLOSE()

Return True

我自已也写了一下，经测试不会回滚事务

'向服务器提交数据的事务函数 Args(i) 表示SQL 语句

Dim cmd As New SQLCommand

Dim strSQL As String

cmd.C

Try

For i As Integer =0 To args.length-1

If args(i) Is Nothing Then

Exit For

Else

strSQL=strSQL & args(i) & ";"

End If

cmd.CommandText = "Begin Transaction;" & strSQL & "Commit Transaction"

cmd.ExecuteNonQuery

Return True

Catch ex As Exception

'cmd.CommandText = "Begin Transaction;" & strSQL & "RollbackTrans"

cmd.CommandText = "RollbackTrans"

cmd.ExecuteNonQuery

Return False

MessageBox.Show("向服务器提交数据错误!","提示",MessageBoxButtons.OK)

End Try

已经写好了，经测试可以用了，如下，谢谢逛逛

'向服务器提交数据的事务函数 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

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

主题：狐爸看过来，事务处理