Возможно ли сжать базу данных MSAccess, как это делает сам MSAcce

← →
Новый (2003-04-04 15:19) [0]

То есть, чтобы удаленные записи действительно удалились и объем базы уменьшился?
Спасибо

← →
zx (2003-04-04 15:30) [1]

что то типа:

je: Variant;

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;

← →
Новый (2003-04-04 15:37) [2]

2 zx © (04.04.03 15:30)
Благодарю, рекомендую попробовать, предварительно у себя.

← →
zx (2003-04-04 16:51) [3]

всё пашет в проекте около года!

← →
Lancelot (2003-04-06 02:23) [4]

К администрации сайта: в фак, ради бога, в фак! сколько же можно...

Возможно ли сжать базу данных MSAccess, как это делает сам MSAcce Найти похожие ветки