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