Visual Basic - Compactar base de datos

hola, mi consulta es como puedo compactar una base de datos de access 97 en visual basic, yo se que existe un código para hacerlo, pero no se cual es, agradeceria mucho su ayuda.

He encontrado este código con respecto a tu consulta, espero q te ayude. En txtdestino se tiene la base de datos a compactar.

Private Sub btnReparar_Click()
Dim filecopia As String
Dim fileold As String

Screen.MousePointer = vbHourglass
filecopia = App.Path & "\copia.bak"
fileold = App.Path & "\copia.tmp"
If FileExists(filecopia) Then
Kill filecopia
End If
DBEngine.CompactDatabase txtdestino.Text, filecopia
Name txtdestino.Text As fileold
Name filecopia As txtdestino.Text
Name fileold As filecopia
Screen.MousePointer = vbDefault
End Sub

Con este código guardas además unas copias de seguridad. Un saludo y espero q te sirva.

hola,
muy buen ejemplo. Basándome en el post anterior he hecho la siguiente función:

Public Function CompactDB(ByVal SourceDB As String) As Boolean
Dim filecopia As String
Dim fileold As String

On Error GoTo CompactDBAccess_control

Screen.MousePointer = vbHourglass

filecopia = App.Path & "Basescopia.bak"
fileold = App.Path & "Basescopia.tmp"

If ExisteFichero(filecopia) Then
Kill filecopia
End If

DBEngine.CompactDatabase SourceDB, filecopia
Name SourceDB As fileold
Name filecopia As SourceDB
Name fileold As filecopia


CompactDB = True

salir_CompactDBAccess:
Screen.MousePointer = vbDefault

Exit Function

CompactDBAccess_control:
MsgBox "Ha ocurrido un error al compactar la base de datos. El proceso se detendrá" _
& vbCrLf & vbCrLf & "Descripción del Error: " & Err.Description & _
vbCrLf & "Número del Error: " & Err.Number & _
vbCrLf & "Fuente: " & Err.Source & vbCrLf & _
"Avise a su informático de confianza", vbExclamation, "Mensaje de error"

Resume salir_CompactDBAccess

End Function

Un saludo

hola buenos dias ,seria usted tan amable de decirme como se ejecuta esta funcion ,,un saludo soy principiante

rectificado 100%




Private Sub Command1_Click()
CompactDB (Text1 + SourceDB)
End Sub
'referencia dao 3.6 no olvidar
Public Function CompactDB(ByVal SourceDB As String) As Boolean
Dim filecopia As String
Dim fileold As String

On Error GoTo CompactDBAccess_control

Screen.MousePointer = vbHourglass

filecopia = App.Path & "Basescopia.bak"
fileold = App.Path & "Basescopia.tmp"

If Dir(filecopia) <> "" Then
Kill filecopia
End If

DBEngine.CompactDatabase SourceDB, filecopia
Name SourceDB As fileold
Name filecopia As SourceDB
Name fileold As filecopia


CompactDB = True

salir_CompactDBAccess:
Screen.MousePointer = vbDefault

Exit Function

CompactDBAccess_control:
MsgBox "Ha ocurrido un error al compactar la base de datos. El proceso se detendrá" _
& vbCrLf & vbCrLf & "Descripción del Error: " & Err.Description & _
vbCrLf & "Número del Error: " & Err.Number & _
vbCrLf & "Fuente: " & Err.Source & vbCrLf & _
"Avise a su informático de confianza", vbExclamation, "Mensaje de error"

Resume salir_CompactDBAccess

End Function

hola vi este codigo y me parece muy interesante pero me sucede una cosa y es que me da error en esta linea ,cuando lo ejecuto

If FileExists(filecopia) Then
este es el error procedimiento sub o funcion no definido

. espero me pueda ayudar muchas gracias ....

Me imagino podrías usar


Saludos y felices líneas de programa10n.

bueno muchas gracias por la atencion pero no le veo manera de que funcione
ahora me sale este otro error DBEngine.CompactDatabase "\base.mdb", filecopia
dice que se requiere un objeto , me pregunto si usted seria tan amable de pasarme unos codigos funcionables un saludo ...

repasado 100%
'se necesita referencia dao3.6

y modificar esto

If Dir(filecopia) <> "" Then

Pepe todos los códigos están bien solo falta algo de magia. Añade a tu proyecto la referencia "Microsoft JRO engine" solo entonces tienes acceso a la librería JRO con la cual inicializas una variable hacia esta clase y verás que tiene la propiedad compatdatabase

gracias por contestar ,,voy a revisarlo y le comento ..

bueno yo hice lo que dentro de mi pude pero no veo manera instale la referencia mocosoft jet and replicator 2.6 y nada de nada mas arriba rectifique la sentencia if file ??? o sea no estan bien los codigos ,pero si estan bien para volverse loco y perder el tiempo un saludo pedi unos codigos funcionables y nada ...

Este es un ejemplo

• jro.zip(2,8 KB)

muchas gracias raul funciono todo perfecto solo una cosa puse type 5 enverde 4 ....