| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите по Access [D6, Access]

Egor111 ©   (2002-07-31 09:37:00) 

Как программно выполнить операцию
Сжать\восстановить базу данных в Access
(а то больно она сильно вырастает)

---

Egor111   (2002-07-31 13:10:00) [1]

>sniknik
Спасибо, все ОК!!!

---

zx   (2002-07-31 13:08:00) [2]

У меня падала. Этот код не восстановил.
Access восстановил, правда потерял пару таблиц:(((

---

sniknik   (2002-07-31 11:09:00) [3]

Взял их Хелпа по JET, (с бейсика перевел) написано что действие анологично Access-овскому Tools->Database Utilities->Compact and Repair Database...
Так ли это на самом деле не проверял. Не было еще битых баз. Просто раз в 10 дней делаю эту процедурку при старте проги и не думаю ни о чем :-). Вот если будет и она не справится а в Access-е сможет.....

---

zx   (2002-07-31 10:52:00) [4]

sniknik ©
Такой вариант сжимает но по-моему не восстанавливает базу.

---

sniknik   (2002-07-31 10:31:00) [5]

во люди! две строчки написать лень. А устанавливать/учить компонент?
var je: Variant;
begin
je:=CreateOleObject("JRO.JetEngine");
je.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;"+
"Data Source=D:\Base.mdb",
"Provider=Microsoft.Jet.OLEDB.4.0;"+
"Data Source=D:\Compressed.mdb;"+
"Jet OLEDB:Encrypt Database=True");

есть еще варианты через DAO и ADOX. но мне искать в лом.

---

Tornado   (2002-07-31 10:20:00) [6]

Используй компонент KADAO, он все это умеет. Удачи

---

Наверх