|
Shared Sub 得到Activity健全狀態列表(ByVal 執行個體Id As Guid)
Dim sql As String = "Initial Catalog=Tracking;Data Source=WXWINTER\SQLEXPRESS;Integrated Security=SSPI;"
Dim 查詢As SqlTrackingQuery = New SqlTrackingQuery(sql)
Dim 被查詢的執行個體As SqlTrackingWorkflowInstance = Nothing
查詢.TryGetWorkflow(執行個體Id, 被查詢的執行個體)
If 被查詢的執行個體IsNot Nothing Then
Console.WriteLine(vbCrLf + "Activity 曾發生的狀態列表:" + vbCrLf)
Console.WriteLine()
Dim Activity狀態As ActivityTrackingRecord
For Each Activity狀態In 被查詢的執行個體.ActivityEvents
Console.WriteLine("Activity類型:" + Activity狀態.ActivityType.ToString)
Console.WriteLine("Activity上下文GUID:" + Activity狀態.ContextGuid.ToString)
Console.WriteLine("該狀態發生的時間:" + Activity狀態.EventDateTime.ToString)
Console.WriteLine("Activity曾發生的狀態:" + Activity狀態.ExecutionStatus.ToString)
Console.WriteLine("EventOrder欄位值:" + Activity狀態.EventOrder.ToString)
Console.WriteLine("Activity容器物件GUID:" + Activity狀態.ParentContextGuid.ToString)
Console.WriteLine("Activity名(開發時對象名):" + Activity狀態.QualifiedName)
Console.WriteLine()
'此時,該WorkFlow 類本身也作為一個Activity被選項組,他是所有Activity的容器
'有些Activity可以成為另一個Activity的容器
'Activity可能會有如下狀態
'Canceling、Closed、Compensating、Executing、Faulting、Initialized
Next
End If |