• Статья

Clone (Dimension Interface)

ПримечаниеПримечание

  В следующей версии Microsoft SQL Server эта возможность будет удалена. Не используйте ее при работе над новыми приложениями и как можно быстрее измените приложения, в которых она в настоящее время используется.

The Clone method of the Dimension interface copies the properties and levels of an existing object to a target object of the same class type.

Applies To: clsDatabaseDimension

Синтаксис

object.Clone(ByVal TargetObject As Dimension, [ByVal Options As CloneOptions = cloneMajorChildren])

Замечания

  • object
    The Dimension object whose properties and levels are to be copied.

  • TargetObject
    A previously created object of the same class type.

  • Options
    The options to tell the method to what extent the source object should be duplicated. If no value is specified, the cloneMajorChildren option is used.

Замечания

The following values for Options are valid for cloning a dimension.

Clone option

Description

cloneObjectProperties

The values of the properties of the source dimension are copied to the target dimension

cloneMinorChildren

The values of the properties and levels contained in the source dimension are copied to the target dimension

cloneMajorChildren

For dimension objects, this is the same as cloneMinorChildren

Пример

The following example copies the properties and levels of dimension DimA to dimension DimB:

    Dim dsoServer As New DSO.Server
    Dim dsoDB As DSO.MDStore
    Dim dsoDimA As DSO.Dimension
    Dim dsoDimB As DSO.Dimension
    
    ' Connect to local Analysis server.
    dsoServer.Connect "LocalHost"
    
    ' Open the FoodMart 2000 database.
    Set dsoDB = dsoServer.MDStores("FoodMart 2000")
    
    ' Create a new dimension, named DimA, to be used
    ' as a source dimension from which to clone.
    Set dsoDimA = dsoDB.Dimensions.AddNew("DimA")
    dsoDimA.Description = "First dimension"
    
    ' Create the target dimension, named DimB, and
    ' give it a different description.
    Set dsoDimB = dsoDB.Dimensions.AddNew("DimB")
    dsoDimB.Description = "Second dimension"
    
    ' Now, clone the DimA dimension into DimB.
    dsoDimA.Clone dsoDimB, cloneMajorChildren
    
    ' Print the description of the DimB dimension
    ' to the Debug window.
    Debug.Print dsoDimB.Description

См. также

Справочник

Dimension Interface