ApplyPropertyChanges

Descrizione

Aggiorna le proprietà scrivibili del database dell'utente con tutte le modifiche recenti alla proprietà.

Richiamare questo metodo dopo aver impostato le proprietà del database dell'utente per aggiornare i valori corrispondenti nel database. Se non si richiama questo metodo, qualsiasi modifica recente eseguita sul database non verrà mantenuta.

Sintassi

VBScript

database.ApplyPropertyChanges forceEmpty 

Perl

$database->ApplyPropertyChanges(forceEmpty); 
Identificativo
Descrizione
database
Un oggetto Database.
forceEmpty
Riservato. Il valore deve essere False.

Per VB, un valore Variant. Questo argomento è facoltativo. Il valore predefinito è False.

Per Perl, un valore Boolean. Il valore deve essere False.

Valore di ritorno
Restituisce una stringa vuota se le modifiche alla proprietà sono valide. Restituisce una stringa contenente un messaggio di errore se esistono modifiche ai valori non corretti nelle proprietà del database.

Esempio

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.Desciption = "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); 

Feedback