AllSubscribedDatabases

Descrizione

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.

Sintassi

VBScript

group.AllSubscribedDatabases 

Perl

$group->GetAllSubscribedDatabases(); 
Identificativo
Descrizione
group
Un oggetto Group.
Valore di ritorno
Un oggetto di raccolta Databases che contiene i database ai quali l'utente può accedere, non solo quelli a cui l'utente è registrato.

Esempi

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