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

Actualizado el 7 de Octubre del 2015 por Administrador (686 códigos) (Publicado el 9 de Febrero del 2015)
9.403 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
estrellaestrellaestrellaestrellaestrella(6)

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
9.404 visualizaciones desde el 9 de Febrero del 2015
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
10 de Febrero del 2015
estrellaestrellaestrellaestrellaestrella
Excelente. Probado y funciona a la perfección. Muy buen aporte. Gracias !!!
Responder
oscar puente
6 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
7 de Octubre del 2015
estrellaestrellaestrellaestrellaestrella
Hola Oscar, ya hemos solucionado el problema de descarga del archivo...

Gracias por comentarlo!!
Responder
9 de Junio del 2015
estrellaestrellaestrellaestrellaestrella
No ha dejado ningún comentario
Responder
Imágen de perfil
8 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
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...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s3034