COMO COMPACTAR UNA BASE DE DATOS DE ACCES DESDE VISLA BASIC

dradana2003
25 de Julio del 2004
YENGO UNA APLICACION QUE MANIPULA UNA BASE DE DATOS DE ACCES Y QUIERO DESDE EL PROGRAMA MANDAR A COMPACTARLA

sALUDOS

krizall
25 de Julio del 2004
hola, te mando una informacion a tu correo

Rey Vargas
25 de Julio del 2004
Oye Krizall me podrias por favor enviar la información a mi correo de como compactar una BD de acces, gracias

frank
25 de Julio del 2004
Te pongo este código que es parte de lo que encontré en la web y al que aplique las modificaciones necesarias para mí.
agrega un formulario y ponle un botton y un label o etiqueta. Ponle el nombre al botton cmdCompactar y al label le pones el nombre lblInfo. Pega este código.

Private Sub cmdCompactar_Click()
' Compactar una base de datos con DAO
Dim temporal As String
Dim direccion As String

On Error GoTo ErrCompactar

' Crear un nombre nuevo para la base de datos temporal
temporal = "BASE_TEMPORAL.MDB"
' Asegurarnos de que no existe una base con el nombre temporal
If Len(Dir$(temporal)) Then
Kill temporal
End If
'
lblInfo.Caption = " Compactando la base de datos..."
lblInfo.Refresh
'
' Compactar la base de datos
DBEngine.CompactDatabase App.Path & "nombre de la base a compactar.mdb", App.Path & "" & temporal
'
' Eliminar la base de datos original
Kill App.Path & "nombre base de datos original"
'
' Renombrar la base temporal ya compactada con el original
Name App.Path & "" & temporal As App.Path & "nombre de la base de datos compactada"
'

lblInfo.Caption = " Base de datos compactada."
lblInfo.Refresh
'
Exit Sub
'
ErrCompactar:
' Mostrar el mensaje de error
MsgBox "Error al compactar la base de datos:" & vbCrLf & _
Err.Number & " " & Err.Description, _
vbExclamation, "Error al compactar la base de datos"
Err.Clear
lblInfo.Caption = " *** Error al compactar la base de datos ***"
lblInfo.Refresh

End Sub

Espero que lo sepas utilizar