| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Возможно ли сжать базу данных MSAccess, как это делает сам MSAcce [D5]
Новый © (2003-04-04 15:19:00)То есть, чтобы удаленные записи действительно удалились и объем базы уменьшился?
Спасибо
Lancelot (2003-04-06 02:23:00) [1]К администрации сайта: в фак, ради бога, в фак! сколько же можно...
zx (2003-04-04 16:51:00) [2]всё пашет в проекте около года!
Новый (2003-04-04 15:37:00) [3]2 zx © (04.04.03 15:30)
Благодарю, рекомендую попробовать, предварительно у себя.
zx (2003-04-04 15:30:00) [4]что то типа:
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;
| |
