clsMiningModelRole
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.
Obiekt ClassType clsMiningModelRole zawiera określonej implementacji Decision Support Objects (DSO) Role interfejs dla modeli wyszukiwanie danych.Ten obiekt zawiera kolekcje, metody i właściwości za pomocą Role interfejs.
Użyj obiektów ClassType clsMiningModelRole do zarządzania zestaw użytkowników, którzy mają dostęp model wyszukiwania oraz sposób, w którym mają dostęp goA model wyszukiwania rola ma nazwę, opis, obiekt nadrzędny typ klasy, listę użytkowników i zestaw uprawnień.Każde uprawnienie ma klucz i odpowiednie wyrażenie zgody.
Tworzenie ról poziom bazy danych (role bazy danych), a następnie przydzielić je do model wyszukiwanias (model wyszukiwania role), dodając je do kolekcja ról związanych z model wyszukiwania.
rola bazy danych można usunąć przez usunięcie go z bazy danych kolekcja roli obiektów.Po wykonaniu, system automatycznie usuwa odpowiadające im model wyszukiwania ról z model wyszukiwaniatego zbiór ról obiektów.
Można usunąć model wyszukiwania roli przez usunięcie go z model wyszukiwaniatego zbiór ról obiektów.Kiedy zrobisz, odpowiednie rola bazy danych nie dotyczy.Jednakże definicja model wyszukiwania roli pozostaje, dopóki aktualizacji lub przetworzyć moduł.
Przykłady
If dsoDb.DataSources("DMTest") Is Nothing Then
Set dsoDs = dsoDb.DataSources.AddNew("DMTest")
dsoDs.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=d:dmtest2.mdb"
dsoDs.Update
End If
'Create a new mining model role.
If dsoDb.Roles("DMDev") Is Nothing Then
Set dsoRole = dsoDb.Roles.AddNew("DMDev")
dsoRole.UsersList = "DOMAIN\SomeUser"
dsoRole.Update
End If
'Check to see whether the mining model exists.
If Not dsoDb.MiningModels("CustSalesRel") Is Nothing Then
'Delete it if it does.
dsoDb.MiningModels.Remove "CustSalesRel"
End If
'Now create the model afresh.
Set dsoDmm = dsoDb.MiningModels.AddNew("CustSalesRel")
'Add a new datasource for the model
dsoDmm.DataSources.AddNew "DMTest"
'Add a data mining role to the new mining model.
Set dsoRole = dsoDmm.Roles.AddNew("DMDev")
Zobacz także