Previous in Contents Next in Contents

Commit Method

This property commits any changes to the schedule.

Syntax

ReplicationSchedule.Commit

Remarks

You must commit any changes to a schedule before they take effect.

Example

The following example creates a new schedule for project MyProject to replicate on Friday at 11:00 P.M.

Option Explicit 
On Error Resume Next 

const OPEN_EXISTING_PROJECT  = 2
const CRS_SCHEDULE_DAY_FRIDAY  = 16
const CRS_SCHEDULE_REPLICATE   = 2

dim ReplServer
set ReplServer = CreateObject("CrsApi.ReplicationServer")
ReplServer.Initialize("")

dim ReplProject
set ReplProject = ReplServer.OpenProject("MyProject", _
  OPEN_EXISTING_PROJECT)

dim RepSched
set RepSched = ReplProject.AddSchedule

RepSched.Description = "The Friday night schedule."
RepSched.Days = CRS_SCHEDULE_DAY_FRIDAY
RepSched.Hour = 23
RepSched.ScheduledAction = CRS_SCHEDULE_REPLICATE
RepSched.Commit

'Release objects
set Sched       = Nothing
set ReplProject = Nothing
set ReplServer  = Nothing

See Also

ReplicationProject.AddSchedule, ReplicationProject.EnumSchedules


© 1997-2000 Microsoft Corporation. All rights reserved.