vb.net - 带有MQ的TransactionScope - 读写消息

我有一段vb.net代码，它从MQ队列中读取消息并将其写入另一个队列。

它在事务（using New TransactionScope()）中执行此操作，因此如果写入失败，则将回滚读取。

问题是，一旦我关闭.net程序，事务似乎只会提交。

使用MQ Explorer，我看到消息移动，然后在队列状态中显示“Uncommitted Messages: Yes”（并且消息保留在新队列中），直到.net程序关闭 - 此时消息由另一个程序（IIB）从队列中读取。

所以，在我看来TransactionScope没有被处理;但我想不出原因。

以下是相关代码：

WPF在按下按钮时调用命令，调用以下方法（简化）：

' MQMessageDetails is just a data-storage class for message data
Friend Function MoveMessages(messages as IEnumerable(of MQMessageDetails))
    For Each msg in messages
       Try
        Using ts As New TransactionScope()
            success = WriteMessage(msg, "Q.OUT")
            success = success and ReadMessage(msg)
            If success Then
                ts.Complete()
            End If
        End Using
       Catch ....
       End Try
    Next
End Function

以下是我在MQ资源管理器中看到的内容：

**Before program start**
Q.IN - depth 2, no uncommitted messages
Q.OUT - depth 0, no uncommitted messages

**Move button clicked**
Q.IN - depth 1, 1 uncommitted message
Q.OUT - depth 1, 1 uncommitted message

**Program closed**
Q.IN - depth 1, no uncommitted messages
Q.OUT - depth 0, no uncommitted messages <- the message was read by another program

带有MQ的TransactionScope - 读写消息

1 个答案: