Visual Basic - COMO "REPARAR" UNA BASE DE DATOS ACCESS 97

Alguien que sepa como "Reparar" una base de Datos Access 97 mediante codificación en Vb6.

Esto porque he tenido problemas cuando por alguna razón se pierde la conexión de mi App con la BD. Tengo que entar a Access y ejecutar el menú herramientas->reparar base de datos.

Pero se que se puede hacer esto mediante Vb.... si alguien lo sabe seria de gran aportación su ayuda.

Saludos!

Debes utilizar la funcion

DBEngine.RepairDataBase ("Ruta a la BD")

esto lo repara tranquilamente.

Este es un ejemplo

DBEngine.RepairDatabase "c:\sistema\innovacion.mdb"
Kill "c:\sistema\innovacion2.mdb"
DBEngine.CompactDatabase "c:\sistema\innovacion.mdb", "c:\sistema\innovacion2.mdb"
Kill "c:\sistema\innovacion.mdb"
FileCopy "c:\sistema\innovacion2.mdb", "c:\sistema\innovacion.mdb"
Kill "c:\sistema\innovacion2.mdb"