Mensaje enviado por "Alwin Borda" <alwinb@tvicom.com.ar>

Por si a alguno le sirve, para compactar una BD en ADO, utilice lo siguiente:
'---------------------
'Para poder utilizar JetEngine, efectuar lo siguiente:
'ir a PROYECTO - REFERENCIAS
'activar Microsoft Jet and Replication Objects 2.1 library
' OJO ! funciona unicamente a partir de version 2.1

Private Sub Command1_Click()
    Dim jjj As JRO.JetEngine
    Set jjj = New JRO.JetEngine

'en caso de existir maestro.bak, lo borro

    If Dir("C:\AB_Cable\maestro.bak") <> "" Then
        Kill "C:\AB_Cable\maestro.bak"
    End If

'ejecuto compactacion
'Ver en ayuda - index : CompactDataBase
'las opciones de Jet OLEDB:

    jjj.CompactDatabase _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\AB_Cable\maestro.mdb", _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\AB_Cable\maestro.999;Jet OLEDB:Engine Type=4"

'renombro las bases de tal manera que quede activa la compactada
    Name "C:\AB_Cable\maestro.mdb" As "C:\AB_Cable\maestro.bak"
    Name "C:\AB_Cable\maestro.999" As "C:\AB_Cable\maestro.mdb"
End Sub
'----------------------

Alwin

Mensaje enviado por "Mariano Casero" <mariano@kmcom.com.ar> el 4/04/2002

Envío un pequeño programa que tengo hecho para compactar bases de ADO y DAO, tanto en formato 97 como 2000.

 compactar1.zip