GetDatabaseConnectString

Descripción

Devuelve la serie de "conexión directa" para el inicio de sesión en la base de datos.

Este método devuelve una serie de "conexión directa" específica de la base de datos que se puede pasar a una interfaz ODBC. El procedimiento normal de inicio de sesión en una base de datos es invocando al método UserLogon del objeto Session. Este método puede resultar útil a los expertos que deseen utilizar DAO u otros métodos ODBC para leer la base de datos de Rational ClearQuest.

Nota: Debe iniciar la sesión con el privilegio de Super_User o, de lo contrario, GetDatabaseConnectString genera un error.

Sintaxis

VBScript

dbDesc.GetDatabaseConnectString 

Perl

$dbDesc->GetDatabaseConnectString(); 
Identificador
Descripción
dbDesc
Un objeto DatabaseDesc que contiene información sobre una de las bases de datos instaladas.
Valor de retorno
Un String cuyo valor es la serie de "conexión directa".

Ejemplos

VBScript

En el ejemplo siguiente se muestra cómo iniciar la sesión en la base de datos desde una aplicación de Visual Basic.

set sessionObj = CreateObject("CLEARQUEST.SESSION")
' Iniciar la sesión en cada base de datos sucesivamente.
databases = sessionObj.GetAccessibleDatabases("MASTR","","")
For Each db in databases
   dbName = db.GetDatabaseName

   sessionObj.UserLogon "admin", "", dbName, AD_PRIVATE_SESSION, ""

   dbConnectString = db.GetDatabaseConnectString
Next 

Perl

use CQPerlExt;

#Iniciar una sesión de Rational ClearQuest
$sessionObj = CQSession::Build();

#Obtener una lista de bases de datos a las que se puede acceder

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

$count = $databases->Count();

#Para cada base de datos a la que se puede acceder, iniciar la sesión
#como joe con la contraseña gh36ak3

#joe debe ser un superusuario 

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

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

   $dbName = $db->GetDatabaseName();

   # Iniciar la sesión en la base de datos 

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

#Obtener una serie de "conexión directa" que puedan
#utilizar los expertos de ODBC 

#para iniciar la sesión en la base de datos

   $dbConnectString = $db->GetDatabaseConnectString();

}

CQSession::Unbuild($sessionObj); 


Comentarios