Resumen Compactar y reparar con ado

Mensaje enviado por Juan Honorio Palavicini Hernández <honorio1@Prodigy.Net.mx>

De: Juan Honorio Palavicini Hernández
Correo electrónico: honorio1@tab1.telmex.net.mx

El metodo RepairDatabase, ya fué quitada e incluida en el método CompactDatabase de MSJet 3.6 o 4.0 (no me acuerdo bien) (o posterior), el mismo método CompactDatabase se encarga de reparar la BD

AQUI TE VA EL CODIGO

Usa el Objeto JRO no se puede con ADO

Con DAO antes se hacía de esta forma

Sub DAOCompactDatabase()

    'Primero asegúrate que no exista la base de datos nueva

    If Dir("c:\BDNueva.mdb") <> "" Then _

        Kill "c:\BDNueva.mdb"
    End If

    'Compactación básica, creas la nueva BD

    DBEngine.CompactDatabase "C:\BDOrig.mdb", "C:\BDNueva.mdb"

    'Eliminas la BD Original

    Kill "c:\BDOrig.mdb"

    'Renombras la BD nueva al nombre original

    Name "c:\BDNueva.mdb" As "c:\BDOrig.mdb"

End Sub

En ADO con el objeto JRO se hace de esta forma

Sub JROCompactDatabase()

    Dim je As New JRO.JetEngine
    'Primero asegúrate que no exista la base de datos nueva

    If Dir("c:\BDNueva.mdb") <> "" Then _

        Kill "c:\BDNueva.mdb"

    End If

    'Compactas la BD

    je.CompactDatabase "Data Source=C:\BDOrig.mdb;", _

        "Data Source=C:\BDNueva.mdb;"

    ' Eliminas la BD Original

    Kill "c:\nwind.mdb"

    'Renombras la BD nueva

    Name "c:\BDNueva.mdb" As "c:\BDOrig.mdb"

End Sub



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com