Reparar y compactar en visual basic
Hellow listeros me podrían facilitar un código en visual 6 para reparar y compactar una base de access please, que tengo algunos problemas con esto.
1 Respuesta
Respuesta de kieleze
1
Este es un ejemplo para aplicaciones multiusuarios, para monousuarios es parecido hay que sacarle el workspace..
Ejemplo de método CompactDatabase
Este ejemplo utiliza el método CompactDatabase compactar la base de Datos Clientes.mdb.
Sub CompactDatabaseX()
DBEngine.CompactDatabase "Clientes.mdb", "Compact.mdb"
End Sub
-----------------------
Ejemplo del método RepairDatabase
Este ejemplo intenta reparar la base de datos llamada Neptuno.mdb.
Sub RepairDatabaseX()
Dim errBucle As Error
If MsgBox("¿Desea reparar la base de datos Neptuno?", vbYesNo) = vbYes Then
DBEngine.RepairDatabase "Neptuno.mdb"
MsgBox "¡Fin del procedimiento reparar!"
End If
End Sub
Ejemplo de método CompactDatabase
Este ejemplo utiliza el método CompactDatabase compactar la base de Datos Clientes.mdb.
Sub CompactDatabaseX()
DBEngine.CompactDatabase "Clientes.mdb", "Compact.mdb"
End Sub
-----------------------
Ejemplo del método RepairDatabase
Este ejemplo intenta reparar la base de datos llamada Neptuno.mdb.
Sub RepairDatabaseX()
Dim errBucle As Error
If MsgBox("¿Desea reparar la base de datos Neptuno?", vbYesNo) = vbYes Then
DBEngine.RepairDatabase "Neptuno.mdb"
MsgBox "¡Fin del procedimiento reparar!"
End If
End Sub
