Código de Visual Basic.NET - Utilidad para copiar y restaurar una base de datos de Microsoft Access

Utilidad para copiar y restaurar una base de datos de Microsoft Access

Visual Basic.NET

(7)

Actualizado el 7 de Octubre del 2015 por Administrador (718 códigos) (Publicado el 9 de Febrero del 2015)

12.708 visualizaciones desde el 9 de Febrero del 2015

Cuando estamos desarrollando una aplicación que utiliza Microsoft Access, o estamos desarrollando sobre Microsoft Access con VBA, muchas veces modificamos la estructura o los datos de las bases de datos, ya sea para hacer pruebas o probar nuevas funcionalidades. Por este motivo, puede ser importante esta utilidad, que nos permite realizar copia de seguridad y restauración de la misma.

copiar-restaurar-access

Requerimientos

Visual Basic .NET

Versión 1.0
(7)

Actualizado el 8 de Octubre del 2015 (Publicado el 9 de Febrero del 2015)

gráfica de visualizaciones de la versión: Versión 1.0

12.709 visualizaciones desde el 9 de Febrero del 2015

Forma parte de ITSourceCode

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.

Comentarios sobre la versión: Versión 1.0 (7)

Dito Vecco

10 de Febrero del 2015

Excelente. Probado y funciona a la perfección. Muy buen aporte. Gracias !!!

Responder

oscar puente

6 de Octubre del 2015

hola amigo estoy interesado en esa aplicacion de hacer backup pero sale un error de la pagina que no puedo bajar el archivo, quizas tu puedas pasarmelo el programita yo estare agradecido, te dejo mi email [email protected], gracias saluos.

Responder

Administrador

7 de Octubre del 2015

Hola Oscar, ya hemos solucionado el problema de descarga del archivo...

Gracias por comentarlo!!

Responder

freddy

2 de Diciembre del 2020

Hola, he tratado de descargar el archivo pero me marca error, lo podrias compartir por favor.
Gracias

Responder

israel

9 de Junio del 2015

No ha dejado ningún comentario

Responder

Miguel

8 de Octubre del 2015

Hola,
¿ Podrias ayudarme en un módulo que he hecho para compactar una B.D. Access, me me sale un error al compactar.?
Te adjunto el módulo y el error.

Module modCompactar

    Public Sub Compactar()

        Dim jro As JRO.JetEngine = Nothing

Try

            Open(Inicio.clsInicio.BD)

            Dim conString As String = cn.ConnectionString

            If (conString.Length = 0) Then Throw New ArgumentNullException("conString", _

                "No se ha especificado ningún origen de datos.") 'Verificar que hay fichero en el origen

            Dim sbOrigen As New Data.OleDb.OleDbConnectionStringBuilder(conString)  'Origen

            Dim sbDestino As New Data.OleDb.OleDbConnectionStringBuilder(conString) 'Destino

            Dim fileName As String = CStr(sbOrigen.Item("Data Source"))  ' Obtenemos la ruta completa del archivo que se desea compactar.

            Dim fileNameTemp As String = IO.Path.GetDirectoryName(fileName) & "\" & "Copia.accdb"  'Nombre del compactado.

            ' Le asignamos el nuevo parámetro Data Source a la cadena de conexión de destino.

            sbDestino.Item("Data Source") = fileNameTemp

            jro = New JRO.JetEngine()  ' Creamos una instancia del objeto JRO

            ' Ejecutamos el método CompactDatabase del objeto JRO, el cual necesita las cadenas de conexión de origen y de destino.

            jro.CompactDatabase(sbOrigen.ConnectionString, sbDestino.ConnectionString)  'Aqui es donde da el error

            sbOrigen = Nothing

            sbDestino = Nothing

            IO.File.Delete(fileName)  'Eliminamos el fichero Origen

            IO.File.Move(fileNameTemp, fileName)  'sustituimos el fichero obtenido por la copia compactada.

        Catch ex As Exception

            Throw    ' Devolvemos la excepción al procedimiento llamador.

        Finally

            ' Disminuimos el contador de referencias y liberamos el objeto.

            Runtime.InteropServices.Marshal.ReleaseComObject(jro)

            jro = Nothing

        End Try

    End Sub

End Module

El error es :
Excepción no controlada del tipo "Systen.NotImplementdExceptión" en Ambical.exe.
Información adicional: no se puede implementar el método o la operación.

Gracias y un saludo.

Responder

Manuel

11 de Octubre del 2015

Tremendo aporte... porque das lo que hace falta para implementar la función de copia de seguridad, que hoy en día hay que incluir en toda aplicación medio decente.

Responder