ParentObject (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.

ParentObject Właściwość zwraca odwołanie do interfejs domyślnego obiektu nadrzędnego.

Stosuje się do:clsCubeRole, clsDatabaseRole, clsMiningModelRole

Typ danych

Obiekt

Domyślny interfejs i ClassType wartość zwracana obiektu zależy od wartości ClassType właściwość obiektu.

Typ klasy	Zwrócone interfejs obiektu	Zwracany typ klasy obiektu
clsDatabaseRole	MDStore	clsDatabase
clsCubeRole	MDStore	clsCube
clsMiningModelRole	MiningModel	clsMiningModel

Dostęp

Tylko do odczytu

Przykłady

Za pomocą właściwości ParentObject i ClassType

Poniższy przykład tworzy rola bazy danych i przypisuje role zbierania danych pierwszego model wyszukiwania w bazach danych kolekcja model wyszukiwanias.Następnie niektórych właściwość obiektu nadrzędnego danej roli wydruku przy użyciu ParentObject właściwość.

Dim dsoServer As New DSO.Server
Dim dsoDB As DSO.MDStore
Dim dsoDMM As DSO.MiningModel
Dim dsoDBRole As DSO.Role
Dim dsoDMMRole As DSO.Role

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

'Get the first mining model
  Set dsoDMM = dsoDB.MiningModels(1)
  Debug.Print "MiningModel.Name = " & dsoDMM.Name
  
'Ensure the existence of TempRole in the database.
  Set dsoDBRole = dsoDB.Roles.AddNew("TempRole")
  
'Ensure the existence of a role.
  Set dsoDMMRole = dsoDMM.Roles.AddNew("TempRole")
  Debug.Print "MiningModel.Roles(""TempRole"").Name =" & _
    dsoDMM.Roles("TempRole").Name

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

Zobacz także

Odwołanie

Rolę interfejsu