Архивирование

[IvanFR]

Всем привет
Хочу спросить вашего совета и услышать Ваше мнение.

Обрисую примерно ситуацию: к программе подключена база данных (занимает порядка 100 мб, при архивации rar'ом сжимается в 3 раза). База постоянно модифицируется и требует резервного копирования с сохранением предыдущих копий. Возможно ли сделать так, чтобы программа делала резервную архивную копию базы. Ну если не сама, то хотя бы автоматически задействуя архиватор.

Если это в принципе возможно, то подскажите с чего начать.

[GSerg]

Какая база?

[IvanFR]

Access *.mdb
Какая база - это в принципе не так уж и важно.

Вопрос глобальный - вообще чего-нибудь программно заархивить или еще как-нибудь зап'акить. Допустим это была бы не база, а огромный текстовой файл или еще чего...

Вообще я порылся в архиве и понял, что делать собственный архиватор к проге бессмысленно. Так что остается одно - как нибудь подключить архиватор, что бы он все за мою нерадивую прогу делал...?

[Алексей К.]

http://bbs.vbstreets.ru/viewtopic.php?t ... hlight=rar

[alibek]

Access *.mdb
Какая база - это в принципе не так уж и важно.

Это, в принципе, важно.
Так как в, к примеру, MS SQL у тебя не один файл, а несколько. И сделать с ними ты ничего толком не сможешь, т.к. файлы постоянно открыты сервером.

[Antonariy]

2 Алексей К.
Насколько мне известно, есть библиотека только для разархивирования.

[Zero_Bit]

Antonariy
А что мешает вызвать rar.exe с нужными параметрами?.. ИМХО, челу это как раз и нужно

Ну если не сама, то хотя бы автоматически задействуя архиватор.

[Odrick]

Есть достаточно бесплатных/поломанных ActiveX для работы с ZIP. В том числе и поддерживающие архивирование и разархивирование

[kif]

У меня резервное копирование работает следующим образом:
1. копирование данных из рабочей папки программмы во временную программы резервного копирования (FSO копирует данные не зависимо от того, занят файл или нет, при наличии прав, конечно ).
2. В оэтой временной папке архивируется.
3. Архив скидывается в папку для хранений архивов
4. Временная папка очищается.

P.S. Копирование происходит на много быстрее чем прямое архивирование данных с рабочей папки. у меня резервируются базы FoxPro там куча файлов занимающих примерно 800-900 мег, как этот принцип будет работать с единственным файлом mdb я не знаю.

[kif]

Да, кстати, если нужно выложу исходник.
Кучеряво зато свое

[Andrey Fedorov]

Так как в, к примеру, MS SQL у тебя не один файл, а несколько. И сделать с ними ты ничего толком не сможешь, т.к. файлы постоянно открыты сервером.

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

Да и с mdb-шками проблем нет - просто паковать эту базу по ночам (когда с ней никто не работает) и все.

[kif]

У меня в принципе все ночью и работает, только есть еще и ежечасное резервирование (специфика организации).

[Andrey Fedorov]

У меня в принципе все ночью и работает, только есть еще и ежечасное резервирование (специфика организации).

Тогда обломись с mdb-шками - для их архивирования тебе придется каждый час выгонять пользователей из программы.

Если данные серъезные то хранить их в mdb (и работать с ними) довольно глупо - лучше съехать на SQL-сервер. Получишь надежность недостижимую с mdb-шками при их ежеминутном архивировании, ну и прочие вкусности.

[Andrey Fedorov]

У меня резервное копирование работает следующим образом:
1. копирование данных из рабочей папки программмы во временную программы резервного копирования (FSO копирует данные не зависимо от того, занят файл или нет, при наличии прав, конечно ).

Ну и что в этом хорошего - этот файл в итоге может оказаться испорченным...

P.S. Копирование происходит на много быстрее чем прямое архивирование данных с рабочей папки. у меня резервируются базы FoxPro там куча файлов занимающих примерно 800-900 мег, как этот принцип будет работать с единственным файлом mdb я не знаю.

Да точно также. Рабочая папка у тебя скорей всего расшареный ресурс, а архивируешь уже из локальной...

[kif]

У меня в принципе все ночью и работает, только есть еще и ежечасное резервирование (специфика организации).

Тогда обломись с mdb-шками - для их архивирования тебе придется каждый час выгонять пользователей из программы.

Если данные серъезные то хранить их в mdb (и работать с ними) довольно глупо - лучше съехать на SQL-сервер. Получишь надежность недостижимую с mdb-шками при их ежеминутном архивировании, ну и прочие вкусности.

Эта программа работает уже 2 года и никаких проблем, я же сказал, что FSO копирует файл независимо от того занят файл или нет. Попробуй использовать системную комманду copy, ей точно все по барабану.

[RUSYA]

(как вариант)

'===========================================================|
' <МОДУЛЬ ДЛЯ АРХИВИРОВАНИЯ ФАЙЛА ИЛИ ПАПКИ АРХИВАТОРОМ, >|
' <КОТОРЫЙ УСТАНОВЛЕН В СИСТЕМЕ. >|
' |
' = = = = = = = M A D E B Y H A C K E R = = = = = = |
' icq: 826747, mail: visualbasic@xaker.ru |
'===========================================================|

'Нужны функции работы с реестром (модуль reg.bas)
'Поддерживает только WinRar, степень сжатия - максимальная
'Возможность установить на архив пароль

Private Arhive$

Private Sub Load(File$, Password$, RarFile$)
'Находим в компе архиватор
Arhive$ = RegGetValue(HKEY_CLASSES_ROOT, ".zip\ShellNew", "FileName")
If Arhive$ <> "" Then ' Если есть на компе архиватор...
Arhive$ = Left(Arhive$, Len(Arhive$) - Len(Spliting(Arhive$, "\"))) 'берём его путь
'Смотрим какой архиватор...
If InStr(1, LCase(Arhive$), "winrar", vbTextCompare) > 0 Then 'Если WinRar
'Формируем коммандную строку для архивации
If RarFile$ = "" Then RarFile$ = Replace(File$, Spliting(File$, "."), "rar")
Arhive$ = Chr(34) & Arhive$ & "Rar.exe" & Chr(34) & " a -m5 -inul -ep -ep1 -idp -p" & Password$ & " " & Chr(34) & RarFile$ & Chr(34) & " " & Chr(34) & File$ & Chr(34)
End If
End If

End Sub

Public Sub ArhiveToWinRar(File$, Password$, RarFile$)
Load File$, Password$, RarFile$
Shell Arhive$, vbHide
End Sub

[RUSYA]

упс, чуть чуть старенькая тема... ну не чё, заботимся о наполнении