GetDatabaseName

Descrizione

Restituisce il nome del database.

È possibile utilizzare il metodo GetAccessibleDatabases dell'oggetto Session per ottenere un elenco di oggetti DatabaseDesc e quindi utilizzare GetDatabaseName per ottenere il nome di ciascuno di essi. Il nome del database si utilizza come un argomento del metodo UserLogon dell'oggetto Session.

Sintassi

VBScript

dbDesc.GetDatabaseName 

Perl

$dbDesc->GetDatabaseName(); 
Identificativo
Descrizione
dbDesc
Un oggetto DatabaseDesc contenente informazioni su uno dei database installati.
Valore di ritorno
Una stringa contenente il nome del database.

Esempi

VBScript

Nel seguente esempio viene mostrato come accedere al database da un'applicazione 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); 

Feedback