GetDatabaseName

Description

Returns the name of the database.

You can use the Session object's GetAccessibleDatabases method to obtain a list of DatabaseDesc objects, and then use GetDatabaseName to get the name of each one. You use the name of the database as an argument to the Session object's UserLogon method.

Syntax

VBScript

dbDesc.GetDatabaseName 

Perl

$dbDesc->GetDatabaseName(); 

Identifier

Description

dbDesc

A DatabaseDesc object containing information about one of the installed databases.

Return value

A String containing the name of the database.

Examples

VBScript

The following example shows you how to log on to the database from a Visual Basic application.

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