AllSubscribedDatabases

説明

グループがアクセス権を持つデータベースのコレクションを戻します。このデータベースのリストには、グループのメンバシップとグループ登録の全体に存在する可能性のある間接的な登録が含まれます (つまり、グループが明示的に登録されていないデータベース)。

これは読み取り専用のプロパティです。表示できますが設定できません。

戻されたコレクション内の各エレメントは Database オブジェクトです。この戻り値が空のコレクションまたはコレクションのエレメント数がゼロの場合、グループはすべてのデータベースに登録されています。

構文

VBScript

group.AllSubscribedDatabases 

Perl

$group->GetAllSubscribedDatabases(); 
識別子
説明
group
Group オブジェクト。
戻り値
ユーザーが登録されているデータベースだけでなく、ユーザーがアクセスできるデータベースを含む Databases コレクション オブジェクト。

VBScript

  Set session = CreateObject("CLEARQUEST.ADMINSESSION") 
   session.Logon "admin", "", "bigboss"
   set group = session.GetGroup("groupnum1")
   Set dbs = group.SubscribedDatabases
   Set alldbs = group.AllSubscribedDatabases
   alldbscount = alldbs.Count
   dbscount = dbs.Count
   msgbox "alldbs count is " & CSTR(alldbscount)
   msgbox "dbs count is " & CSTR(dbscount)

Perl

use CQPerlExt;

$adminsession = CQAdminSession::Build();

$adminsession->Logon("admin", "",  "2003.06.00");

if (defined($adminsession->Logon("admin", "",  "2003.06.00"))) {

   print "Error: Not logged into ClearQuest.. please log in ¥n";

}

$userObj = $adminsession->GetUser("admin");

$dblist = $userObj->GetAllSubscribedDatabases();

$numdbs = $dblist->Count();

print $numdbs;

CQAdminSession::Unbuild($adminsession); 

フィードバック