스키마 저장소에 연관된 데이터베이스 콜렉션을 리턴합니다. 이는 읽기 전용 특성입니다. 즉, 볼 수는 있으나 설정할 수는 없습니다.
리턴된 콜렉션 내의 각 요소는 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;
#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);