Restituisce la raccolta dei database a cui il gruppo ha accesso. Questo elenco di database include le sottoscrizioni indirette che possono esistere tra l'appartenenza al gruppo e le sottoscrizioni del gruppo (vale a dire, i database a cui il gruppo non è iscritto esplicitamente).
Si tratta di una proprietà di sola lettura; è possibile visualizzarla, ma non impostarla.
Ciascun elemento nella raccolta restituita è un oggetto Database. Se questo restituisce una raccolta vuota oppure la raccolta non contiene elementi, il gruppo viene registrato in tutti i 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);