Программное копирование файла текущей базы данных - История изменений

SYSDBA в 15:29, 10 января 2012

2012-01-10T15:29:39Z

SYSDBA в 14:38, 10 января 2012

2012-01-10T14:38:11Z

SYSDBA в 14:17, 10 января 2012

2012-01-10T14:17:36Z

SYSDBA в 14:12, 10 января 2012

2012-01-10T14:12:33Z

SYSDBA в 14:08, 10 января 2012

2012-01-10T14:08:04Z

SYSDBA в 14:06, 10 января 2012

2012-01-10T14:06:17Z

SYSDBA: Новая страница: «Приведенный ниже макрос создает копию файла текущей базы данных в случае использования в…»

2012-01-10T14:02:07Z

Новая страница: «Приведенный ниже макрос создает копию файла текущей базы данных в случае использования в…»

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

Приведенный ниже макрос создает копию файла текущей базы данных в случае использования встроенного или локального подключения по протоколу XNET.

<syntaxhighlight lang="vbnet">
Option Explicit
Sub gd_CopyDatabaseFile

Dim R, FileSys, FileName
gdcBaseManager.ExecSingleQueryResult _
"SELECT mon$remote_protocol, mon$attachment_name FROM mon$attachments " &_
"WHERE mon$attachment_id = CURRENT_CONNECTION", 0, R, nil

If R(0, 0) = "XNET" Or R(0, 0) = "" Or IsEmpty(R(0, 0)) Then
FileName = R(1, 0)
Set FileSys = CreateObject("Scripting.FileSystemObject")
If FileSys.FileExists(FileName) Then
gdcBaseManager.ExecSingleQuery "ALTER DATABASE BEGIN BACKUP", nil
On Error Resume Next
FileSys.CopyFile FileName, FileName & ".copy", True
On Error GoTo 0
gdcBaseManager.ExecSingleQuery "ALTER DATABASE END BACKUP", nil
End If
End If

End Sub
</syntaxhighlight>

Перед подключением к копии базы ее следует разблокировать командой:

nbackup [-U <user> -P <password>] -F <database>

[[Category:VBScript]]
[[Category:Школа системного администратора]]

← Предыдущая		Версия 15:29, 10 января 2012
Строка 1:		Строка 1:
−	Приведенный ниже макрос создает дубликат текущей базы данных. Макрос должен выполняться на том же компьютере, где находится файл базы данных. Копия получит расширение ".copy" и будет располагаться рядом с исходным файлом.	+	Приведенный ниже [[макрос]] создает дубликат текущей базы данных. Макрос должен выполняться на том же компьютере, где находится файл базы данных. Копия получит расширение ".copy" и будет располагаться рядом с исходным файлом.

	<syntaxhighlight lang="vbnet">		<syntaxhighlight lang="vbnet">

@@ Строка 25: / Строка 25: @@
 </syntaxhighlight>
-Перед подключением к сделанной копии ее следует разблокировать командой:
+====Примечания====
-  nbackup [-U <user> -P <password>] -F <database>
+* Макрос не будет работать, если подключение к базе данных осуществляется через алиас.
-'''Примечание:''' макрос не будет работать, если подключение к базе данных осуществляется через алиас.
+  nbackup [-U <user> -P <password>] -F <database>
 ====См. также====

← Предыдущая		Версия 14:08, 10 января 2012
Строка 1:		Строка 1:
−	Приведенный ниже макрос создает ~~копию~~ текущей базы данных. Макрос должен выполняться на том же компьютере, где ~~расположен~~ файл базы данных. Копия получит расширение ".copy" и будет располагаться рядом с исходным файлом.	+	Приведенный ниже макрос создает дубликат текущей базы данных. Макрос должен выполняться на том же компьютере, где находится файл базы данных. Копия получит расширение ".copy" и будет располагаться рядом с исходным файлом.

	<syntaxhighlight lang="vbnet">		<syntaxhighlight lang="vbnet">

@@ Строка 29: / Строка 29: @@
    nbackup [-U <user> -P <password>] -F <database>
-Примечание: макрос не будет работать, если подключение к базе данных осуществляется через алиас.
+'''Примечание:''' макрос не будет работать, если подключение к базе данных осуществляется через алиас.
 [[Category:VBScript]]
 [[Category:Школа системного администратора]]

@@ Строка 1: / Строка 1: @@
-Приведенный ниже макрос создает копию файла текущей базы данных в случае использования встроенного или локального подключения по протоколу XNET.
+Приведенный ниже макрос создает копию текущей базы данных. Макрос должен выполняться на том же компьютере, где расположен файл базы данных. Копия получит расширение ".copy" и будет располагаться рядом с исходным файлом.
 <syntaxhighlight lang="vbnet">
@@ Строка 25: / Строка 25: @@
 </syntaxhighlight>
-Перед подключением к копии базы ее следует разблокировать командой:
+Перед подключением к сделанной копии ее следует разблокировать командой:
    nbackup [-U <user> -P <password>] -F <database>