Programación General > Visual Basic 6.0 e inferiores

 Compactar Y Repararar Base De Datos Access?

(1/1)

Daniel_PC:
Compactar y repararar base de datos access?
Gracias.....

Juanolo:
dim BaseDeDatos as string
BaseDeDatos= "Base.mdb"

 'COMPACTAR

DBEngine.CompactDatabase BaseDeDatos, App.Path & "\Nueva.mdb", dbLangSpanish
'Compacto en otra base de datos (base de paso)

DoEvents
Kill BaseDeDatos
'Elimino base original

FileCopy App.Path & "\Nueva.mdb", BaseDeDatos
'Copio base de paso con nombre anterior
   
Kill App.Path & "\Nueva.mdb"
'Elimino base de paso

'REPARAR

DBEngine.RepairDatabase BaseDeDatos

Salu2 y felices fiestas!

Navegación

[0] Índice de Mensajes