ApplyPropertyChanges

Description

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
Description
database
Un objeto Database.
forceEmpty
Reservado. Debe ser False.

Para VB, un valor Variant. Este argumento es opcional. El valor predeterminado 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)

' Create a new database

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

# Create a new database object

my($DB);

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

# Set some properties

$DB->SetName("NEWDB");

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

# Set all the physical characteristics...

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

# Store the database in SQL Server, on machine, 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("");  # Not needed, for SQL Server

# Set the initial schema rev of the user database...

$DB->SetInitialSchemaRev($DesiredSchemaRev);



# Apply the property changes

$DB->ApplyPropertyChanges(0); 

Comentarios