Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как сжать базу ????

Polyak © (2005-07-27 10:58:00)
Имеется база Access и я пишу СУБД по технологии ADO. В Access есть в меню, сервис->служебные программы->сжать и восстановить базу даных, пунктик который сжимает базу. Как я понимаю это просто удаление записей помеченных как удаленные. Как это можно сделать с помощью компонентов Дельфи ил как нибудь еще в программе????

Polyak (2005-07-28 04:22:00) [1]
DSKalugin - БОЛЬШОЕ СПАСИБО !!!!!

DSKalugin (2005-07-27 18:01:00) [2]
Программное сжатие базы данных Access используя JRO (Jet Replication Objects)

Процедура позволяет сжать базу данных в формате Access, используя JRO (Jet Replication Objects). Действие аналогичное пункту меню в Access "Сервис -> Служебные программы -> Сжать и восстановить базу данных".
Параметры:
* DatabaseName - путь к исходной (не сжатой) базе данных
* DestDatabaseName - путь к сжатой базе данных (по умолчанию пустой - в этом случае исходная база заменяется сжатой)
* Password - пароль базы данных (по умолчанию пустой)

PS. этот код был написан в связи с тем что аналогичная процедура через DAO у многих не работала (по пока неизвестным для меня причинам)

Зависимости: windows,SysUtils,ComObj,Dialogs (Dialogs можно исключить используя MessageBox для вывода сообщения исключительной ситуации)
Автор: savva, savva@nm.ru, ICQ:126578975, Орел
Copyright: Сапронов Алексей (Savva)
Дата: 9 сентября 2002 г.
**************************************************** }

Procedure CompactDatabase_JRO(DatabaseName:String;DestDatabaseName:String='';Password:String='');
Const
Provider = 'Provider=Microsoft.Jet.OLEDB.4.0;';
Var
TempName : Array[0..MAX_PATH] of Char; // имя временного файла
TempPath : String; // путь до него
Name : String;
Src,Dest : WideString;
V : Variant;
begin
try
Src := Provider + 'Data Source=' + DatabaseName;
if DestDatabaseName<>'' then
Name:=DestDatabaseName
else begin
// выходная база не указана - используем временный файл
// получаем путь для временного файла
TempPath:=ExtractFilePath(DatabaseName);
if TempPath='' Then TempPath:=GetCurrentDir;
//получаем имя временного файла
GetTempFileName(PChar(TempPath),'mdb',0,TempName);
Name:=StrPas(TempName);
end;
DeleteFile(PChar(Name));// этого файла не должно существовать :))
Dest := Provider + 'Data Source=' + Name;
if Password<>'' then begin
Src := Src + ';Jet OLEDB:Database Password=' + Password;
Dest := Dest + ';Jet OLEDB:Database Password=' + Password;
end;

V:=CreateOleObject('jro.JetEngine');
try
V.CompactDatabase(Src,Dest);// сжимаем
finally
V:=0;
end;
if DestDatabaseName='' then begin // т.к. выходная база не указана
DeleteFile(PChar(DatabaseName)); //то удаляем не упакованную базу
RenameFile(Name,DatabaseName); // и переименовываем упакованную базу
end;
except
// выдаем сообщение об исключительной ситуации
on E: Exception do ShowMessage(e.message);
end;
end;

sniknik (2005-07-27 16:50:00) [3]
msguns © (27.07.05 15:37) [2]
базы аксесса до 2000го формата признано глючные. у тебя не оно (меньше)? + версия jet, доступ?
безбожных тормозов точно быть не должно, у меня не было, хотя уже давно всем не рекомендуем часто делать "архивацию". были бы, кнонибудь бы обязательно уже бы возмутился.

TQuery (2005-07-27 15:57:00) [4]
Солидарен с msguns © (27.07.05 15:37) [2]

msguns (2005-07-27 15:37:00) [5]
>sniknik © (27.07.05 12:44) [1]
>операция довольно сомнительная по полезности (для непорушенной базы), т.к. сразу после нее будет притормаживание за счет доведения базы до "рабочих обьемов" ;). а "лишнее" место все одно используется повторно.

Прямо так категорично ?
У меня несколько клиентов с аксешной БД. Если ее не сжимать хотя бы раз в 2 недели, к концу месяца наступают безбожные тормоза: база вылазит за 1,5 Гб. В сжатом виде больше 400 Мб я ее не видел. После сжатия база "летает" несколько дней.

sniknik (2005-07-27 12:44:00) [6]
> Как я понимаю это просто удаление записей помеченных как удаленные.
немного не так, это скорее полное копироване данных в новую базу, с естественно убиранием пропусков на "страницах" данных/индексов.
операция довольно сомнительная по полезности (для непорушенной базы), т.к. сразу после нее будет притормаживание за счет доведения базы до "рабочих обьемов" ;). а "лишнее" место все одно используется повторно.

сделай поиск в яндексе Jro CompactDatabase, давалось это много раз, наверняка найдеш. (у себя на машине сложнее найти ;)

Наверх

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