Como reparar y/o compactar BD

[cokegon]

Hola a todos, tengo una BD en Access2000 controlada con una aplicación hecha en VB6 sp1, la pregunta es: Existe un comando para compactar y/o reparar la BD desde VB?.

[Linterns]

un ejemplo de como compactar una base de datos teniendo contraseña

Código:

Dim sNameOrig as string
DIm sNameDest as string
Dim vEscenario as Variant
Dim nOpciones as integer
Dim vContra as Variant

sNameOrig = "C:\micarpeta\basedatos.mdb 
sNameDest = "C:\micarpeta\basecompactada.mdb"
vEscenario = dbLangSpanish    ' en el supuesto de BD en Español
nOpciones = DbVersion30  '  Opcional, Version (3.5) deseada en BD compactada
' ver otros valores en la ayuda de VB

vContra = ";pwd=contraseña"   ' Atencion: no olvides el punto y coma

DBEngine.CompactDatabase sNameOrig, sNameDest, vEscenario, nOpciones,  vContra

[cokegon]

Ok man,voy a probarlo. gracias

[Linterns]