안녕하세요~ 구창민입니다.

제가 예전에 사용한 소규모 MDB 를 압축하고 복구했던 방법입니다.

참고하시고 항상 즐거운 프로그래밍 하시길~~


=============================================================
function DatabaseCompact(const sdbName: WideString) : boolean;
var
JE          : TJetEngine; //Jet Engine
sdbTemp     : WideString; //TEMP database
sdbTempConn : WideString; //Connection string
const
SProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;
             Data Source=';
begin
Result:=False;
sdbTemp := ExtractFileDir(sdbName) +
            'TEMP' +
            ExtractFileName(sdbName);
sdbTempConn := SProvider + sdbtemp;
if FileExists(sdbTemp) then
    DeleteFile(sdbTemp);
JE:= TJetEngine.Create(Application);
try
  try
    JE.CompactDatabase(SProvider + sdbName, sdbTempConn);
    DeleteFile(sdbName);
    RenameFile(sdbTemp, sdbName);
  except
    on E:Exception do
           ShowMessage(E.Message);
  end;
finally
   JE.FreeOnRelease;
   Result:=True;
end;
end;



procedure TForm1.btnCompactClick(Sender: TObject);
var
  dbSrc  : WideString;
  dbDest : WideString;
const
  SProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;
              Data Source=';
begin
  dbSrc  := SProvider + edSource.Text;  //TEdit.Text - 압축될 MDB
  dbDest := SProvider + edDest.Text;    

  if FileExists(edDest.Text) then
     DeleteFile(edDest.Text);

  CompactDatabase(dbSrc,dbDest);
end;

===============================================================

-------------------------
ZipMaster라는 콤포넌트를 이용하면 됩니다.(자료실에 있지 않나?)
하지만 한가지 주의해야 할 것은 DB가 오픈된 상태에서는
안되는 경우가 있으니 주의하세요