AllSubscribedDatabases

Descripción

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.

Sintaxis

VBScript

group.AllSubscribedDatabases 

Perl

$group->GetAllSubscribedDatabases(); 
Identificador
Descripción
group
Un objeto Group.
Valor de retorno
Un objeto de recopilación Databases que contiene las bases de datos a las que el usuario tiene acceso, no únicamente a las que el usuario está suscrito.

Ejemplos

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); 

Feedback