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);