Creating ActionTable Columns

Creating ActionTable Columns

This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

Creating action table columns is the first step in creating an action table for a workflow.

In programming terms, an action table is a recordset. To create an action table, you begin by creating a Microsoft® ActiveX® Data Objects database (ADODB) recordset. You then append Fields to the Fields collection of the new Recordset object. Using the Append method, provide the field name and type as arguments. The workflow engine requires and recognizes fourteen fields exclusively. These fields are described in ActionTable Property. You need to append the Fields before opening the Recordset object or a Connection object.

The following example demonstrates how to append the action table fields to a Recordset object.

Visual Basic

   Dim Rs As ADODB.Recordset
   Set Rs = New ADODB.Recordset

   With Rs.Fields
    .Append "ID", adBSTR
    .Append "Caption", adBSTR
    .Append "State", adBSTR
    .Append "NewState", adBSTR
    .Append "EventType", adBSTR
    .Append "Condition", adBSTR
    .Append "EvaluationOrder", adBSTR
    .Append "Action", adBSTR
    .Append "ExpiryInterval", adBSTR
    .Append "RowACL", adBSTR
    .Append "TransitionACL", adBSTR
    .Append "DesignToolFields", adBSTR
    .Append "CompensatingAction", adBSTR
    .Append "Flags", adBSTR
   End With

   Dim varColumnNames As Variant

   varColumnNames = Array(Rs.Fields.Item(0).Name, _
                         Rs.Fields.Item(1).Name, _
                         Rs.Fields.Item(2).Name, _
                         Rs.Fields.Item(3).Name, _
                         Rs.Fields.Item(4).Name, _
                         Rs.Fields.Item(5).Name, _
                         Rs.Fields.Item(6).Name, _
                         Rs.Fields.Item(7).Name, _
                         Rs.Fields.Item(8).Name, _
                         Rs.Fields.Item(9).Name, _
                         Rs.Fields.Item(10).Name, _
                         Rs.Fields.Item(11).Name, _
                         Rs.Fields.Item(12).Name, _
                         Rs.Fields.Item(13).Name)

Send us your feedback about the Microsoft Exchange Server 2003 SDK.

Build: June 2007 (2007.618.1)

© 2003-2006 Microsoft Corporation. All rights reserved. Terms of use.