Форум: "Базы";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];
ВнизСжать базу 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 имеет и другие полезные свойства и методы,
подскажите, где почитать на эту тему.
← →
sniknik (2002-12-06 11:01) [5]в поставке MSOffice если ставил с хелпами, у меня лежит сдесь
D:\Program Files\Common Files\Microsoft Shared\Office10\1033\MSJRO.CHM
← →
Vladimir Prokhorov (2002-12-09 17:12) [6]Лежит, правда в папке с MSDN, но это все равно.
Сейчас мы его голубчика почитаем.
Спасибо.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c