| Вопрос: ADO сжать .mdb | Добавлено: 19.08.04 10:45 |
Автор вопроса:  mc-black | Web-сайт: mc-black.narod.ru/dzp.htm | ICQ: 308-534-060 |
| Как можно (желательно средствами ADO) сжать базу Jet .mdb? В Access это делается через меню Сервис -> Служебные программы -> Сжать и восстановить базу банных |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  П.С. ICQ: 225019134 Вопросов: 36 Ответов: 41 |
Web-сайт: Профиль | | #1 | Добавлено: 20.08.04 16:35 |
| Могу предложить код сжатия средствами DAO, если подойдет. С успехом использую это в своей программе. | ||
|
Номер ответа: 2 Автор ответа: Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #2 | Добавлено: 20.08.04 16:43 |
|
У меня есть готовая прога.
Могу скинуть или поделиться исходниками. |
||
|
Номер ответа: 3 Автор ответа: the PaganICQ: нет Вопросов: 19 Ответов: 27 |
Web-сайт: Профиль | | #3 | Добавлено: 22.08.04 16:46 |
|
В меню References установи ссылку на Microsoft Jet and Replication Object
Закрой соединение с базой ocon.Close Set ocon = Nothing  im jro As jro.JetEngine
Set jro = New jro.JetEngine jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0 ata Source=G:\IrGTU\Access\metal.mdb", "Provider=Microsoft.Jet.OLEDB.4.0ata Source=G:\IrGTU\Access\metal2.mdb"
Kill ("G:\IrGTU\Access\metal.mdb" 
im OldDB
im NewDB
OldDB = "G:\IrGTU\Access\metal2.mdb" NewDB = "G:\IrGTU\Access\metal.mdb" Name OldDB As NewDB |
||
|
Номер ответа: 4 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #4 | Добавлено: 09.09.04 17:46 |
|
2 the Pagan:
Спасибище огромное - самое-самое то, что искал!!! 2 Pashenko, П.С.: Вышлите мне исходники, плс!!! mc-black@yandex.ru просто из спортивного интереса хочется узнать, что за код там... Пассиб! |
||
|
Номер ответа: 5 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #5 | Добавлено: 09.09.04 18:37 |
| Народ, если не трудно, то и мне перекиньте на aesoft@mail.ru. PLZZZ!!! | ||
|
Номер ответа: 6 Автор ответа: AlexFВопросов: 20 Ответов: 113 |
Профиль | | #6 | Добавлено: 12.09.04 23:18 |
|
Perekin' i mne na fsdal1@yahoo.com
Thanks |
||
Страница: 1 |