事务提交

'添加事务提交 
Dim con As SqlConnection = New SqlConnection(frmSetting._DatabaseProvider.GetConnectionString) 
Dim cmd As SqlCommand = New SqlCommand() 
Dim tran As SqlTransaction
 con.Open()
 tran = con.BeginTransaction() 
cmd.Connection = con 
cmd.Transaction = tran 
Try 
cmd.CommandText = tmpSQL 
cmd.ExecuteNonQuery() 
tran.Commit() 
con.Close() 
Catch ex As Exception
 tran.Rollback() 
con.Close() 
End Try