Скачать: CL | DM;

Возможно ли сжать базу данных 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c