RE:Como compacto una BD access con ado??
proba con esto:
Function CompactDB()
Dim Compact As New JRO.JetEngine
Dim Base1 As String, Base2 As String
Screen.MousePointer = 11
StatusBar1.Panels(2).Text = "Compactando la base de datos antes de cerrar el sistema, espere por favor..."
sApp = App.Path
' ** Ruta de la base sin compactar **
Base1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sApp & "\Bases\Repuestos.mdb"
' ** Ruta de la base compactada **
Base2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sApp & "\Bases\Repuestos2.mdb"
' ** Se Compacta la base de datos **
Compact.CompactDatabase Base1, Base2
Base1 = Mid(Base1, 46)
Base2 = Mid(Base2, 46)
' ** Se elimina la base de datos vieja **
Kill Base1
' ** Se cambia la extencion del archivo a .MDB **
Name Base2 As Base1
StatusBar1.Panels(2).Text = ""
Screen.MousePointer = 0
End Function
