Скрипт архивации ИБ SQL 1С:Предприятие 7.7

30.08.24

Эти далекие 2000е... мы архивировали как могли. Пример командного файла для windows -- архивациия базы SQL 1С:Предприятие 7.7 средствами платформы.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
Backup1cv77.cmd .cmd 0,94Kb 0	0	2 500 руб. Купить	1 SM Скачать
CloseConnections1C77SQL.vbs .vbs 1,87Kb 0	0	2 500 руб. Купить	1 SM Скачать

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

0% комиссии — оплата напрямую исполнителю;
Исполнители любого масштаба — от отдельных специалистов до команд под проект;
Прямой обмен контактами между заказчиком и исполнителем;
Безопасная сделка — при необходимости;
Рейтинги, кейсы и прозрачная система откликов.

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

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

Код командного файла Backup1cv77.cmd

rem Close SQL connections
rem wscript CloseConnections1C77SQL.vbs %1 %2

rem Close File connections
rem for /f "skip=4 tokens=1" %%a in ('net files') do net files %%a /close

set BakDir=E:\1САрхив

set day=%DATE:~0,2%
set month=%DATE:~3,2%
set year=%DATE:~6,4%

set hour=%TIME:~0,2%
set minute=%TIME:~3,2%
set second=%TIME:~6,2%

set YYYYMMDD=%year%%month%%day%

cd %BakDir%
if not exist %2 (
mkdir %2 
cd %2
) else (
cd %2 
)

chcp 1251 >NUL

echo [General] > Batch.ini
echo Output=%BakDir%\%2\logfile.txt >> Batch.ini
echo Quit=1 >> Batch.ini
rem echo CheckAndRepair=0 >> Batch.ini
echo UnloadData=1 >> Batch.ini

rem echo [CheckAndRepair] >> %2.ini
echo [UnloadData] >> Batch.ini
echo UnloadToFile=%BakDir%\%2\%2%YYYYMMDD%.zip >> Batch.ini
echo IncludeUserDef=1 >> Batch.ini

c:
cd "c:\Program Files\1Cv77\BIN"
chcp 866 >NUL
1CV7s.EXE config /D"\\Srv-1cv7\sql1c\%~3" /NАдминистратор /PПароль123 /@%BakDir%\%2\Batch.ini

В начале командного файла присутствует вызов wscript CloseConnections1C77SQL.vbs %1 %2
который отключает клиенсткие сессии на стороне SQL.

Чуть ниже команда for /f "skip=4 tokens=1" %%a in ('net files') do net files %%a /close
которая закрывает сетевые подключения к файлам из сетевой папки с файлами ИБ.

Их необходимо раскомментировать, если ваши пользователи страдают забывчивостью.

Так же указать корректные пути.

Код подпрограммы WSH CloseConnections1C77SQL.vbs

Dim srv1 'As New SQLDMO.SQLServer
Dim usr1 'As SQLDMO.User
Dim qres 'As SQLDMO.QueryResults
Dim rs 'As New ADODB.Recordset
Dim sQueryResult 'As String
Dim rsQryResults 'As New ADODB.Recordset
Dim sRows() 'As String
Dim sCols() 'As String
Dim idxRow 'As Long
Dim idxCol 'As Long
Dim wshShell ' As wscript Object
Dim strSQLServer 'As String
Dim strDBKill 'As String

Dim objArgs 'As Arguments

set wshShell = createObject("wscript.shell")
set srv1 = CreateObject("SQLDMO.SQLServer")
set usr1 = CreateObject("SQLDMO.User")
set rs = CreateObject("ADODB.RecordSet")
Set rsQryResults = CreateObject("ADODB.RecordSet")

WshShell.LogEvent 0, "Kill Process Script Started"

Set objArgs = WScript.Arguments
strSQLServer = objArgs(0)
strDBKill = objArgs(1)

'Instantiate SQLServer object and
'point it at the server.
srv1.LoginSecure = True
srv1.Connect strSQLServer

Set oQueryResults = srv1.EnumProcesses

For idxCol = 1 To oQueryResults.Columns
	rsQryResults.Fields.Append oQueryResults.ColumnName(idxCol), 200, oQueryResults.ColumnMaxLength(idxCol) + 2
Next 'idxCol next column

'Create the recordset rows
rsQryResults.Open
For idxRow = 1 To oQueryResults.Rows
	'Add a new record
	rsQryResults.AddNew
	'Add values to each field in the row

	For idxCol = 1 To oQueryResults.Columns
		rsQryResults.Fields(idxCol - 1) = oQueryResults.GetColumnString(idxRow, idxCol)
	Next
	
	rsQryResults.Update
Next 'idxRow
' return to caller

Set rs = rsQryResults
rs.MoveFirst
Do While Not rs.EOF

	If UCase(rs("dbname").Value) = Ucase(strDBKill) Then
		WshShell.LogEvent 0, "The following process was killed programatically " & rs("Spid").Value & " " & rs("dbname").Value & " " & rs("status").Value
	srv1.KillProcess (CInt(rs("Spid").Value))
	End If

	rs.MoveNext
Loop

WshShell.LogEvent 0, "Kill Process Script Complete"

Set oQueryResults = nothing
Set rs = nothing

Для выполнения командного файла запустить с параметрами
Backup1cv77.cmd ИмяСервераSQL ИмяПапкиИАрхиваВНей ИмяБазыВSQL

Вступайте в нашу телеграмм-группу Инфостарт

Архивация1С77

+ –

См. также

Архивирование базы 7.7

Архивирование (backup) Системный администратор Разработчик 1С:Предприятие 7.7 1C77 Абонемент ($m)

Программа, написанная на Delphi7 для автоматизации сохранения БД.

1 стартмани

02.01.2017 17423 12 mt111 21

Автоматическое сохранение базы штатными средствами

Архивирование (backup) Системный администратор 1С:Предприятие 7.7 1C77 Абонемент ($m)

Всё началось с того, что я лентяй. Когда пришел на работу в первый раз, мне сообщили, что уже лет 10 делают сохранение базы каждый день в конце рабочего дня. Из этого вытекает, что если кто-то решит подтянуть свои хвосты, то мне приходится сидеть на работе тоже. Честно, мягко говоря, меня это не особо радовало... Порывшись на просторах инета, было принято решение сделать "автосохранялку". Как уже говорилось, "Я ЛЕНИВЫЙ", поэтому мне было попросту лень ставить всякие утилиты и программки, реализовал все штатными средствами.

1 стартмани

02.12.2016 18477 5 mt111 10

Простые вещи: Делаем архив базы 1С за 30 секунд

Архивирование (backup) Разработчик 1С:Предприятие 7.7 1С:Предприятие 8 1C:Бухгалтерия 1C77 Абонемент ($m)

Архив файловой базы 1С можно сделать за 30 секунд. Делаем предварительные настройки.

1 стартмани

09.12.2014 42868 12 denisk37 72

Бэкапер-1С: резервные копии бухгалтерии (1С 7.7 - 8.3)

Архивирование (backup) Системный администратор Разработчик Бухгалтер 1С:Предприятие 7.7 1С:Предприятие 8 1C:Бухгалтерия 1C77 Абонемент ($m)

Бэкапер-1С: версия 1.5.0. Появилась гибкая система удаления старых копий! А также: автоматический поиск баз, архивация документов, встроенный архиватор 7-Zip, целостность создаваемых копий, шифрование, отправка отчетов на почту и каталогизация. Ещё никогда резервное копирование не делалось так просто.

1 стартмани

16.05.2013 80138 642 alexey.karmanov 181

Автоматическое регулярное разворачивание оперативных бэкапов (совсем просто) в MS SQL 2008

Архивирование (backup) Системный администратор 1С:Предприятие 7.7 1С:Предприятие 8 1C:Бухгалтерия 1C77 Россия Бесплатно (free)

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

10.08.2012 21955 sergiobargio1 6

Архивация баз средствами командной строки Windows и архиватора Izarc, также скрипт для Linux.

Архивирование (backup) Системный администратор Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 1C77 Россия Абонемент ($m)

Архивация баз данных 1С 7.7 (при небольшом редактировании и версий 1С 8.х) средствами командной строки и архиватора Izarc Архивация каталога базы данных при размещении на Linux (smb-сервере к примеру) средствами linux.

1 стартмани

11.05.2012 15896 16 slava81 5