ExternalQuery.Name

SVB Example

Editing a data configuration's query:

Sub Main

    Dim oOM As ObjectManager

    'Reconnect into Enterprise ObjectManager
    Set oOM = New ObjectManager
    oOM.Reconnect Application

    'Access the configuration that points to external data
    Dim CatDataConfiguration As ExternalProfile
    Set CatDataConfiguration = oOM.Profiles.Item("/Blake's Materials/Cats")
    CatDataConfiguration.AutoSave = False

    Dim EverythingQuery As ExternalQuery
    Set EverythingQuery = CatDataConfiguration.Queries.Item("Everything")
    EverythingQuery.Columns.Item("Patient ID").TargetType = swcLabelColumn
    'Set columns to "variable characteristic" for a QC analysis
    EverythingQuery.Columns.Item("Weight (1998)").TargetType = swcVariableColumn
    EverythingQuery.Columns.Item("Weight (1999)").TargetType = swcVariableColumn
    EverythingQuery.Columns.Item("Weight (2000)").TargetType = swcVariableColumn

    Dim configUpdateInfo As New ProfileUpdateInfo
    configUpdateInfo.AuditLogReason = "Setting up the columns for analysis."
    CatDataConfiguration.SaveEx(configUpdateInfo)

    oOM.Disconnect

End Sub