Автоматическое архивирование - История изменений

SYSDBA в 10:15, 13 декабря 2023

2023-12-13T10:15:57Z

SYSDBA в 13:19, 5 апреля 2010

2010-04-05T13:19:21Z

SYSDBA в 13:12, 5 апреля 2010

2010-04-05T13:12:16Z

SYSDBA в 13:12, 5 апреля 2010

2010-04-05T13:12:00Z

SYSDBA в 10:59, 10 марта 2010

2010-03-10T10:59:11Z

SYSDBA в 19:45, 23 ноября 2006

2006-11-23T19:45:37Z

86.57.154.135 в 16:55, 23 ноября 2006

2006-11-23T16:55:23Z

86.57.154.135 в 16:47, 23 ноября 2006

2006-11-23T16:47:15Z

Новая страница

Ниже прилагается текст макроса написанного на VBScript, предназначенного для проведения автоматического
архивирования базы данных. Данный скрипт сохраняется в отдельном файле и указывается как исполняемый модуль
в "Назначенные задания" - стандратная программа Windows для выполнения какого-то приложения по расписанию.

Dim WshShell, oExec, Line, FileName

' Данный script предназначен для организации автоматического архивирования
' файл прописывается на сервере в назначенных заданиях, где указывается
' частота его запуска.

' Путь к базе данных
FromPath = "D:\Gedemin\Database\"
' Путь где будут создаваться архивы
ToPath = "D:\Gedemin\Database\"

Set WshShell = CreateObject("WScript.Shell")

' Создание backup базы
FileName = ToPath & "gdbase" & CStr(YEAR(DATE)) & "_" & CSTR(MONTH(DATE)) & "_" & CSTR(DAY(DATE)) & "_" & CSTR(HOUR(TIME)) & "_" & CSTR(Minute(TIME))
Line = """c:\program files\yaffil\bin\gbak.exe"" -b localhost:" & FromPath & "gdbase.fdb " & FileName & ".bk" & " -user SYSDBA -password masterkey"
Set oExec = WshShell.Exec(LINE)

Do While oExec.Status = 0
Loop

' Если вы пользуетесь для архивирование программой rar можно откоментировать данную строку и в каталог
' с архивом положить файл rar.exe, если пользуетесь другим архиватором то меняете ниже rar a -df на свой
' архиватор со своими опциями комадной строки

' Архивирование backup с удалением его самого для экономии места
' Line = ToPath & "rar.exe a -df " & FileName & ".rar " & FileName & ".bk"
' Set oExec = WshShell.Exec(LINE)

← Предыдущая		Версия 10:15, 13 декабря 2023
Строка 28:		Строка 28:

	Do While oExec.Status = 0		Do While oExec.Status = 0
		+	WinAPI.Sleep 200
	Loop		Loop

@@ Строка 3: / Строка 3: @@
 в "Назначенные задания" - стандратная программа Windows для выполнения какого-то приложения по расписанию.
-<source lang="VB.NET">
+<source lang="vbnet">
 Dim WshShell, oExec, Line, FileName

@@ Строка 3: / Строка 3: @@
 в "Назначенные задания" - стандратная программа Windows для выполнения какого-то приложения по расписанию.
-<pre>
+<source lang="VB.NET">
 Dim WshShell, oExec, Line, FileName
@@ Строка 44: / Строка 44: @@
 ' Set oExec = WshShell.Exec(LINE)
-</pre>
+</source>
 [[Category:Школа системного администратора]]

← Предыдущая		Версия 10:59, 10 марта 2010
Строка 45:		Строка 45:

	</pre>		</pre>
		+
		+	[[Category:Школа системного администратора]]

@@ Строка 1: / Строка 1: @@
-Ниже прилагается текст макроса написанного на VBScript, предназначенного для проведения автоматического
+Ниже прилагается текст макроса на [[VBScript]], предназначенного для автоматического
-архивирования базы данных. Данный скрипт сохраняется в отдельном файле и указывается как исполняемый модуль
+архивирования базы данных. Данный скрипт сохраняется в отдельном файле с расширением .VBS и указывается как исполняемый модуль
-в "Назначенные задания" - стандратная программа Windows для выполнения какого-то приложения по расписанию.
+в окне "Назначенные задания" (стандратная программа Windows для выполнения какого-то приложения по расписанию).
 <source lang="vbnet">
 ' Данный script предназначен для организации автоматического архивирования
 ' файл прописывается на сервере в назначенных заданиях, где указывается
 ' частота его запуска.
-' Путь к базе данных
+Dim WshShell, oExec, Line, FileName, FromPath, ToPath
-−
-FromPath = "D:\Gedemin\Database\"
-−
-' Путь где будут создаваться архивы
-−
-ToPath = "D:\Gedemin\Database\"
 Set WshShell = CreateObject("WScript.Shell")
+' Создание команды для архивирования базы с помощью
-' Создание backup базы
+' утилиты gbak.
-FileName = ToPath & "gdbase" & CStr(YEAR(DATE)) & "_" & CSTR(MONTH(DATE)) & "_" &_
+' Обратите внимание, что имя базы, архивного файла, путь
-   CSTR(DAY(DATE)) & "_" & CSTR(HOUR(TIME)) & "_" & CSTR(Minute(TIME))
+' к папке Firebird прописаны непосредственно в тексте
+' команды. Не забудьте заменить их на ваши значения.
-Line =  """c:\program files\yaffil\bin\gbak.exe"" -b localhost:" & FromPath & "gdbase.fdb " &_
+FileName = ToPath & "gdbase" & YEAR(DATE) & "_" & MONTH(DATE) & "_" &_
    FileName & ".bk" & " -user SYSDBA -password masterkey"
@@ Строка 38: / Строка 34: @@
 ' архиватор со своими опциями комадной строки
-' Архивирование backup с удалением его самого для экономии места
+' Архивирование backup с удалением (для экономии места)
 ' Line = ToPath & "rar.exe a -df " & FileName & ".rar " & FileName & ".bk"
 ' Set oExec = WshShell.Exec(LINE)
 </source>
 [[Category:Школа системного администратора]]