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

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

Сжать базу Access (*.mdb) [D5, ADO Access]

Vladimir Prokhorov ©   (2002-12-04 17:02:00) 

Хочу попробовать Access2K через ADO. Подскажите, пожалуйста, как сжать базу Access, они ведь имеют привычку быстро пухнуть. Если кто знает хорошую книгу в Инете про это - дайте ссылку.
Может кто умеет с другого конца - в Access (программно) через меню я сам умею.

---

Vladimir Prokhorov   (2002-12-09 17:12:00) [1]

Лежит, правда в папке с MSDN, но это все равно.
Сейчас мы его голубчика почитаем.
Спасибо.

---

sniknik   (2002-12-06 11:01:00) [2]

в поставке MSOffice если ставил с хелпами, у меня лежит сдесь
D:\Program Files\Common Files\Microsoft Shared\Office10\1033\MSJRO.CHM

---

Vladimir Prokhorov   (2002-12-06 10:55:00) [3]

Наверное JRO.JetEngine имеет и другие полезные свойства и методы,
подскажите, где почитать на эту тему.

---

Vladimir Prokhorov   (2002-12-04 18:04:00) [4]

Спасибо, asdf, работает!

---

asdf   (2002-12-04 17:39:00) [5]

var
je: Variant;
begin
try
ADOCon.Connected := False;
je := CreateOleObject("JRO.JetEngine");
je.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + PathStr,
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ExtractFilePath(PathStr)
+ "\ReportCard$.mdb;Jet OLEDB:Encrypt Database=True");
DeleteFile(PathStr);
RenameFile(ExtractFilePath(PathStr) + "\ReportCard$.mdb", PathStr);
ADOCon.Connected := True;
qDepart.Open;
ShowMessage("База сжата.");
except on E: Exception do
MessageDlg("Ошибка." + #13 + E.Message, mtError, [mbOK], 0);
end;
end;

---

LordOfSilence   (2002-12-04 17:29:00) [6]

http://bbd.net.ru/

---

Наверх