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

Imágen de perfil

Utilidad para copiar y restaurar una base de datos de Microsoft Accessgráfica de visualizaciones


Visual Basic.NET

estrellaestrellaestrellaestrellaestrella(6)
Actualizado el 07 de Octubre del 2015 por Administrador (Creado el 09 de Febrero del 2015)
5.127 visualizaciones desde el 09 de Febrero del 2015. Una media de 56 por semana
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
estrellaestrellaestrellaestrellaestrella(6)

Actualizado el 08 de Octubre del 2015 (Creado el 09 de Febrero del 2015)gráfica de visualizaciones de la versión: Versión 1.0
5.128 visualizaciones desde el 09 de Febrero del 2015. Una media de 56 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella


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 (6)

Imágen de perfil
Dito Vecco
10 de Febrero del 2015
estrellaestrellaestrellaestrellaestrella
Excelente. Probado y funciona a la perfección. Muy buen aporte. Gracias !!!
Responder
oscar puente
06 de Octubre del 2015
estrellaestrellaestrellaestrellaestrella
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 oscarjosepuenterojas@hotmail.com, gracias saluos.
Responder
Imágen de perfil
Administrador
07 de Octubre del 2015
estrellaestrellaestrellaestrellaestrella
Hola Oscar, ya hemos solucionado el problema de descarga del archivo...

Gracias por comentarlo!!
Responder
israel
09 de Junio del 2015
estrellaestrellaestrellaestrellaestrella
No ha dejado ningún comentario
Responder
Miguel
08 de Octubre del 2015
estrellaestrellaestrellaestrellaestrella
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
Imágen de perfil
Manuel
11 de Octubre del 2015
estrellaestrellaestrellaestrellaestrella
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

Comentar la versión: Versión 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s3034