Portal •  Foro •  FAQ •  Buscar •  Temas recientes •  Lista de usuarios •  Registrarse •  Conectarse 
Foro » Gambas » General

Algun Programa Para Modificar Metadatos De Archivo Sqlite?

Responder al tema

 

v3ctor
Citar
Mensajes: 1786 Ubicación: Uruguay
Lunes, 04 May 2015, 19:41
Objetivo: Algun Programa Para Modificar Metadatos De Archivo Sqlite?
buenas, estoy trabajando en la rutina de respaldo automático del programa taller 2015 y necesito modificar la fecha de modificación de la base de datos para hacer pruebas
y verificar que la rutina trabaja bien, alguien sabe como hacerlo o algún programa que permita hacerlo?
Public Sub RespaldarAhora()
Dim FechaM As Date
Dim BD As String
Dim RespaldarSi As Boolean
Dim Diferencia As Byte

DirRespaldo = Settings["RespaldoAutomatico/DirRespaldo", RespaldoBD]
CadaTanto = Settings["RespaldoAutomatico/Periodo", 0]

BD = FMain.CarpetaTaller &/ "basetaller"
If Exist(BD) Then
FechaM = Stat(BD).LastModified
Endif

ArchivoX = FMain.DirRespaldo &/ "basetaller_" & Replace$(CString(Date), "/", "-")
Diferencia = DateDiff(Date, FechaM, gb.Day)

Print "Diferencia=" & Diferencia

Select Case CadaTanto
Case 0 ' respaldo cada 1 dia
If Diferencia >= 1 Then RespaldarSi = True
Case 1 ' respaldo cada 2 dias
If Diferencia >= 2 Then RespaldarSi = True
Case 2 ' respaldo cada 3 dias
If Diferencia >= 3 Then RespaldarSi = True
Case 3 ' respaldo cada 4 dias
If Diferencia >= 4 Then RespaldarSi = True
Case 4 ' respaldo cada 5 dias
If Diferencia >= 5 Then RespaldarSi = True
Case 5 ' respaldo cada una semana
If Diferencia >= 7 Then RespaldarSi = True
Case 6 ' respaldo cada 15 dias
If Diferencia >= 15 Then RespaldarSi = True
Case 7 ' respaldo cada un mes
If Diferencia >= 30 Then RespaldarSi = True
End Select

If RespaldarSi = True Then
If Exist(ArchivoX) = False Then
If Access(File.Dir(ArchivoX), gb.Write) = True Then
Copy BD To ArchivoX
Wait 0.2
VerificarRespaldo
Else
TextoMSG("Error:" & Error.Text & gb.NewLine & Error.Where, True)
Endif
Else
If bVerMensaje = True Then
TextoMSG("Respaldo ya existe:" & gb.NewLine & ArchivoX, True)
bVerMensaje = False
Endif
Endif
Endif

End

Public Sub VerificarRespaldo()
If Exist(ArchivoX) Then
Goto RESPALDO_CORRECTO
Else
Goto ERROR_RESPALDO
Endif

RESPALDO_CORRECTO:
TextoMSG("Se respaldo correctamente en:" & gb.NewLine & ArchivoX, False)
' Message.Info("Se respaldo correctamente en:" & gb.NewLine & ArchivoX)
Goto SALIR

ERROR_RESPALDO:
TextoMSG("Ocurrio un error:" & gb.NewLine & Error.Text & gb.NewLine & Error.Where, True)

SALIR:

End

última edición por v3ctor el Lunes, 04 May 2015, 19:47; editado 1 vez
Perfil MP   Sitio web
shordi
Citar
Mensajes: 4982 Ubicación: Albacete
Lunes, 04 May 2015, 20:25
Objetivo: Re: Algun Programa Para Modificar Metadatos De Archivo Sqlite?
Comando touch del sistema para modificarlo. man touch para ver las opciones

En gambas clase stat para consultarlo:

FechaModified = Stat(midocum).LastModified

Perfil MP  
v3ctor
Citar
Mensajes: 1786 Ubicación: Uruguay
Lunes, 04 May 2015, 20:54
Objetivo: Re: Algun Programa Para Modificar Metadatos De Archivo Sqlite?
gracias shordi, dejo un ejemplo básico de uso:

en este caso el archivo a modificar la fecha de modificación es un archivo sqlite llamado basetaller

prueba1@postapase-desktop ~/Taller2015 $ touch -a -m -t 201503150000.00 basetaller

para ver cambios:

prueba1@postapase-desktop ~/Taller2015 $ stat basetaller
Fichero: «basetaller»
Tamaño: 39936 Bloques: 80 Bloque E/S: 4096 fichero regular
Dispositivo: 815h/2069d Nodo-i: 1054804 Enlaces: 1
Acceso: (0644/-rw-r--r--) Uid: ( 1001/ prueba1) Gid: ( 1001/ prueba1)
Acceso: 2015-03-15 00:00:00.000000000 -0300
Modificación: 2015-03-15 00:00:00.000000000 -0300
Cambio: 2015-05-04 16:51:24.106622979 -0300
Creación: -

Perfil MP   Sitio web
v3ctor
Citar
Mensajes: 1786 Ubicación: Uruguay
Lunes, 04 May 2015, 21:02
Objetivo: Re: Algun Programa Para Modificar Metadatos De Archivo Sqlite?
jaja algo hice mal miren lo que me da:

date=05/04/2015
FechaM=03/15/2015
Diferencia=206

Perfil MP   Sitio web
Responder al tema
 

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.0864s (PHP: 23% SQL: 77%)
Consultas SQL: 30 - Debug off - GZIP Activado