Udostępnij za pośrednictwem


Klon (interfejs wymiaru)

Ostrzeżenie

  Ta funkcja zostanie usunięta z następnej wersji programu Microsoft SQL Server. Nie należy stosować tej funkcji w nowych projektach oraz jak najszybciej należy zmodyfikować aplikacje, w których obecnie jest używana ta funkcja.

Clone metoda Dimension kopie interfejs właściwości i poziomy istniejącego obiektu do miejsce docelowe tego samego typu klasy.

Applies To: clsDatabaseDimension

Składnia

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

Uwagi

  • object
    Dimension Obiekt, którego właściwości i poziomy mają być kopiowane.

  • TargetObject
    Poprzednio utworzony obiekt tego samego typu klasy.

  • Options
    Opcje stwierdzić w jakim metody obiekt źródłowy powinny zostać zduplikowane.Jeśli nie określono wartości, cloneMajorChildren jest używana opcja.

Uwagi

Następujące wartości Options są ważne do klonowania wymiar.

Klonowanie opcji

Opis

cloneObjectProperties

Wartości właściwości wymiar źródłowego są kopiowane do miejsce docelowe wymiar

cloneMinorChildren

Wartości właściwości i poziomów zawartych w wymiar źródłowego są kopiowane do miejsce docelowe wymiar

cloneMajorChildren

Dla obiektów wymiar jest taki sam, jak cloneMinorChildren

Przykład

W następującym przykładzie skopiowano właściwości i poziomy DimA wymiar do wymiar 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

Zobacz także

Odwołanie