Objeto Database

Un objeto Database almacena información sobre una base de datos de usuario.

Utilice el objeto Database para cambiar las propiedades asociadas a una base de datos. Por medio de las propiedades de este objeto, puede obtener y establecer el nombre de la base de datos, información descriptiva, intervalos de tiempo de espera excedido e información de inicio de sesión. También puede utilizar los métodos de este objeto para ajustar la revisión de esquema asociada a la base de datos.

El establecimiento de una propiedad no actualiza de modo automático el valor correspondiente en la base de datos. Para actualizar los valores de la base de datos, debe llamar al método ApplyPropertyChanges. Cuando llama a este método, IBM Rational ClearQuest actualiza los valores de todas las propiedades de la base de datos que han cambiado.

Para establecer la revisión de esquema de una nueva base de datos, cree la base de datos y, a continuación, llame al método SetInitialSchemaRev del objeto de base de datos.

Para cambiar la revisión de esquema de una base de datos existente, llame al método Upgrade del objeto de base de datos.

Para crear una nueva base de datos de usuario utilizando el objeto Database, siga los pasos que se indican a continuación:

  1. Cree la base de datos llamando al método CreateDatabase del objeto AdminSession actual.
  2. Establezca la revisión de esquema inicial por medio del método SetInitialSchemaRev.
    Nota: Cuando las nuevas revisiones de esquema estén disponibles, actualice la base de datos utilizando el método Upgrade.

En los ejemplos siguientes se muestra cómo crear una base de datos y establecer su revisión de esquema inicial.

Ejemplos

VBScript

set adminSession = CreateObject("Rational ClearQuest.AdminSession") 
set db = adminSession.CreateDatabase("newDB") 

' Set initial schema to first revision of "mySchema" 
set schemas = adminSession.Schemas 
set mySchema = schemas.Item("mySchema") 
set schemaRevs = mySchema.SchemaRevs 
set firstRev = schemaRevs.Item(1) 
db.SetInitialSchemaRev(firstRev) 

Perl

use CQPerlExt;
$adminSession = CQAdminSession::Build();

#Create a database
$db = $adminSession->CreateDatabase("newDB");

#From the list of schemas from the schema repository, get the
#"mySchema"
$schemas = $adminSession->GetSchemas();
$mySchema = $schemas->ItemByName("mySchema");

#From the list of all the revisions associated with "mySchema", 
#get the first revision in the list
$schemaRevs = $mySchema->GetSchemaRevs();
$firstRev = $schemaRevs->Item(0);

#Set initial schema to first revision of "mySchema"
$db->SetInitialSchemaRev($firstRev);

#...
CQAdminSession::Unbuild($adminSession); 

Comentarios