我用得就是逛逛的例子改得，执行多条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
Next
' 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
加好友 
发短信
Post By：2014/2/19 16:24:00 [只看该作者]
