VPF::Упаковка Access - Форум программистов

Ch0bits

Дата 15.7.2005, 20:51 (ссылка)

(нет голосов)

Загрузка ...

Python Dev.

Профиль
Группа: Завсегдатай
Сообщений: 2124
Регистрация: 21.2.2005
Где: Казань

Репутация: нет
Всего: 62

Такая проблема: база после интенсивной работы сильно разбухает с 10 до 56mb(!). smile

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

--------------------

Quizful - новый портал с классными IT тестами!

likhobory

Дата 15.7.2005, 23:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 466
Регистрация: 17.5.2005
Где: Москва

Репутация: 4
Всего: 20

Код


Function CompactDB(BasePath As String, BaseName As String) As Boolean

Dim Go As JRO.JetEngine, FullBasePath As String

On Error GoTo errors

Set Go = New JRO.JetEngine
FullBasePath = BasePath & BaseName
If Dir(BasePath & "tempbase.mdb") <> vbNullString Then Kill BasePath & 
"tempbase.mdb"

Go.CompactDatabase _
"Data Source=" & FullBasePath & ";", _
"Data Source=" & BasePath & "tempbase.mdb;"

Kill FullBasePath
Name BasePath & "tempbase.mdb" As FullBasePath
CompactDB=True
Exit Function

errors:
CompactDB=False

End Function

не забудь создать ссылку на MSJRO.DLL

--------------------

TSC! Russia

Ch0bits

Дата 16.7.2005, 14:28 (ссылка)

(нет голосов)

Загрузка ...

Python Dev.

Профиль
Группа: Завсегдатай
Сообщений: 2124
Регистрация: 21.2.2005
Где: Казань

Репутация: нет
Всего: 62

Большое спасибо, на C# я такую штуку провернул, но вот как MSJRO.DLL к Delphi приделать непонятно?
К тому же я пользуюсь исключительно SQL-запросами для работы, нет ли другого способа, без JetAPI?

--------------------

Quizful - новый портал с классными IT тестами!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »