‘添加事务提交 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