Как программно сжимать *.mdb

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
abc
Обычный пользователь
Обычный пользователь
 
Сообщения: 85
Зарегистрирован: 09.07.2004 (Пт) 17:31
Откуда: Kiev

Как программно сжимать *.mdb

Сообщение abc » 13.07.2004 (Вт) 10:49

Как из VB 6.0 заставить *.mdb сжиматься. при закрытии.
:?: Хотелось бы что бы в настройках Access изменилась соответствующий параметр или хотя бы делалось это из клиентской части (VB 6.0).
Руками этого сделать нельзя, много компьютеров и очень удаленных.

abc
Обычный пользователь
Обычный пользователь
 
Сообщения: 85
Зарегистрирован: 09.07.2004 (Пт) 17:31
Откуда: Kiev

сжатие базы данных

Сообщение abc » 13.07.2004 (Вт) 11:32

Вот нашел в литературе:

Private Sub Command3_Click()
Dim MainName As String, TempName As String
MainName = "D:\db1"
MainName = InputBox("Имя сжимаймой Базы данных", , MainName)

If Dir(MainName & ".ldb") <> "" Then
MsgBox "База данных открыта!"
Else
TempName = MainName & "Temp"
TempName = TempName & ".mdb"
MainName = MainName & ".mdb"

'удаляем возможно существующий временный файл
If Dir(TempName) <> "" Then Kill TempName

'сжимаем базу данных
DBEngine.CompactDatabase MainName, TempName

If Dir(TempName) <> "" Then
Kill MainName
'возвращаем сжатой базе данных первоночальное имя
Name TempName As MainName
Else
MsgBox "Не найдена сжатая база данных"
End If
MsgBox "База данных сжата и востоновлена!"
End If
End Sub

Если кто-то знает как всетаки добиться этого изменив настройки Access - подскажите

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 14.07.2004 (Ср) 9:55

Если сжимать через DAO, то через DBEngine.CompactDatabase. Если через ADO, то надо подключать JRE (Jet and Replication Objects) и пользоваться его методами (Compact)
Lasciate ogni speranza, voi ch'entrate.


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 3

    TopList