Como hago para campactar una base de datos desde VB con 
ADO?


Jose María Fueyo
================

Hola.
ADO se compone de tres librerias: ADO (para acceso digamos normal a los
datos), ADOX (extensíon para lenguaje de definición de datos y
seguridad) y por último, JRO (Jet Replication Objects).
Tienes que usar ésta última.
Por ejemplo (tomado de la documentación de migración de DAO a ADO)

Sub JROCompactDatabase()
    Dim je  As New JRO.JetEngine
    ' Make sure there isn't already a file with the
    'name of the compacted database.
    If Dir("c:\newnwind.mdb") <> "" Then _
        Kill "c:\newnwind.mdb"
    'Compact the database
    je.CompactDatabase "Data Source=C:\nwind.mdb;", _
        "Data Source=C:\newnwind.mdb;"
    ' Delete the original database
    Kill "c:\nwind.mdb"
    'Rename the file back to the original name
    Name "c:\newnwind.mdb" As "c:\nwind.mdb"
End Sub

Espero te sirva.

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)