Databases

説明

スキーマ リポジトリに関連付けられたデータベースのコレクションを戻します。これは読み取り専用のプロパティです。表示できますが設定できません。

戻されたコレクション内の各エレメントは Database オブジェクトです。

構文

VBScript

adminSession.Databases 

Perl

$adminSession->GetDatabases(); 
識別子
説明
adminSession
AdminSession オブジェクトは、現在のスキーマ リポジトリのアクセス セッションを表します。
戻り値
このスキーマ リポジトリで定義されたすべてのデータベースのコレクションを含む 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); 

フィードバック