tengo este código para compactar una base de datos
Private Sub Form_Load()
Dim Base As Boolean
Base = Compactar_Base(App.Path & "/Base1.mdb", App.Path & "/Base2.mdb")
If Base = True Then
MsgBox "La base de datos ha terminado de compactarse"
End If
Unload Me
End Sub
Function Compactar_Base(ByVal pathFuente As String, _
ByVal pathDestino As String) As Boolean
Dim obj_Jet As New jro.JetEngine
'Variable de objeto para utilizar Microsoft Jet and Replication Objects
On Error GoTo errSub
'Variables para las cadenas de conexión de la base de datos origen y destino
Dim cFuente As String, cDestino As String
DoEvents
If Dir(App.Path & "Base2.mdb") <> "" Then
Kill App.Path & "Base2.mdb"
End If
cFuente = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& pathFuente & ";" & "Jet OLEDB:Database Password=contra"
cDestino = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& pathDestino
'Compacta la base de datos con el método CompactDatabase
obj_Jet.CompactDatabase cFuente, cDestino
Compactar_Base = True
Exit Function
'Rutina de error
errSub:
Compactar_Base = False
MsgBox Err.Description, vbExclamation
End Function
No me marca ningún error pero al querer abrir la base de datos compactada me manda este mensaje: No se reconoce el formato de la base de datos...
Que estoy haciendo mal o que me falta?, espero me puedan ayudar, gracias.
