RE:reparar bd access 2000
Para reparar con garantías las bases de datos de Acces, primero deberás ir a Microsoft y descargarte la última versión dle motr Jet 4.0 (es el Servipack 8), adecuado al sistema operativo que use, una vez hecho esto, y teniendo la precaución de que la base de datos esté cerrada, es decir que nadie la esté usando, utiliza este código en tu aplicación:
NOTA: ten en cuenta que el compactar y reparar una base de datos Microsoft Jet hace una copia de la misma, por ello deberás asignar a la variable BDIni el path y nombre de la base de datos a compactar/reparar y a BDFin el nombre de la nueva base de datos ya reparada que generará el motor Jet. Ojo tu disco duro debe tener espacio suficiente para alojar esta nueva base de datos.
Dim BDIni As String, BDFin As String
BDIni="C:Mi CarpetaBase de datos.mdb"
BDFin="C:Mi CarpetaBD reprada.mdb"
On Error Resume Next
' reparamos y compactamos la base de datos
DBEngine.CompactDatabase BDIni, BDFin
' verificamos si se produce un error
If Err.Number <> 0 Then
Label1.Caption = "LA BASE DE DATOS NO SE PUEDE REPARAR"
DoEvents
GoTo Final
End If
On Error GoTo 0
' borramos la base de datos que estaba mal
Kill BDIni
DoEvents
' copiamos la base de datos creada con el nuevo nombre dándole el nombre de la inicial
FileCopy BaseDatF, BaseDatI
DoEvents
' borramos la base de datos que se creo al reparar la inicial
Kill BaseDatF
DoEvents
Label1.Caption = "LA BASE DE DATOS HA SIDO REPARADA"
DoEvents
Final:
'************************************************************
Espero que te sea útil.
Un saludo,