그룹에 액세스 권한이 있는 데이터베이스 콜렉션을 리턴합니다. 이 데이터베이스 목록에는 그룹 멤버 및 그룹 등록을 통해 존재할 수 있는 간접 등록이 포함되어 있습니다(즉, 사용자가 명시적으로 등록되어 있지 않은 데이터베이스).
이는 읽기 전용 특성입니다. 즉, 볼 수는 있으나 설정할 수는 없습니다.
리턴된 콜렉션의 각 요소는 Database 오브젝트입니다. 빈 콜렉션을 리턴하거나 콜렉션에 요소가 없는 경우, 그룹이 모든 데이터베이스에 등록됩니다.
VBScript
group.AllSubscribedDatabases
Perl
$group->GetAllSubscribedDatabases();
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);