Циклический бэкап по дням недели

Публикация № 71814

Администрирование - Администрирование данных 1С - Архивирование (backup)

В интернете часто можно встретить статьи о том, как написать скрипты для автоматического архивирования баз MSSQL. Методика, в них предлагаемая создает новый архив каждый новый день. Более подробно об этом можно почитать в http://outcoldman.ru/ru/blog/show/127 Я предлагаю незначительное усовершенствование скриптов и генерацию архивов по дням недели с циклической их перезаписью. Скрипт тоже не полностью мой, а скомпонован из различных примеров, найденных в интернете, но, надеюсь, именно представленный вариант будет полезен не только мне.

 

Циклический бэкап по дням недели.

 

В интернете часто можно встретить статьи о том, как написать скрипты для автоматического архивирования баз MSSQL. Методика, в них предлагаемая создает новый архив каждый новый день.

Более подробно об этом можно почитать в http://outcoldman.ru/ru/blog/show/127

   Я предлагаю незначительное усовершенствование скриптов и генерацию архивов по дням недели с циклической их перезаписью. Скрипт тоже не полностью мой, а скомпонован из различных примеров, найденных в интернете, но, надеюсь, именно представленный вариант будет полезен не только мне.

 

Для бэкапирования SQL сервера используется обычный скрипт:

DECLARE @pathName NVARCHAR(512)

SET @pathName = 'D:\Backup\db_backup_' + Convert(varchar(8), GETDATE(), 112) + '.bak'

BACKUP DATABASE [MyDataBase] TO DISK = @pathName WITH NOFORMAT, INIT, NAME = N'db_backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10

 

Этот скрипт создает бекап с именем файла db_backup_YYYYDDMM.bak где YYYYDDMM – это текущая дата.  Дата в имени файла позволит нам создавать каждый день бекап в новом файле. Запустите и проверьте что бекап действительно создается такой, какой вам и нужен. Этот скрипт сохраняем в какой-нибудь папке под именем schedule.sql, предположим c:\sheduled tasks. В этой же папке создадим исполняемый файл backup.bat, следующего содержания:

@Echo Off

SetLocal EnableExtensions EnableDelayedExpansion

 

For /F "Tokens=1* Delims==" %%i In ('WMIC Path Win32_LocalTime Get /Value ^| Find "="') Do (

  Set V=%%j

  Set $%%i=!V:~0,-1!

)

If "%$DayOfWeek%"=="0" Set $DayOfWeek=7

 

For /F "Tokens=%$Month%" %%i In ("January February March April May June July August September October November December") Do Set $MonthName=%%i

For /F "Tokens=%$DayOfWeek%" %%i In ("Monday Tuesday Wednesday Thursday Friday Saturday Sunday") Do Set $DayOfWeekName=%%i

 

Echo --------------------------------------

Echo Day            : %$Day%

Echo Month          : %$MonthName% (%$Month%-й месяц года)

Echo Year           : %$Year%

Echo --------------------------------------

Echo DayOfWeek      : %$DayOfWeekName% (%$DayOfWeek%-й день недели)

Echo Quarter        : %$Quarter%

Echo --------------------------------------

Echo Hour           : %$Hour%

Echo Minute         : %$Minute%

Echo Second         : %$Second%

Echo --------------------------------------

 

sqlcmd -S SEVERNAME -U UserName -P Password -i schedule.sql

del D:\Backup\db_backup _%$DayOfWeekName%.rar

"C:\Program Files (x86)\WinRAR\Rar.exe" a -m2 D:\Backup\db_backup _%$DayOfWeekName%.rar D:\Backup\db_backup _*.bak

If "%$Day%"=="1" copy D:\Backup\db_backup _%$DayOfWeekName%.rar D:\Backup\db_backup _%$MonthName%.rar

del D:\Backup\db_backup _*.bak

 

Где меняем SERVERNAME – имя сервера, UserName – имя пользователя, Password – пароль пользователя, schedule.sql – имя сохраненного скрипта. Вторая и третья строка батника архивирует бекап в rar файл и удаляет сам файл бекапа. Для того чтобы работала архивация необходимо установить архиватор WinRAR и прописать полные пути до исполняемого файла Rar.exe. Дополнительно в этом варианте скрипта создается ежемесячный архив. Если он не нужен, уберите строчку: If "%$Day%"=="1" copy D:\Backup\db_backup _%$DayOfWeekName%.rar D:\Backup\db_backup _%$MonthName%.rar. Возможны другие варианты архивации (ежемесячная, ежеквартальная и т.д.) с помощью незначительной модификации скрипта,

 

 Теперь можем запустить исполняемый файл backup.bat и проверить проработает ли он так как нужно. Последний шаг это записать schedule в задачи windows. Запускаем Task Scheduler из меню Пуск, либо набираем в командной строке taskschd.msc. В разных версиях Windows это выглядит по-разному, да и информацию о том, как сделать задачу можно прочитать в помощи Windows. Основное – это запускать задачу от имени пользователя с достаточными правами на используемые папки. При помощи таких действий можно так же запрограммировать и любые другие задачи. В скрипте schedule.sql можно перед бекапом вызвать какие-либо необходимые процедуры, может переиндексирование или сжатие базы данных.

 

 

Акция! Вы можете скачать эту разработку в  составе архива всех моих разработок, которые я предлагаю за StartMone, по Специальной  цене//infostart.ru/public/960899/#archive

Скачать файлы

Наименование Файл Версия Размер
Циклический бэкап по дням недели

.docx 15,55Kb
282
.docx 15,55Kb 282 Скачать

Специальные предложения

Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. arteast 105 15.06.10 16:25 Сейчас в теме
Ммм...доброго времени суток. А чем этот подход принципиально лучше механизма бэкапов средствами SQL?
7. milkers 2467 16.06.10 11:44 Сейчас в теме
(1) Принципиальной разницы нет чем пользоваться. Следует напомнить, что все средства бэкапирования SQL баз рассчитаны на конкретный тип SQL сервера, как правило, платные, или не имеют достаточной гибкости. Скрипт абсолютно прозрачен, легко контролируем и достаточно надежен, к тому же абсолютно бесплатен и может быть адаптирован под любой тип SQL сервера.

(2)(3) Не у всех клиентов такие большие базы. Как правило, на сервере с 4-8 процессорами параллельное архивирование базы не заметно даже в дневные часы. Но по сценарию я запускаю архивирование в ночное время суток. Для больших баз от архивирования надо отказываться и использовать достаточно большие внешние носители, благо с размеров жестких дисков сейчас проблем нет. Копирование по сети тоже не единственный вариант бэкапа. Сеть тоже разной бывает по пропускной способности.
2. German 874 15.06.10 18:53 Сейчас в теме
Все это очень не надежно.

Сколько будет бекапится файл в 500ГГ? А потом еще и по сетке переливаться?

И все это еще и будет делать рабочий сервер, если нужен такой функционал то лучше использовать
http://www.red-gate.com/products/SQL_Backup/index.htm

лучше решения нет. ;)

3. webester 34 16.06.10 03:01 Сейчас в теме
(2) Решение то неплохое но 300$ за возможность делать бэкапы многовато как то, не находите?
5. German 874 16.06.10 09:04 Сейчас в теме
(3) но оно того стоит, работает безупречно и дает полную уверенность в том что все хорошо.
8. webester 34 16.06.10 12:17 Сейчас в теме
(5) Вопрос не только в том стоит или не стоит, вопрос еще в том что сравнивать приложение за 300$ и скрипт сделанный в обеденные перерывы как то неправильно. Это продукты из разных категорий. Но открытые решения всегда больше нравились в силу сказанного в (7)
6. Ivon 660 16.06.10 11:09 Сейчас в теме
(3)(4)(5)Вот код для SQL Job
------------------------------------------------------
IF DATEPART(dw, getdate()) = 1
BEGIN
BACKUP DATABASE [MyDB]
TO DISK = N'G:\BackUp\MyDB_full.bak'
WITH NOFORMAT, NOINIT,
NAME = N'MyDB-Full Database Backup',
SKIP, NOREWIND, NOUNLOAD, STATS = 10
END
ELSE
BEGIN
BACKUP DATABASE [MyDB]
TO DISK = N'G:\BackUp\MyDB_diff.bak'
WITH DIFFERENTIAL , NOFORMAT, NOINIT,
NAME = N'MyDB-Differential Database Backup',
SKIP, NOREWIND, NOUNLOAD, STATS = 10
END
----------------------------------------------------------
Делает в воскресенье полный бекап и во все остальные дни разностный.
Если у кого Express-версия - копать в сторону sqlcmd. В этом случаевышеупомянутый код записываем в текстовый файл mybackupscript.sql и запускаем его на сервере MSSQL Express с помощью sqlcmd. Соответственно все это дело можно запихнуть в планировщик.
Если не Express версия, то рекомендую вместе с данным скриптом использовать Log shipping.
diocon; clsmk; +2 Ответить
4. clsmk 16.06.10 08:28 Сейчас в теме
А чем этот подход принципиально лучше механизма бэкапов средствами SQL?


В Express версии нет SQL Agent
Скрипты SQL соответственно запускать по расписанию удобнее вот так.
9. DMSDeveloper 16.06.10 13:34 Сейчас в теме
(4) А в Express версии SQL-Server agent и не нужен!
По условиям лицензирования Microsoft - SQL Express предназначен для разработчиков программного обеспечения и нивкоем случае не должен использоваться при осуществлении коммерческой деятельности.
Т.е. Разработать программу для SQL и затем продавать программу вы можете, а вот использовать его как движок для своей рабочей базы - нельзя.
10. nikakoy 43 16.06.10 13:36 Сейчас в теме
У нас так реализовано...
На сервере, не сильно загруженном в дневное время, запускается назначенное задание, через 10 мин. (вычислено эмпирически, с большим запасом).
В файлы год_месяц_дата_MD и год_месяц_дата бекапируются файлы MD,DDS,USR и SQL бекап в отдельный файл (потому что это занимает порядочное время) .
Технология - файлы структуры копируются, переименовываются и упаковываются в архив.
Файл бэкапа переименовывается и архивируется.
Имена файлов формируются час_минуты.расширение.
поскольку бекапирование каждый час, на имени файлов не морочился, используется текущее время сервера.

Собственно сам VBS скрипт


Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
l= len(CStr(time))
'формирование новых имен файлов
if l=8 then
NewName = CStr(Mid( time,1,2) & "_" & Mid(time,4,2) & "_" & "Base_" & ".bak")
NewNameMD = CStr(Mid( time,1,2) & "_" & Mid(time,4,2) & "_" & "Base_" & ".MD")
NewNameDDS = CStr(Mid( time,1,2) & "_" & Mid(time,4,2) & "_" & "Base_" & ".DDS")
NewNameUSR = CStr(Mid( time,1,2) & "_" & Mid(time,4,2) & "_" & "Base_" & ".USR")
else
NewName = CStr(Mid( time,1,1) & "_" & Mid(time,3,2) & "_" & "Base_" & ".bak")
NewNameMD = CStr(Mid( time,1,1) & "_" & Mid(time,3,2) & "_" & "Base_" & ".MD")
NewNameDDS = CStr(Mid( time,1,1) & "_" & Mid(time,3,2) & "_" & "Base_" & ".DDS")
NewNameUSR = CStr(Mid( time,1,1) & "_" & Mid(time,3,2) & "_" & "Base_" & ".USR")
end if

'C:\BKP\ временная папка на сервере выполняющем архивацию
'N:\Base\ путь к каталогу базы данных

objFSO.CopyFile "N:\Base\1Cv7.MD" , "C:\BKP\" & NewNameMD , OverwriteExisting
objFSO.CopyFile "N:\Base\1Cv7.DDS" , "C:\BKP\" & NewNameDDS , OverwriteExisting
objFSO.CopyFile "N:\Base\usrdef\users.usr" , "C:\BKP\" & NewNameUSR , OverwriteExisting

'файл rar.exe положил в C:\Program Files\1Cv77
'файлы после завершения упаковки удаляются rar_ом...

RunStr ="C:\Progra~1\1Cv77\RAR a \\CетевоеИмяКудаПоложитьАрхив\BKP$\Base_" & Mid(Date,9,2) & "_" & Mid(Date,4,2) & "_" & Mid(Date,1,2) & "_MD C:\BKP\*.* -DW"
WshShell.Run runstr

WScript.Sleep 12000

objFSO.MoveFile "\\Srv02\bkp$\Base_backup.bak" ,"\\Srv02\bkp$\" & NewName
RunStr ="C:\Progra~1\1Cv77\RAR a \\CетевоеИмяКудаПоложитьАрхив\BKP$\Base_" & Mid(Date,9,2) & "_" & Mid(Date,4,2) & "_" & Mid(Date,1,2) & ".rar \\СетевоеИмяSQLсервера\bkp$\" & NewName & " -DW"

WshShell.Run runstr
mike_grig; +1 Ответить
11. nikakoy 43 16.06.10 13:42 Сейчас в теме
Может кому-то пригодится..
Ежесуточный (средствами 1С) выполняется скриптом.

On Error Resume Next
dim ParamFile,BasePath,User,UserPassvord,Arhiv,RunString
Set objShellApp = CreateObject("Shell.Application")
BasePath = "N:\Base\"
User = "UsVeR"
UserPassvord = "UsVeR_Pass"

Arhiv = CStr("N:\Base\InOut\Base_" & Mid(Date,9,2) & "_" & Mid(Date,4,2) & "_" & Mid(Date,1,2) & ".zip")
ParamFile = CStr(BasePath & "\arhiv.prm")
Set FSO = CreateObject("Scripting.FileSystemObject")
'MsgBox paramfile, vbInformation
Set File = FSO.CreateTextFile(ParamFile)
file.WriteLine "[general]"
file.WriteLine "Quit=1"
file.WriteLine "UnloadData=1"
file.WriteLine "[UnloadData]"
file.WriteLine "IncludeUserDef=1"
file.WriteLine "UnloadToFile=""" & Arhiv & """"
RunStr = """C:\Program Files\1Cv77\BIN\1cv7s.exe"" Config /D" & """" & BasePath & """ /N" & User & " /P" & UserPassvord & " /@""" & paramFile & """"
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run runstr
If Err.Number <> 0 Then
MsgBox "Чет не срослось!", vbInformation
End If
Мединцентр; clsmk; +2 Ответить
12. Baglandir 20.09.11 13:09 Сейчас в теме
Сделал себе бекапы на основании этой статьи.
Рекомендую в дополнение к статьи скачать видеоуроки по бекопированию. Оказалось все не так сложно как казалось на первый взгляд.

В дополнение добавлю что возникли трудности с очисткой лог файла которые решаются с помощю скриптов .
13. Ichigo 03.10.11 15:13 Сейчас в теме
Хороший скрипт, очень удобный!

Поставили и забыли про бэкапы :) каждый день (ночью) автоматом запускается и делается бэкап. Человеческий фактор уходит (забывчивость).
14. wolf2012x 05.10.11 23:06 Сейчас в теме
16. skelelaz 20.03.14 00:10 Сейчас в теме
Бэкаплю bat-файлом с WinRAR 3 раза в сутки. Тоже нормально. На счет цикличности - предпочитаю чистить от лишних архивов вручную, а так пускай собираются, сколько места хватит. Бывает, что надо архив полугодовой давности посмотреть.
Оставьте свое сообщение

См. также

Архивирование базы данных 1С средствами сервера

Архивирование (backup) v8 1cv8.cf Россия Абонемент ($m)

Практическое описание технологии архивирования файловой базы 1С средствами Windows Server 2008 R2.

1 стартмани

12.10.2020    688    zemskov    10    

Резервные копии SQL с помощью планировщика виндовс и скрипта

Архивирование (backup) v8 Абонемент ($m)

Всем привет! Сильно не судите, в основном я создаю эту статью для себя, чтобы не забыть об этом, сразу скажу, что я не программист, но по долгу работы приходится решать вопросы. В данной статье я покажу код батника, с помощью которого я делаю резервное копирование баз данных 1С посредством SQL.

1 стартмани

12.03.2020    2723    VID1234    14    

Резервное копирование и восстановление БД 1С 8.3 на PostgreSQL 11.5

Архивирование (backup) v8 1cv8.cf Абонемент ($m)

Резервное копирование баз данных 1С является обязательным, чтобы в случае непредвиденной проблемы всегда была возможность все восстановить. В статье мы рассмотрим, как произвести резервное копирование и восстановление из копии базы 1 8.3, работающей на PostgreSQL 11.5.

1 стартмани

30.01.2020    23783    ClickUp    46    

Поздравление с Новым Годом! (Управляемые формы, авто год)

Поздравления v8 v8::УФ ДО ERP2 БП3.0 УТ11 ЗУП3.x Абонемент ($m)

Открытие окна поздравления при старте программы. Можно менять открытку и текст поздравления.

1 стартмани

10.12.2018    15379    78    milkers    24    

Исполняемый .bat файл для резервного копирования 1С

Архивирование (backup) v8 1cv8.cf Абонемент ($m)

Простейшее решение для выгрузки .dt, доступное любому пользователю 1С.

1 стартмани

14.05.2018    26736    SergPetr    32