Compactar Access 2000 con Visual Basic 6.0

[Reyis]

Analiza esto que fue tomado de los archivos de ayuda. Seguramente esto es lo que tu necesitas. Para que esto te funcione debes cargar en tu proyecto una referencia a Microsoft Access Object Library.


Este ejemplo utiliza el método CompactDatabase para cambiar la versión de la base de datos. Para ejecutar este código, debe tener una base de datos Microsoft Jet versión 1.1 llamada Neptun11.mdb y no puede utilizar este código en un módulo que pertenezca a Neptun11.mdb.

Sub CompactDatabaseX2()

Dim dbsNeptuno As Database
Dim prpBucle As Property

Set dbsNeptuno = OpenDatabase("Neptun11.mdb")

' Muestra las propiedades de la base de datos original.
With dbsNeptuno
Debug.Print .Name & ", versión " & .Version
Debug.Print " Secuencia de ordenación = " & .CollatingOrder
.Close
End With

' Asegúrese de que no existe un archivo con el
' nombre de la base de datos compactada.
If Dir("Neptun20.mdb") <> "" Then _

Kill "Neptun20.mdb"

' Este instrucción crea una base de datos
' Microsoft Jet versión 2.0 compactada y encriptada
' de la base de datos Microsoft Jet versión 1.1.
DBEngine.CompactDatabase "Neptun11.mdb", _
"Neptun20.mdb", , dbEncrypt + dbVersion20

Set dbsNeptuno = OpenDatabase("Neptun20.mdb")

' Muestra las propiedades de la base de datos compactada.
With dbsNeptuno
Debug.Print .Name & ", versión " & .Version
For Each prpBucle In .Properties

On Error Resume Next
If prpBucle <> "" Then Debug.Print " " & _
prpBucle.Name & " = " & prpBucle
On Error GoTo 0
Next prpBucle
.Close
End With

End Sub