Devuelve el nombre de la base de datos.
Puede utilizar el método GetAccessibleDatabases del objeto Session para obtener una lista de objetos DatabaseDesc y, a continuación, utilizar GetDatabaseName para obtener el nombre de cada uno. El nombre de la base de datos se utiliza como un argumento para el método UserLogon del objeto Session.
VBScript
dbDesc.GetDatabaseName
Perl
$dbDesc->GetDatabaseName();
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
dbName = db.GetDatabaseName
`Logon to the database
sessionObj.UserLogon "tom", "gh36ak3", dbName, AD_PRIVATE_SESSION, ""
End If
' ...
Next
Perl
use CQPerlExt;
#Start a Rational ClearQuest session
$sessionObj = CQSession::Build();
#Get a list of accessible databases
$databases = $sessionObj->GetAccessibleDatabases("MASTR", "", "");
#Get the number of databases
$count = $databases->Count();
# Foreach accessible database, get the dbName and
# login as joe with password gh36ak3
for($x=0;$x<$count;$x++){
$db = $databases->Item($x);
$dbName = $db->GetDatabaseName();
# Logon to the database
$sessionObj->UserLogon( "joe", "gh36ak3", $dbName, "" );
#...
}
CQSession::Unbuild($sessionObj);