ApplyPropertyChanges

Descripción

Actualiza las propiedades que se pueden escribir de la base de datos de usuario con todos los cambios de propiedades recientes.

Llame a este método después de establecer las propiedades de la base de datos de usuario para actualizar los valores correspondientes de la base de datos. Si no llama a este método, se pierden todos los cambios recientes que ha realizado en la base de datos.

Sintaxis

VBScript

database.ApplyPropertyChanges forceEmpty 

Perl

$database->ApplyPropertyChanges(forceEmpty); 
Identificador
Descripción
database
Un objeto Database.
forceEmpty
Reservado. Debe ser False.

Para VB, un valor Variant. Este argumento es opcional. El valor por omisión es False.

Para Perl, un Boolean. Debe ser False.

Valor de retorno
Devuelve un String vacío si los cambios de la propiedad son válidos. Devuelve un valor String que contiene un mensaje de error si hay cambios de valor incorrectos en las propiedades de la base de datos.

Ejemplo

VBScript

set adminSession = CreateObject("ClearQuest.AdminSession)

' Crear una nueva base de datos

set db = adminSession.CreateDatabase("newDb")

db.Vendor = AD_SQL_SERVER

db.DatabaseName = "path SQL-Server db file"

db.Description = "This is a sample database"

db.Server = "machine name of the server"

db.SetInitialSchemaRev =  "some schema revision"

db.ApplyPropertyChanges 

Perl

# Crear un nuevo objeto Database

my($DB);

$DB = $CQAdminSession->CreateDatabase("NEWDB");

# Establecer algunas propiedades

$DB->SetName("NEWDB");

$DB->SetDescription("My Cool Database");

# Establecer todas las características físicas...

$DB->SetVendor($CQPerlExt::CQ_SQL_SERVER);

# Almacenar la base de datos en SQL Server, en la máquina, MySQLServer

$DB->SetServer("MySQLServer");

$DB->SetDatabaseName("CQ_NEWDB");

$DB->SetDBOLogin("CQ_NEWDB_DBO");

$DB->SetDBOPassword("SECRET");

$DB->SetRWLogin("CQ_NEWDB_DBO");

$DB->SetRWPassword("SECRET");

$DB->SetROLogin("CQ_NEWDB_DBO");

$DB->SetROPassword("SECRET");

$DB->SetTimeoutInterval(0);

$DB->SetConnectOptions("");  # No se necesita para SQL Server

# Establecer la revisión de esquema inicial de la base de datos de usuario...

$DB->SetInitialSchemaRev($DesiredSchemaRev);



# Aplicar los cambios de propiedades

$DB->ApplyPropertyChanges(0); 


Comentarios