clsDatabaseRole
Not
Bu özellik Microsoft SQL Server'ın bir sonraki sürümünde kaldırılacaktır. Yeni geliştirme işlerinde bu özelliği kullanmayın ve bu özelliği kullanmakta olan uygulamaları mümkün olduğunca erken bir zamanda değiştirin.
Bir nesnenin ClassType clsDatabaseRole karar destek nesneleri (dso) belirli bir uygulaması sağlar Role arabirim.Bu nesne derlemeleri, yöntemleri ve özellikleri yoluyla sağlar Role arabirim.
Açıklamalar
Nesnelerin ClassType clsDatabaseRole yönetmek için kullanılan küme ve bir veritabanı içinde bunlara erişebileceğiniz it. şekilde erişebilen kullanıcılar,Küp rolleri ve araştırma modeli roller gibi bir veritabanı rolü bir ad, açıklama, üst nesne, bir sınıf türü, kullanıcıların listesini ve bir izin küme vardır.Her izin, bir anahtar ve ilgili bir izin ifade vardır.
Küp rolleri ve araştırma modeli roller, ancak, bir veritabanı rolü küp ve araştırma modeli rolleri temelini görür.Küpleri ve veri madenciliği modelleri için rolleri oluşturmak için veritabanı rolleri oluşturmak düzey (veritabanı rolleri) ve bunları küpleri veya veri madenciliği modelleri koleksiyonuna küp veya araştırma modeli ile ilişkili rolleri ekleyerek atayabilirsiniz.Atama işlemi veritabanı rolüs küp veya veri madenciliği modelleri için karşılık gelen Küp rolleri ve temel araştırma modeli rolleri oluşturur veritabanı rolü.Bir küp için atanan roller otomatik olarak kendi bölümleri ve toplamalardan uygulanır.
Veritabanı rolü veritabanından 's kaldırarak kaldırmak koleksiyon rolü nesneleri.Bunu yaptığınızda, sistem otomatik olarak karşılık gelen küp ve araştırma modeli rolleri küpten 's kaldırır koleksiyon rolü nesneleri.
Örnek
Veritabanında yer FinanceManagers, ProductionManagers ve SalesManagers adlı rollerini tanımla varsayalım düzey.Ayrıca her rolü ve şirket Başkanı tüm üç rol için kullanıcılar listesine kullanıcılar listesine uygun Başkan Yardımcısı atamak varsayalım.
Bu durum için uygun veritabanı ve Küp rolleri tanımlamak için şu kodu kullanın.Yürütülen kod sonra veritabanı rolleri küpleri (veya sanal küpler) gerektiği gibi atayabilirsiniz.Daha fazla bilgi için bkz: clsCubeRole.
' Assume an object (dsoDB) of ClassType clsDatabase exists.
' Create database roles.
Dim DbRole_FinanceMgrs As DSO.Role
Dim DbRole_ProductionMgrs As DSO.Role
Dim DbRole_SalesMgrs As DSO.Role
Set DbRole_FinanceMgrs = dsoDB.Roles.AddNew("FinanceManagers")
Set DbRole_ProductionMgrs = dsoDB.Roles.AddNew("ProductionManagers")
Set DbRole_SalesMgrs = dsoDB.Roles.AddNew("SalesManagers")
' Define user lists for database roles.
' (In a real-world situation, actual user names would be
' used in place of titles like "President".)
DbRole_FinanceMgrs.UsersList = "President;VP_Finance"
DbRole_ProductionMgrs.UsersList = "President;VP_Production"
DbRole_SalesMgrs.UsersList = "President;VP_Sales"
' Update the repository for the database roles.
DbRole_FinanceMgrs.Update
DbRole_ProductionMgrs.Update
DbRole_SalesMgrs.Update
' Assume objects (Cube95, Cube96 and Cube97) of ClassType clsCube exist.
' Create cube roles. Cube role names must be identical
' to the corresponding database role names.
Dim CubeRole_FinanceMgrs As DSO.Role
Dim CubeRole_ProductionMgrs As DSO.Role
Dim CubeRole_SalesMgrs As DSO.Role
' Add roles to Cube95.
Set CubeRole_FinanceMgrs = Cube95.Roles.AddNew("FinanceManagers")
Set CubeRole_ProductionMgrs = Cube95.Roles.AddNew("ProductionManagers")
Set CubeRole_SalesMgrs = Cube95.Roles.AddNew("SalesManagers")
' Add Roles to Cube96.
Set CubeRole_FinanceMgrs = Cube96.Roles.AddNew("FinanceManagers")
Set CubeRole_ProductionMgrs = Cube96.Roles.AddNew("ProductionManagers")
Set CubeRole_SalesMgrs = Cube96.Roles.AddNew("SalesManagers")
' Add Roles to Cube97.
Set CubeRole_FinanceMgrs = Cube97.Roles.AddNew("FinanceManagers")
Set CubeRole_ProductionMgrs = Cube97.Roles.AddNew("ProductionManagers")
Set CubeRole_SalesMgrs = Cube97.Roles.AddNew("SalesManagers")
' Update the repository for the cubes.
Cube95.Update
Cube96.Update
Cube97.Update