Udostępnij za pośrednictwem

  • Artykuł

Nadrzędny (roli Interface)

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.

Parent Właściwość Role interfejs zawiera odwołanie do obiektu nadrzędnego MDStore obiektu.

Stosuje się do:clsCubeRole, clsDatabaseRole, clsMiningModelRole

Typ danych

Polecenia MDStore

ClassType Wartość zwracana obiektu zależy od wartości ClassType właściwość obiektu.

Typ klasy

Zwracany typ klasy obiektu

clsDatabaseRole

clsDatabase

clsCubeRole

clsCube

clsMiningModelRole

Nic

Dostęp

Tylko do odczytu

Uwagi

Właściwość ta będzie zwracać nic dla model wyszukiwania ról, ponieważ dane model wyszukiwanianie obsługują s MDStore interfejs.Uzyskanie obiektem nadrzędnym model wyszukiwania roli, użyj ParentObject właściwość.

Przykłady

Za pomocą właściwości nadrzędny i ClassType

Poniższy przykład tworzy rola bazy danych i przypisuje go do pierwszego moduł kolekcja obiektu bazy danych modułów.Następnie niektórych właściwość obiektu nadrzędnego wydruku za pomocą obiektu roli Parent właściwość.

Dim dsoServer As New DSO.Server
Dim dsoDB As DSO.MDStore
Dim dsoCube As DSO.MDStore
Dim dsoDBRole As DSO.Role
Dim dsoCubeRole As DSO.Role

'Connect to the Analysis Server
  dsoServer.Connect "LocalHost"
  Set dsoDB = dsoServer.MDStores("FoodMart 2000")

'Get the first cube in the database's collection
  Set dsoCube = dsoDB.MDStores(1)
  Debug.Print "Cube.Name = " & dsoCube.Name
  
'Ensure the existence of TempRole in the database.
  Set dsoDBRole = dsoDB.Roles.AddNew("TempRole")
  
'Add the command to cube's collection of commands.
  Set dsoCubeRole = dsoCube.Roles.AddNew("TempRole")
  Debug.Print "Cube.Roles(""TempRole"").Name =" & _
    dsoCube.Roles("TempRole").Name

'Print the roles .ParentObject properties
  Debug.Print "   .Parent properties" & vbCrLf & _
    "   -----------"
  Debug.Print "   TypeName(""dsoCubeRole.Parent"") = " & _
    TypeName(dsoCubeRole.Parent)
  If dsoCubeRole.Parent.ClassType = clsCube Then
    Debug.Print "   .ClassType = clsCube"
  Else
    Debug.Print "This line should never be executed."
  End If
  Debug.Print "   .Description = " & dsoCubeRole.Parent.Description
  Debug.Print "   .Name = " & dsoCubeRole.Parent.Name
  
  dsoCube.Roles.Remove ("TempRole")
  dsoDB.Roles.Remove ("TempRole")