Есть БД, с ней работают
1) exe1.exe 2) exe2.exe
БД не очень сложная, но как водится имеет свойство разрастаться, поэтому скажем так
желательно ее периодически сжимать.
Придумывать всякие "раз в неделю" или спец.кнопку в проге - лениво стало.
Потом с БД работают больше одного exe, а в момент сжатия БД должна быть "не открыта".
Придумал так:
каждый раз при загрузке
только exe1 , exe1 пытается ее сжать.
Получится -хорошо, не получится (если вдруг exe2 запущена)-ну и бес с ним,my_JRO.CompactDatabase по ошибке перескакивает код, в другой раз м.б. получится.
Насколько хороши сама идея такого подхода (на авось) и сам код?
Не очень ли это безобразно все? Меня повторюсь здесь интересует СЖАТИЕ и то как я это реализовываю.
Не лишний ли backup и есть ли в нем смысл? Не излишество ли сжимать БД каждый раз, пусть даже и не каждый раз это получится? Не наживу ли я лишних ошибок с таким подходом? Не рискую ли вообще потерять данные, если что не так пойдет?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
Option Explicit
Public my_JRO 'As JRO.JetEngine
Public adoConn 'As ADODB.Connection
Public LogPath As String
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" _
(ByVal lpFileName As String) As Long
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
...
Private Sub Command2_Click()
DataBaseConnect
MsgBox "done!"
DataBaseDisConnect
End Sub
Sub DataBaseConnect()
LogPath = App.Path & "\log"
'создаем пустую БД, если БД отсутствует
If Len(Dir(LogPath & "\test.mdb")) = 0 Then
CreateDatabase
End If
'Set my_JRO = New JRO.JetEngine
Set my_JRO = CreateObject("JRO.JetEngine")
'----------------------------------------------
'здесь мы "сжимаем и восстанавливаем" БД, код сработает только если другой компонент приложения
'не взаимодействует с БД в текущий момент, т.е. характер процедуры-случайный
'удаление временного файла(если вдруг существует)
DeleteFile LogPath & "\test_tmp.mdb"
'удаление предыдущего backup, если существует
DeleteFile LogPath & "\test_backup.mdb"
'резервирование оригинала (по-любому)
CopyFile LogPath & "\test.mdb", LogPath & "\test_backup.mdb", False
On Error GoTo not_compact
'сжатие БД во временный файл, если вдруг БД "занята", то сжатие произведено не будет и продолжим работу
'с предыдущей несжатой версией БД
my_JRO.CompactDatabase _
"Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & LogPath & "\test.mdb;Jet OLEDB:Database Password=testtest", _
"Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & LogPath & "\test_tmp.mdb;Jet OLEDB:Database Password=testtest"
If Len(Dir(LogPath & "\test_tmp.mdb")) > 0 Then 'а вдруг он не создался?
'удаление оригинала
DeleteFile LogPath & "\test.mdb"
'перемещение сжатого файла в оригинал
CopyFile LogPath & "\test_tmp.mdb", LogPath & "\test.mdb", False
'удаление временного файла
DeleteFile LogPath & "\test_tmp.mdb"
End If
not_compact:
'----------------------------------------------
Set adoConn = CreateObject("ADODB.Connection") 'New ADODB.Connection
adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
LogPath & "\test.mdb;Mode=Share Deny None;Persist Security Info=False;Jet OLEDB:Database Password=testtest"
End Sub
Public Sub DataBaseDisConnect()
adoConn.Close
Set adoConn = Nothing
End Sub
