| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сегодня обнаружил такую вешь - в MS Access есть ... [D6, Access]

savva ©   (2002-04-23 18:06:00) 

..."служебная программа" для сжатия базы (то же мне открытие :)). Так она сжимает базу очень даже прилично... Исходная база (до этого никогда не сжималась) занимала по непонятным для меня причинам 50Мб (скорее всего этот объем составляли записи "помеченные для удаления", но опять же это только предположение:)) после сжатия стала занимать 1,5Мб (а упакованная архиватором так вообще 340 Кб).
Так суть вопроса для меня состоит в следующем: как и что эта "служебная программа" делает (опять же есть предположение, что происходит физическое удаление этих "помеченных к удалению" записей) и можно ли подобное провернуть программным путем?
Буду рад любым соображениям!

---

savva   (2002-04-24 16:46:00) [1]

всем ответившим спасибо, особенно aus © (23.04.02 22:58)
короче вот что я тут придумал (может кому пригодится:))
добавляем модули DAO2000б,ComObj в uses

Procedure TData.CompactAccessDatabase(DatabaseName,Password:String);
Var
TempName : Array[0..MAX_PATH] of Char;
TempPath : String;
Name : String;
tmpDAO : _DBEngine;
ClassID : TGUID;
V35, V36 : String;
Begin
V35:="DAO.DBEngine.35";
V36:="DAO.DBEngine.36";
try
try
ClassID := ProgIDToClassID(v35);
except
try
ClassID := ProgIDToClassID(v36);
except
raise;
end;
end;
TempPath:=ExtractFilePath(DatabaseName);
if TempPath="" Then TempPath:=GetCurrentDir;
GetTempFileName(PChar(TempPath),"mdb",0,TempName);
Name:=StrPas(TempName);
DeleteFile(PChar(Name));
if Password <> "" Then Password:=";pwd="+Password;
ADODB.Close;
tmpDAO := CreateComObject(ClassID) as _DBEngine;
tmpDAO.CompactDatabase(DatabaseName,Name,0,0,Password);
DeleteFile(PChar(DatabaseName));
RenameFile(Name,DatabaseName);
except
on E: Exception do ShowMessage(e.message);
end;
End;

procedure TData.actCompactDBExecute(Sender: TObject);
var
Save_Cursor:TCursor;
begin
Save_Cursor := Screen.Cursor;
Screen.Cursor := crHourGlass;
try
CompactAccessDatabase(dbpath,"masterkey");
finally
Screen.Cursor := Save_Cursor;
end;
end;


---

DenNNis   (2002-04-24 08:09:00) [2]

компонент KADAO это делает без проблем одной строкой кода.
kadao.CompactAccessDatabase(ExtractFilePath(Application.ExeName) + "Data\Izmereniya.mdb","");

---

aus   (2002-04-23 22:58:00) [3]

DAO поддерживает, ADOX поддерживает, правда нужно упаковывать в базу с другим именем, а потом позаботиться о замене файла на новый.
DAO := CreateObject("DAO.DBEngine.36");
DAO.CompactDatabase(.............)
Примерно так, хотя вполне может быть, что ошибся

---

wicked   (2002-04-23 19:37:00) [4]

имхо нет... правда, ходили слухи, что dao эти штучки поддерживает...

---

savva   (2002-04-23 18:59:00) [5]

>wicked © (23.04.02 18:17)
тоже логично :))

интересно а можно подобное провернуть самому?

---

wicked   (2002-04-23 18:17:00) [6]

имхо он пакует не только записи "на удаление", но и пустые страницы... т. е. место в файле распределяется по страницам, они потом пустеют и занимают место...

---

Наверх