4、这样的事务处理能用吗?
Dim cn As SqlClient.SqlConnection
Dim cm As SqlClient.SqlCommand
Dim tr As SqlClient.SqlTransaction
tr = cn.BeginTransaction()
cm.Transaction = tr
Try
While 条件
Try
cm.CommandText = "..."
cm.ExecuteNonQuery()
Catch ex As Exception
End Try
End While
tr.Commit()
Catch ex As Exception
tr.Rollback()
End Try