DatabaseConnection is Connection
...
hBck is hBackupDescription
hBck.Enabled = True
hBck.WithIndex = True
hBck.Description = "Scheduled backup every N minutes with " + ...
"an incremental backup every minut on the " + ...
DBConnection.Database + " created on "+ ...
DateToString(DateSys(), maskDateSystem) + " at "+ ...
TimeToString(TimeSys(), "HH:MM:SS:CC")
hBck.Destination = "Backup_" + DBConnection.Database
hBck.LimitNumberBackups = 2
hBck.Source = DatabaseConnection.Database
hBck.SchedulingFull.Month = "*"
hBck.SchedulingFull.DayOfMonth = "*"
dhServerDateTime is DateTime = DBConnection.InfoServer(hInfoDate)
dtServerDateTime.Minute++
hBck.SchedulingFull.Hour = dtServerDateTime.Hour
hBck.SchedulingFull.Minute = dtServerDateTime.Minute
hBck.SchedulingFull.DayOfWeek = "*"
hBck.SchedulingFull.DayOfMonthOrDayOfWeek = False
hBck.SchedulingDifferential.Month = "*"
hBck.SchedulingDifferential.DayOfMonth = "*"
hBck.SchedulingDifferential.Hour = "*"
hBck.SchedulingDifferential.Minute = "*"
hBck.SchedulingDifferential.DayOfWeek = "*"
hBck.SchedulingDifferential.DayOfMonthOrDayOfWeek = False
IF DBConnection.AddScheduledBackup(hBck) = False THEN
Error("Failure creating the scheduled backup", ...
HErrorInfo(hErrFullDetails))
RETURN
END