Ayuda s/ Copias de Seguridad para VICTORIA u otr@s
Publicado por Diego García (25 intervenciones) el 10/01/2003 19:32:24
Hola!:
Lo primero,si pido ayuda a Victoria, por que mi consulta parte de una respuesta suya aquí en el foro, aunque si algun@ me lo resuelve estaría tb muy agradecido. Tengo una tabla donde guardo nº de copia,ruta,nombre archivo,etc.Un formulario dependiente de esa tabla, veo mis copias de seguridad, con parte del siguiente código:
If Dir(RutaC & "\" & ArchivoC & ".mdb") <> "" Then
resp = MsgBox("Existe una copia previa con el nombre " & ArchivoC & ".mdb" & vbCrLf & "¿Sobrescribir copia previa?", vbYesNo, "Copia Previa Detectada")
If resp = vbOK Then
Kill (RutaC & "\" & ArchivoC & ".mdb")
Set dbs = wrk.CreateDatabase(RutaC & "\" & ArchivoC & ".mdb", dbLangGeneral) 'Crea de nuevo la base de datos.....
Call Guarda
EL Problema es que si detecta copia previa y digo que sí a sobreescribir el método Kill no me funciona (lo he comprobado pq le digo que sobreescriba, altero los datos y los datos aparecen igual en la copia ) (lo que hago es borrar el archivo y crearlo de nuevo) ¿A que sé debe esto?. Las llamadas Guarda y Recupera las hago a través de TransferDatabase, pero no puedo recuperar los datos adecuadamente pq me las guarda añadiendo el "1" al nombre (ya lo sabía), además las tablas están relacionadas, y tengo miedo de cargarme las relaciones si borro las tablas y recupero. ¿Como puedo recuperar dichos datos? ¿Conoceis otra manera?Tb me gustaría saber como forzar desde código a un formulario exportado a dicha copia de seguridad a ser formulario de inicio.
MUCHAS GRACIAS por ayudarme en esta extensisima consulta,
Un saludo
Lo primero,si pido ayuda a Victoria, por que mi consulta parte de una respuesta suya aquí en el foro, aunque si algun@ me lo resuelve estaría tb muy agradecido. Tengo una tabla donde guardo nº de copia,ruta,nombre archivo,etc.Un formulario dependiente de esa tabla, veo mis copias de seguridad, con parte del siguiente código:
If Dir(RutaC & "\" & ArchivoC & ".mdb") <> "" Then
resp = MsgBox("Existe una copia previa con el nombre " & ArchivoC & ".mdb" & vbCrLf & "¿Sobrescribir copia previa?", vbYesNo, "Copia Previa Detectada")
If resp = vbOK Then
Kill (RutaC & "\" & ArchivoC & ".mdb")
Set dbs = wrk.CreateDatabase(RutaC & "\" & ArchivoC & ".mdb", dbLangGeneral) 'Crea de nuevo la base de datos.....
Call Guarda
EL Problema es que si detecta copia previa y digo que sí a sobreescribir el método Kill no me funciona (lo he comprobado pq le digo que sobreescriba, altero los datos y los datos aparecen igual en la copia ) (lo que hago es borrar el archivo y crearlo de nuevo) ¿A que sé debe esto?. Las llamadas Guarda y Recupera las hago a través de TransferDatabase, pero no puedo recuperar los datos adecuadamente pq me las guarda añadiendo el "1" al nombre (ya lo sabía), además las tablas están relacionadas, y tengo miedo de cargarme las relaciones si borro las tablas y recupero. ¿Como puedo recuperar dichos datos? ¿Conoceis otra manera?Tb me gustaría saber como forzar desde código a un formulario exportado a dicha copia de seguridad a ser formulario de inicio.
MUCHAS GRACIAS por ayudarme en esta extensisima consulta,
Un saludo
Valora esta pregunta


0