GetDatabaseSetName

説明

このデータベースがメンバとなっているデータベース セット の名前を戻します。

このメソッドを使用すると、このデータベースのデータベース セット名を取得できます。この名前を Session オブジェクトの GetAccessibleDatabases メソッドに渡して、データベース セット内のユーザー データベースのリストを取得します。

注: デフォルトでは、システムには 1 つのデータベース セットのみが存在します。 このデフォルトのデータベース セットを参照するには、このメソッドから戻された名前ではなく、空の文字列 ("") を使用します。

構文

VBScript

dbDesc.GetDatabaseSetName 

Perl

$dbDesc->GetDatabaseSetName(); 
識別子
説明
dbDesc
いずれかのインストールされたデータベースに関する情報を含む DatabaseDesc オブジェクト。
戻り値
データベース セットの名前を含む String。

VBScript

以下の例は、Visual Basic アプリケーションからデータベースにログオンする方法を示します。

set sessionObj = CreateObject("CLEARQUEST.SESSION")

' Login to each database successively.
databases = sessionObj.GetAccessibleDatabases("MASTR","","")
For Each db in databases
   If Not db.GetIsMaster Then
      dbSetName = db.GetDatabaseSetName 
      dbName = db.GetDatabaseName
      ' Logon to the database 
      sessionObj.UserLogon "tom", "gh36ak3", dbName,
          AD_PRIVATE_SESSION, dbSetName
   End If 
   ' ... 
Next

Perl

use CQPerlExt;

#Start a Rational® ClearQuest® session
$sessionObj = CQSession::Build();

#Get a list of accessible database description objects

$databases = $sessionObj->GetAccessibleDatabases("MASTR", "", "");

#Get the number of databases

$count = $databases->Count();

#Foreach accessible database that is not the master database, login as 

#user "tom" with password "gh36ak3"

for($x=0;$x<$count;$x++){

   $db = $databases->Item($x);

   if (! $db->GetIsMaster() ) {

      #Get the database set of which this database is a member

      $dbSetName = $db->GetDatabaseSetName();

      #Get the database name from the description object

      $dbName = $db->GetDatabaseName();

      # Logon to the database 

      $sessionObj->UserLogon( "tom", "gh36ak3", $dbName, $dbSetName );

   }

#...

}

CQSession::Unbuild($sessionObj); 

フィードバック