ExternalDatabaseConnection.SaveEx

This function saves changes to this external database connection (with audit log explanation).

Syntax Parameters Return Value 
Sub ExternalDatabaseConnection.SaveEx( _
    UpdateInfo As ExternalDatabaseConnectionUpdateInfo)
 UpdateInfo [in]

Type: ExternalDatabaseConnectionUpdateInfo

This function does not return a value.

Adding an external data source: 

Sub Main
    Dim oOM As ObjectManager

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

    Dim createDBSourceInfo As New ExternalDatabaseConnectionCreateInfo
    Dim dbSource As ExternalDatabaseConnection

    'Create an external data connection to a Statistica spreadsheet
    createDBSourceInfo.Name = "Cat Clinic"
    createDBSourceInfo.AuditLogReason = "Adding Cat Clinic Data Source"
    createDBSourceInfo.ConnectionString = _
        "Provider=STATISTICA.StaOLEDB.1;Data Source=""" & Application.Path & "\Examples\Datasets\Cat Clinic.sta;"";Integrated Security=True"
    'Add the data connection to the system
    Set dbSource = oOM.ExternalDatabaseConnections.AddEx(createDBSourceInfo)

    'Edit the description to it after we created it
    dbSource.AutoSave = False
    dbSource.Description = "Cat clinic data, which includes measurements and some categorical information of its patients."
    Dim dbUpdateInfo As New ExternalDatabaseConnectionUpdateInfo
    dbUpdateInfo.AuditLogReason = "Just adding a description"
    dbSource.SaveEx(dbUpdateInfo)

    oOM.Disconnect

End Sub