Repair and compact db

Si, Es posible.
Hay que agregar una referencia a ActiveX data access objects (COM), los
cuales hay que
tener instalados para usar ADO .NET
Ten en cuenta que con esta versión la base de datos tiene que estar en
access 2000 o superior
si no la convierte al compactarla y no la podrás abrir con access 97.

Aquí tienes un ejemplo
Public Function CompactarBD(ByVal Ruta As String) As Boolean

Dim res As Boolean

Dim JE As New JRO.JetEngine()



Cursor.Current = Cursors.WaitCursor

Try

JE.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database
Password=XXXX;Data Source=" + Ruta, "Provider=Microsoft.Jet.OLEDB.4.0;Jet
OLEDB:Database Passwordv27;Data Source=" + "Compactada.mdb" + ";Jet
OLEDB:Engine Type=5")

Catch ex As Exception

Dialogo.Aviso("Error", "Se ha producido un error compactando la BD:" +
vbCrLf + ex.Message)

Cursor.Current = Cursors.Default

Exit Function

End Try

Try

File.Delete(Ruta)

File.Copy("Compactada.mdb", Ruta)

File.Delete("Compactada.mdb")

res = True

Catch ex As Exception

Dialogo.Aviso("Error", "Se ha producido un error compactando la BD:" +
vbCrLf + ex.Message)

Cursor.Current = Cursors.Default

res = False

End Try



Cursor.Current = Cursors.Default

Return (res)

End Function

"Alejandra Parra" escribió en el mensaje
news:

Is it possible to repair and compact an Access data base from VB.NET

code???

If it's possible, how do you do it?