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