Error al compactar una Base de datos access
Publicado por Miguel (281 intervenciones) el 03/11/2015 19:11:07
Este es el módulo, esta en Visual Studio 13 express, bajo windows 10
El error dice : No se puede implementar el método ó la operación.
He dedicado tiempo durante tres semanas intentando dar con el error. He incluido la biblioteca de Micrososft Jet y Objetos de replicatión 2.6, para me generara un empaquetado y poder así agrupar la biblioteca Microsoft Active x Data Objects(ADOBDB) y JRO. Pero parece que no lo consigo.
Agradecería cualquier orientación que me facilite dar con el error.
Un saludo y gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Imports System.IOImports clsInicio.Inicio.clsInicio
Module modCompactar
Public Sub Compactar()
Dim jro As JRO.JetEngine = New JRO.JetEngine
Try
Open(clsInicio.Inicio.clsInicio.BD)
Dim FileOrigen As String = AppDomain.CurrentDomain.BaseDirectory & clsInicio.Inicio.clsInicio.BD
Dim FileDestino As String = AppDomain.CurrentDomain.BaseDirectory & clsInicio.Inicio.clsInicio.Backup
Close()
If ExisteFile(FileOrigen) = True Then 'Verificar que exste el fichero a compactar
jro.CompactDatabase(FileOrigen, FileDestino) linea donde se produce el error
MsgBox("La B.D ha sido compactada")
Else
MsgBox("La Base de datos no ha podido ser compactada ni reparada. Revisar la B.D. ó recuperar el último Bakup.")
Exit Sub
End If
If ExisteFile(FileDestino) Then 'Verificar que exste el fichero compactado
File.Delete(FileOrigen) 'Eliminar fichero Original
File.Move(FileDestino, FileOrigen) 'Restaurar el Original por el fichero compactado
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Public Function ExisteFile(ByVal Fichero As String) As Boolean
Dim existe As Boolean
existe = System.IO.File.Exists(Fichero)
Return existe
End Function
End Module
El error dice : No se puede implementar el método ó la operación.
1
2
3
4
5
6
7
8
9
10
Namespace Inicio
Public Class clsInicio
Public Shared BD As String = "Ambical.accdb"
Public Shared Backup As String = "Backup.accdb"
Public Shared Origen As String = "C:\Ambical\Ambical\Ambical\Bin\Debug\"
Public Shared Destino As String = "C:\Backup\"
Public Shared TablaUsada As String
Public Shared fila As Integer
End Class
End Namespace
He dedicado tiempo durante tres semanas intentando dar con el error. He incluido la biblioteca de Micrososft Jet y Objetos de replicatión 2.6, para me generara un empaquetado y poder así agrupar la biblioteca Microsoft Active x Data Objects(ADOBDB) y JRO. Pero parece que no lo consigo.
Agradecería cualquier orientación que me facilite dar con el error.
Un saludo y gracias
Valora esta pregunta
0
