Databases

Description

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.

Syntaxe

VBScript

adminSession.Databases 

Perl

$adminSession->GetDatabases(); 
Identificateur
Description
adminSession
L'objet AdminSession représentant la session d'accès du référentiel de schéma en cours.
Valeur de retour
Un objet Databases contenant la collection de toutes les bases de données définies dans ce référentiel de schéma.

Exemple

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

Commentaire