Devuelve la recopilación de bases de datos a las que el grupo tiene acceso. Esta lista de bases de datos incluye suscripciones indirectas que pueden existir mediante pertenencia a grupo y suscripciones de grupo (es decir, bases de datos a las que el grupo no está suscrito explícitamente).
Es una propiedad de sólo lectura; se puede visualizar, pero no se puede establecer.
Cada elemento de la recopilación devuelta es un objeto Database. Si devuelve una recopilación vacía o la recopilación no tiene elementos, significa que el grupo está suscrito a todas las bases de datos.
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);