На выходе сжать базу данных

[Summer.05]

При выходе из программы на VB надо, чтобы сжималась база данных
Примеры есть, но почему-то у меня не работает. Ниже представлен мой код.
Подскажите, пожалуйста, что тут не так?
Спасибо!
_______________________________


Private Sub Command12_Click()
Dim Database
strPath = App.Path & "/" & "DB/db1.mdb"
Dim s As String
s = "Вы уверены в том, что хотите выйти?"
Beep
If MsgBox(s, vbQuestion + vbYesNo, "Подтверждение выхода") = vbNo Then Exit Sub
'Закрываем БД
Adodc1.Database.Close

'Вызываем метод CompactDataBase объекта DBEngine
'для сжатия, и сжимаем БД переименовывая ее
DBEngine.CompactDatabase "/" & "DB/db.mdb", "/" & "DB/db1.mdb"""
'Уничтоваем старую БД
'Kill "/" & "DB/db.mdb"
'Присваиваем полученной, 'сжатой' БД
'ее прежнее имя
Dim OldDB
Dim NewDB
OldDB = "/" & "DB/db1.mdb"
NewDB = "/" & "DB/db.mdb"
Name OldDB As NewDB

End
End Sub

[Alexanbar]

А где возникает ошибка?

[MeMBus]

Думаю как минимум здесь:

Код: Выделить всё

DBEngine.CompactDatabase "/" & "DB/db.mdb", "/" & "DB/db1.mdb"""

И здесь:

Код: Выделить всё

Name OldDB As NewDB

[Summer.05]

Ошибка возникает здесь:

Adodc1.Database.Close

Но это - первая ошибка, могут быть и другие.

Может быть, есть иные варианты решения задачи?

[Alexanbar]

Ошибка возникает здесь:

Adodc1.Database.Close

Но это - первая ошибка, могут быть и другие.

Может быть, есть иные варианты решения задачи?

1. А не закрывается ли уже ранее закрытая база?
2. используетс ли база в других приложениях?
3. ну и подозрительные пути какие-то "/" & "DB/db.mdb".
Почему не записать абсолютные пути?

[Summer.05]

А не закрывается ли уже ранее закрытая база?

Думаю, что нет, так как команда END поставлена в самый конец и база в это время отражена в DBGrid.

используетс ли база в других приложениях?

Нет, не используется.

Почему не записать абсолютные пути?

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

Не настаиваю, а прошу помощи: как на событие "клик" кнопки перед закрытием программы обеспечить программное сжатие базы.

Это возможно?
Это целесообразно?

Спасибо!

[MeMBus]

Код: Выделить всё

DBEngine.CompactDatabase "/" & "DB/db.mdb", "/" & "DB/db1.mdb"""

Ну нету тут пути однозначно...

Думаю, что нет, так как команда END поставлена в самый конец и база в это время отражена в DBGrid.

Это не показатель... У тебя база при вызове закрытия – скорее всего уже закрыта (99%).

как на событие "клик" кнопки перед закрытием программы обеспечить программное сжатие базы.

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

[Summer.05]

MeMBus

Спасибо, понял. Это - логичнее, через сервис сделать.