Databases

설명

스키마 저장소에 연관된 데이터베이스 콜렉션을 리턴합니다. 이는 읽기 전용 특성입니다. 즉, 볼 수는 있으나 설정할 수는 없습니다.

리턴된 콜렉션의 각 요소는 Database 오브젝트입니다.

구문

VBScript

adminSession.Databases 

Perl

$adminSession->GetDatabases(); 
ID
설명
adminSession
현재 스키마 저장소 액세스 세션을 나타내는 AdminSession 오브젝트입니다.
Return value
이 스키마 저장소에 정의되어 있는 모든 데이터베이스 콜렉션을 포함하는 Databases 오브젝트입니다.

예제

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;
#Create a Rational ClearQuest Admin session
$adminSession= CQAdminSession::Build(); 

#Logon as admin 
$adminSession->Logon( "admin", "admin", "" ); 

$databaseList = $adminSession->GetDatabases();

#Get the number of databases
$numDbs = $databaseList->Count();

#Iterate through the databases
for ( $x=0; $x<$numDbs; $x++ ) {
     #Get the specified item in the collection of databases
     $dbObj = $databaseList->Item( $x );
     #Get the name of the database
     $dbName = $dbObj->GetName();
}

CQAdminSession::Unbuild($adminSession);

피드백