GetDatabaseName

説明

データベースの名前を戻します。

Session オブジェクトの GetAccessibleDatabases メソッドを使用すると、DatabaseDesc オブジェクトのリストを取得し、その後 GetDatabaseName を使用して各データベースの名前を取得できます。データベースの名前を、Session オブジェクトの UserLogon メソッドの引数として使用します。

構文

VBScript

dbDesc.GetDatabaseName 

Perl

$dbDesc->GetDatabaseName(); 
識別子
説明
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 
      dbName = db.GetDatabaseName 
      `Logon to the database 
      sessionObj.UserLogon "tom", "gh36ak3", dbName, AD_PRIVATE_SESSION, ""
   End If
  ' ... 
Next 

Perl

use CQPerlExt;

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


#Get a list of accessible databases

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

#Get the number of databases

$count = $databases->Count();

# Foreach accessible database, get the dbName and

# login as joe with password gh36ak3

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

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

   $dbName = $db->GetDatabaseName();

      # Logon to the database 

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

   #...

   }

CQSession::Unbuild($sessionObj); 

フィードバック