SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Daniel_PC en Miércoles 31 de Diciembre de 2003, 00:51

Título: Compactar Y Repararar Base De Datos Access?
Publicado por: Daniel_PC en Miércoles 31 de Diciembre de 2003, 00:51

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

Título: Re: Compactar Y Repararar Base De Datos Access?
Publicado por: Juanolo en Miércoles 31 de Diciembre de 2003, 22:04

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!