Renvoie la collection de bases de données associée au référentiel de schéma. Il s'agit d'une propriété en lecture seule ; elle peut être visualisée mais pas définie.
Chaque élément de la collection renvoyée est un objet Database.
VBScript
adminSession.Databases
Perl
$adminSession->GetDatabases();
VBScript
set adminSession = CreateObject("ClearQuest.AdminSession")
set SessionObj = CreateObject("ClearQuest.Session")
adminSession.Logon "admin", "admin", ""
set databaseList = adminSession.Databases
For each dbObj in databaseList
dbName = dbObj.DatabaseName
SessionObj.OutputDebugString "Found database: " & dbName
Next
Perl
use CQPerlExt;
#Créez une session Admin Rational ClearQuest
$adminSession= CQAdminSession::Build();
#Connectez-vous en tant qu'admin
$adminSession->Logon( "admin", "admin", "" );
$databaseList = $adminSession->GetDatabases();
#Obtenez le nombre de bases de données
$numDbs = $databaseList->Count();
#Itérez dans les bases de données
for ( $x=0; $x<$numDbs; $x++ ) {
#Obtenez l'élément spécifié dans la collection de bases de données
$dbObj = $databaseList->Item( $x );
#Obtenez le nom de la base de données
$dbName = $dbObj->GetName();
}
CQAdminSession::Unbuild($adminSession);