Compactar Access 2007
 

Hola a todos mi pregunta es bien sencilla ¿Cómo hago para compactar una base de datos de Access 2007?

Gracias

mcsebas,

:rolleyes:

Revisa esta información:
Espero sea útil :)

Nelson.

hola mcsebas, disculpa pero tu quiere compactar por código o con el mismo Access?

Hola mcsebas,
Haber si te sirve esto.

Código Delphi [-]
var
   BD : OLEVariant;
   BaseDatos, Clave:string;
Begin
  {Ubicación de la Base de Datos }
  BaseDatos := ExtractFilePath(Application.ExeName) + 'MisDatos.mdb';
  {Contraseña de la base de datos}
  Clave := txtClave.Text;
  { ... }
  try
    DeleteFile(BaseDatos + '2');
    BD := CreateOleObject('Dao.DbEngine.35');
    BD.CompactDataBase(BaseDatos, BaseDatos + '2', NULL, 0, ';pwd=' + Clave);
    DeleteFile(BaseDatos);
    RenameFile(BaseDatos + '2', BaseDatos);
  except
    try
      DeleteFile(BaseDatos + '2');
      BD := CreateOleObject('Dao.DbEngine.36');
      BD.CompactDataBase(BaseDatos, BaseDatos + '2', NULL, 0, ';pwd=' + Clave);
      DeleteFile(BaseDatos);
      RenameFile(BaseDatos + '2', BaseDatos);
    except
      try
        DeleteFile(BaseDatos + '2');
        BD := CreateOleObject('Dao.DbEngine.120');
        BD.CompactDataBase(BaseDatos, BaseDatos + '2', NULL, 0, ';pwd=' + Clave);
        DeleteFile(BaseDatos);
        RenameFile(BaseDatos + '2', BaseDatos);
      finally
     end;
    end
   end;