Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Hacer respaldo en Visual Basic

Estas en el tema de Hacer respaldo en Visual Basic en el foro de Visual Basic clásico en Foros del Web. Hola, alguien me puede ayudar, estoy haciendo un programita usando una tabla en access pero quiero que el mismo programa me respalde en un disquet ...
  #1 (permalink)  
Antiguo 27/07/2005, 07:12
 
Fecha de Ingreso: julio-2005
Mensajes: 1
Antigüedad: 18 años, 9 meses
Puntos: 0
Hacer respaldo en Visual Basic

Hola, alguien me puede ayudar, estoy haciendo un programita usando una tabla en access pero quiero que el mismo programa me respalde en un disquet o otra ruta la tabla hecha en access.

Gracias.
  #2 (permalink)  
Antiguo 27/07/2005, 08:12
Avatar de GeoAvila
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Antigua Guatemala
Mensajes: 4.032
Antigüedad: 20 años, 4 meses
Puntos: 53
creo que tu pregunta ya esta resuelta en otro posto date una buscadita, la opcion arribita en la parte superior y se llama repalardat db con visual basic o algo asi..


este te puede ayudar..

http://www.forosdelweb.com/showthrea...ight=respaldar

nos vemos..
__________________
* Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ
Sitio http://www.geoavila.com twitter: @GeoAvila
  #3 (permalink)  
Antiguo 27/07/2005, 12:53
Avatar de Samaris  
Fecha de Ingreso: enero-2002
Mensajes: 280
Antigüedad: 22 años, 4 meses
Puntos: 0
Aqui esta otra manera, es con un CommonDialog y te permite guardar la base de datos con el nombre que tu quieras, en cualquier unidad/directorio disponible (en este caso por ejemplo, ya te coloca el filtro q es mdb)

Private Sub Command1_Click()

Dim Ruta As String
Me.CommonDialog1.DefaultExt = ".mdb"
Me.CommonDialog1.Filter = "Access 97 (*.mdb)|*.mdb"
Me.CommonDialog1.ShowSave
Ruta = Me.CommonDialog1.FileName
If Ruta <> "" Then
FileCopy MiRuta & App.Path & "\NombreBaseDatos.mdb", Ruta
MsgBox "La Base de Datos ha sido respaldada como: " & Chr(13) & Ruta, vbInformation
End If
End Sub

Salu2
__________________
:corazon:Besos Venezolanos:corazon:
Samaris
  #4 (permalink)  
Antiguo 31/10/2005, 22:49
Avatar de foreneo  
Fecha de Ingreso: mayo-2005
Mensajes: 102
Antigüedad: 19 años
Puntos: 0
y como le hago para que el commondialog abra la ventana y que el nombre aparesca automaticamente en el cuadro de guardar
  #5 (permalink)  
Antiguo 31/10/2005, 23:07
Avatar de Samaris  
Fecha de Ingreso: enero-2002
Mensajes: 280
Antigüedad: 22 años, 4 meses
Puntos: 0
si en el segundo asterisco de la siguiente linea le colocas el nombre del archivo, el te buscara ese

Me.CommonDialog1.Filter = "Access 97 (*.mdb)|*.mdb"
__________________
:corazon:Besos Venezolanos:corazon:
Samaris
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 03:20.