Сжать базу Access (*.mdb)

← →
Vladimir Prokhorov (2002-12-04 17:02) [0]

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

← →
LordOfSilence © (2002-12-04 17:29) [1]

http://bbd.net.ru/

← →
asdf (2002-12-04 17:39) [2]

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;

← →
Vladimir Prokhorov (2002-12-04 18:04) [3]

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

← →
Vladimir Prokhorov (2002-12-06 10:55) [4]

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

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

← →
Vladimir Prokhorov (2002-12-09 17:12) [6]

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

Сжать базу Access (*.mdb) Найти похожие ветки