Devuelve el nombre del conjunto de bases de datos 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
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")
' Iniciar la sesión en cada base de datos sucesivamente.
databases = sessionObj.GetAccessibleDatabases("MASTR","","")
For Each db in databases
If Not db.GetIsMaster Then
dbSetName = db.GetDatabaseSetName
dbName = db.GetDatabaseName
' Iniciar la sesión en la base de datos
sessionObj.UserLogon "tom", "gh36ak3", dbName,
AD_PRIVATE_SESSION, dbSetName
End If
' ...
Next
Perl
use CQPerlExt;
#Iniciar una sesión de Rational
ClearQuest
$sessionObj = CQSession::Build();
#Obtener una lista de objetos de descripción de base de datos a los
#que se puede acceder
$databases = $sessionObj->GetAccessibleDatabases("MASTR", "", "");
#Obtener el número de bases de datos
$count = $databases->Count();
#Para cada base de datos a la que se puede acceder que no sea la base de
#datos maestra, iniciar la sesión
#como usuario "tom" con la contraseña "gh36ak3"
for($x=0;$x<$count;$x++){
$db = $databases->Item($x);
if (! $db->GetIsMaster() ) {
#Obtener el conjunto de bases de datos del que es miembro esta base de datos
$dbSetName = $db->GetDatabaseSetName();
#Obtener el nombre de la base de datos del objeto Description
$dbName = $db->GetDatabaseName();
# Iniciar la sesión en la base de datos
$sessionObj->UserLogon( "tom", "gh36ak3", $dbName, $dbSetName );
}
#...
}
CQSession::Unbuild($sessionObj);