Visual Basic.NET - Error al compactar una Base de datos access

   
Vista:

Error al compactar una Base de datos access

Publicado por Miguel (56 intervenciones) el 03/11/2015 19:11:07
Este es el módulo, esta en Visual Studio 13 express, bajo windows 10

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.IO
Imports 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Error al compactar una Base de datos access

Publicado por Miguel (56 intervenciones) el 04/11/2015 18:54:05
Ya lo he solucionado.

Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de giancarlo

Error al compactar una Base de datos access

Publicado por giancarlo (280 intervenciones) el 05/11/2015 21:50:22
te agradeceria si pusieras la solucion en caso alguien mas tenga el mismo problema
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar