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.
VBScript
database.ApplyPropertyChanges forceEmpty
Perl
$database->ApplyPropertyChanges(forceEmpty);
Para VB, un valor Variant. Este argumento es opcional. El valor por omisión es False.
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);