GetDatabaseSetName

Descrizione

Restituisce il nome del gruppo di database di cui questo database è membro.

È possibile utilizzare questo metodo per ottenere il nome del gruppo di database di questo database. È possibile trasferire questo nome al metodo GetAccessibleDatabases dell'oggetto Session per ottenere un elenco di database utente nel gruppo di database.

Nota: Per impostazione predefinita, i sistemi dispongono solo di un gruppo di database. È possibile fare riferimento a questo gruppo di database predefinito utilizzando una stringa vuota ("") anziché il nome restituito di questo metodo.

Sintassi

VBScript

dbDesc.GetDatabaseSetName 

Perl

$dbDesc->GetDatabaseSetName(); 
Identificativo
Descrizione
dbDesc
Un oggetto DatabaseDesc contenente informazioni su uno dei database installati.
Valore di ritorno
Una stringa contenente il nome del gruppo di database.

Esempi

VBScript

Nel seguente esempio viene mostrato come accedere al database da un'applicazione Visual Basic.

set sessionObj = CreateObject("CLEARQUEST.SESSION") 

' Login to each database successively. 
databases = sessionObj.GetAccessibleDatabases("MASTR","","")
For Each db in databases 
   If Not db.GetIsMaster Then 
      dbSetName = db.GetDatabaseSetName 
      dbName = db.GetDatabaseName 
      ' Logon to the database 
      sessionObj.UserLogon "tom", "gh36ak3", dbName,
          AD_PRIVATE_SESSION, dbSetName 
   End If 
   ' ... 
Next 

Perl

use CQPerlExt;

#Start a Rational ClearQuest session
$sessionObj = CQSession::Build();

#Get a list of accessible database description objects

$databases = $sessionObj->GetAccessibleDatabases("MASTR", "", "");

#Get the number of databases

$count = $databases->Count();

#Foreach accessible database that is not the master database, login as 

#user "tom" with password "gh36ak3"

for($x=0;$x<$count;$x++){

   $db = $databases->Item($x);

   if (! $db->GetIsMaster() ) {

      #Get the database set of which this database is a member

      $dbSetName = $db->GetDatabaseSetName();

      #Get the database name from the description object

      $dbName = $db->GetDatabaseName();

      # Logon to the database 

      $sessionObj->UserLogon( "tom", "gh36ak3", $dbName, $dbSetName );

   }

#...

}

CQSession::Unbuild($sessionObj); 

Feedback