AllSubscribedDatabases

설명

그룹에 액세스 권한이 있는 데이터베이스 콜렉션을 리턴합니다. 이 데이터베이스 목록에는 그룹 멤버 및 그룹 등록을 통해 존재할 수 있는 간접 등록이 포함되어 있습니다(즉, 사용자가 명시적으로 등록되어 있지 않은 데이터베이스).

이는 읽기 전용 특성입니다. 즉, 볼 수는 있으나 설정할 수는 없습니다.

리턴된 콜렉션의 각 요소는 Database 오브젝트입니다. 빈 콜렉션을 리턴하거나 콜렉션에 요소가 없는 경우, 그룹이 모든 데이터베이스에 등록됩니다.

구문

VBScript

group.AllSubscribedDatabases 

Perl

$group->GetAllSubscribedDatabases(); 
ID
설명
group
Group 오브젝트입니다.
Return value
사용자가 등록되는 데이터베이스뿐만 아니라 사용자가 액세스할 수 있는 데이터베이스가 포함된 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); 

피드백