Establece o devuelve el nombre físico de la base de datos actual.
El establecimiento del nombre cambia la información que utiliza Rational ClearQuest para conectar a la base de datos física, no la base de datos real en sí misma.
VBScript
database.DatabaseName database.DatabaseName nuevoNombreDb
Perl
$database->GetDatabaseName(); $database->SetDatabaseName(nuevoNombreDb);
VBScript
set sessionObj = CreateObject("CLEARQUEST.SESSION")
' Obtener la lista de bases de datos del
' conjunto de bases de datos MASTR.
databases = sessionObj.GetAccessibleDatabases("MASTR","admin","")
' Iniciar la sesión en cada base de datos sucesivamente.
For Each db in databases
dbName = db.GetDatabaseName
sessionObj.UserLogon "admin", "", dbName, AD_PRIVATE_SESSION, ""
' Acceder a la base de datos
' ...
Next
Perl
use CQPerlExt;
#Iniciar una sesión de Rational ClearQuest
$sessionObj = CQSession::Build();
#Obtener una lista de bases de datos a las que se puede acceder
$databases = $sessionObj->GetAccessibleDatabases("MASTR", "admin", "");
$count = $databases->Count();
# Iniciar la sesión en cada base de datos sucesivamente.
for($x=0;$x<$count;$x++){
$db = $databases->Item($x);
$dbName = $db->GetDatabaseName();
# Iniciar la sesión en la base de datos
$sessionObj->UserLogon( "admin", "", $dbName, "" );
#...
}
CQSession::Unbuild($sessionObj);