La Web del Programador: Comunidad de Programadores
 
    Pregunta:  28587 - COMPACTAR UNA DATABASE ACCESS CON VB
Autor:  Vinicio Diaz
Hola a todos, gracias de antemano.
Necesito saber como puedo compactar una database Access pero con instrucciones de Visual Basic.
Gracias

  Respuesta:  Mauricio Leyzaola
'no olvides hacer referencia a la librería de DAO 2.5/3.51

Public Function DAO_CompactDatabase(ByVal CompactFrom As String, ByVal CompactTo As String) As Boolean

On Error GoTo ErrHnd

DBEngine.CompactDatabase CompactFrom, CompactTo

DAO_CompactDatabase = TRUE
Exit Function

ErrHnd:
DAO_CompactDatabase = FALSE
End Function