Visual Basic Code Example: Retrieving MSMQQueueInfo.IsTransactional2
TOC
Collapse the table of content
Expand the table of content

Visual Basic Code Example: Retrieving MSMQQueueInfo.IsTransactional2

 

This example provides a function that receives the path name of an existing queue and returns the Boolean value of the MSMQQueueInfo.IsTransactional2 property for it, which can be used to display the transaction level of the queue.

This function can return the transaction level of a local private queue from information stored on the local computer, but must retrieve information stored in the directory service to return the transaction level of a local or remote public queue. This function cannot be used to obtain the transaction level of a remote private queue.

For information on the transaction model implemented by Message Queuing, see Message Queuing Transactions.

System_CAPS_noteNote

The MSMQQueueInfo.IsTransactional2 property is a Boolean property that supersedes the MSMQQueueInfo.IsTransactional property.

To retrieve MSMQQueueInfo.IsTransactional2

  1. Declare the objects needed to retrieve queue properties. This routine declares an MSMQQueueInfo object.

  2. Create the MSMQQueueInfo object. This example then uses MSMQQueueInfo.PathName to set the path name to the string passed to the function.

  3. Call MSMQQueueInfo.Refresh to obtain the current registered settings of the queue properties. Note that this call retrieves the settings of all properties of the queue with the path name set. If no such queue exists, an error message is displayed.

  4. Return the local setting of MSMQQueueInfo.IsTransactional2.

The following code example requires MSMQ 3.0.

Function GetXactLevel( _
                      strPathname As String _
                      ) As Boolean
  Dim qinfo As MSMQQueueInfo

  ' Create the MSMQQueueInfo object.
  Set qinfo = New MSMQQueueInfo
  qinfo.PathName = strPathname
  On Error GoTo ErrorHandler

  ' Retrieve the internally registered property values.
  qinfo.Refresh

  ' Return the local setting of MSMQQueueInfo.IsTransactional2.
  GetXactLevel = qinfo.IsTransactional2
  Exit Function

ErrorHandler:
  MsgBox "Error " + Hex(Err.Number) + " was returned." _
          + Chr(13) + Err.Description
End Function

Community Additions

ADD
Show:
© 2016 Microsoft