Hola, alguien podria explicarme como hacer backup de la base de datos... Trabajo con visual basic 6.0 en una base de access.
Muchas gracias.
| |||
Respuesta: Como hacer un backup en vb 6.0 Cita: Hola, mejor que explicarlo, te pongo un ejemplo comentado:
Código:
Para llamar a esta función, prodrías poner el siguiente código p.e. en un Botón:Public Function CopiaBD(sOrigen As String, sDestino As String) As String ' nota: tiene que estar marcada la referencia "Microsoft Access xx.x Object Library" Dim oAccess As New Access.Application ' comprobar que la BD origen existe If Len(Dir$(sOrigen)) = 0 Then CopiaBD = "La base de datos '" & sOrigen & "' no existe" Exit Function End If Screen.MousePointer = vbHourglass ' si ya existe el archivo de copia, lo eliminamos If Len(Dir$(sDestino)) Then Kill sDestino oAccess.CompactRepair sOrigen, sDestino Screen.MousePointer = vbDefault CopiaBD = "Realizada copia con éxito en '" & sDestino & "'." End Function
Código:
Private Sub cmdBacKUp_Click() ' Notas: Si existe alguna conexión abierta a la BD, cerrar primero ' If conexion.State = 1 Then conexion.Close ' La carpeta BackUp tiene que existir en el directorio de la aplicación MsgBox CopiaBD(App.Path & "\MiDb.mdb", App.Path & "\BackUp\Copia de MiDb.mdb") End Sub ![]() |
| |||
Respuesta: Como hacer un backup en vb 6.0 Gracias avellaneda, una pregunta mas antes de probar con lo que me dijiste... ' comprobar que la BD origen existe If Len(Dir$(sOrigen)) = 0 Then donde dice: (Dir$(sOrigen)) debo colocar la ruta de origen, p.e. ("C:\Documents and Settings\Ema\My Documents\Seminario\origen.mdb") Gracias de nuevo... Saludos. |
| |||
Respuesta: Como hacer un backup en vb 6.0 Hola. Estoy haciendo una aplicación vb 6.0 y he aplicado este código para hacer un backup. En el proyecto funciona perfecto, pero cuando empaqueto, si bien sDestino funciona perfecto, el error que me da es el 3051. La ruta está bien, pero creo que la base access es de solo lectura, incluso cuando trato de arreglarlo desde el mismo access me dice que no puede abrir el archivo. ¿Podrían ayudarme, por favor? Desde ya muchas gracias. |