GetDatabaseName

설명

데이터베이스의 이름을 리턴합니다.

Session 오브젝트의 GetAccessibleDatabases 메소드를 사용하여 DatabaseDesc 오브젝트 목록을 확보한 후 GetDatabaseName을 사용하여 각 오브젝트의 이름을 가져올 수 있습니다. 데이터베이스의 이름을 Session 오브젝트의 UserLogon 메소드의 인수로 사용할 수 있습니다.

구문

VBScript

dbDesc.GetDatabaseName 

Perl

$dbDesc->GetDatabaseName(); 
ID
설명
dbDesc
설치된 데이터베이스 중 하나에 대한 정보를 포함하는 DatabaseDesc 오브젝트.
Return value
데이터베이스의 이름을 포함하는 문자열.

예제

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);

피드백