Devuelve el nombre del database set del que es miembro esta base de datos.
Puede utilizar este método para obtener el nombre del conjunto de bases de datos de esta base de datos. Puede pasar el nombre al método GetAccessibleDatabases del objeto Session para obtener una lista de las bases de datos de usuario del conjunto de bases de datos.
VBScript
dbDesc.GetDatabaseSetName
Perl
$dbDesc->GetDatabaseSetName();
VBScript
En el ejemplo siguiente se muestra cómo iniciar la sesión en la base de datos desde una aplicación de 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);