Databases

Descripción

Devuelve la recopilación de bases de datos asociadas al depósito de esquemas. Es una propiedad de sólo lectura; se puede visualizar, pero no se puede establecer.

Cada elemento de la recopilación devuelta es un objeto Database.

Sintaxis

VBScript

adminSession.Databases 

Perl

$adminSession->GetDatabases(); 
Identificador
Descripción
adminSession
Objeto AdminSession que representa la sesión de acceso al depósito de esquemas actual.
Valor de retorno
Un objeto Databases que contiene la recopilación de todas las bases de datos definidas en el depósito de esquemas.

Ejemplo

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;

#Crear una sesión de administración de Rational ClearQuest
$adminSession= CQAdminSession::Build();

#Iniciar la sesión como administrador
$adminSession->Logon( "admin", "admin", "" );

$dbList = $adminSession->GetDatabases();

#Obtener el número de bases de datos
$numDbs = $databaseList->Count();

#Iterar a través de las bases de datos
for ( $x=0; $x<$numDbs; $x++ ) {
     #Obtener el elemento especificado en la recopilación de bases de datos
     $dbObj = $databaseList->Item( $x );
     #Obtener el nombre de la base de datos
     $dbName = $dbObj->GetName();
}

CQAdminSession::Unbuild($adminSession); 


Comentarios