Ricavare la DateLastModified di un db access.

[Giubass]

Salve a tutti, avrei l'esigenza di ricavare la data dell'ultima modifica di un db access, avevo provato con la seguente funzione, ma evidentemente non funge bene.
La data di aggiornamento sembra impazzita nel senso che in modo del tutto casuale anche senza aver apportato modifiche al db (insert, delete, update) la data e l'ora si aggiornano.
Questo succede sia in locale che in remoto, quando si verifica l'anomalia in realtà le uniche operazioni al db sono di lettura cioè delle query di tipo select.
Sbaglio forse funzione o anche le select influenzano la DateLastModified?

Grazie.

Function Aggiornamento()

Dim Db, FSO, TextStream, Data, Data1, Ora
      
Db = "/mdb-database/notizie.mdb"
Set FSO = CreateObject("Scripting.FileSystemObject")  
Set TextStream = FSO.GetFile(Server.MapPath(Db))   
Data = TextStream.DateLastModified                                                     
Data1 = FormatDateTime(Data,0)
Data1 = Left(Data1, 10)
Ora = Replace(Right(Data, 8),".",":")
Ora=  Left(Ora, 5)
Response.Write(Data1&" "&Ora)

Set FSO = Nothing
Set TextStream = Nothing

End Function

[optime]

basta aprirlo...

[Giubass]

Originariamente inviato da optime
basta aprirlo...

come sospettavo!

Cosa mi condigli?

[optime]

gestione manuale. ogni volta che fai una INS, UPD o DEL scriverai in un file (o una tabella dello stesso db, ma forse è meglio il file) tale data. auguri

[Giubass]

Originariamente inviato da optime
gestione manuale. ogni volta che fai una INS, UPD o DEL scriverai in un file (o una tabella dello stesso db, ma forse è meglio il file) tale data. auguri

Se ho ben capito potrei scrivere tramite fso in un file di testo la data e sovrascriverla ad ogni operazione di insert, update e delete?

Grazie

[optime]

capito hai

[Giubass]

Grazie ad Optime ho risolto il mio problema, per tutti coloro che vorrebbero utilizzare tale sistema posto la mia soluzione:
Questa è la funzione che richiamo ad ogni insert,update,delete

Function Aggiornamento_Data()
 
Dim Data, Ora, PathAggiornamento, FsoA, oggOpen, DataAggiornamento

'ricavo l'ora
Data = Now()
Ora  = Replace(Right(Data, 8),".",":")
Ora  = Left(Ora, 5)

'Fase di lettura dati dal file aggiornamento.txt 
PathAggiornamento = Server.MapPath("/public/aggiornamento.txt")
Set FsoA = server.CreateObject("scripting.filesystemobject") 
Set oggOpen = FsoA.OpenTextFile(PathAggiornamento,1) 
DataAggiornamento = oggOpen.readline 
DataAggiornamento = Ora
Set oggOpen = Nothing

'Aggiornamento mediante salvataggio nel file 
Set oggOpen = FsoA.OpenTextFile(PathAggiornamento,2) 
oggOpen.write(DataAggiornamento) 
oggOpen.close 
Set oggOpen = Nothing 
Set FsoA = Nothing

End Function

Mentre questa è la funzione che uso per leggere e visualizzare la data e/o l'ora di aggiornamento

Function Aggiornamento()

Dim Data, Ora, PathAggiornamento, FsoA, oggOpen, DataAggiornamento

'Fase di lettura dati dal file aggiornamento.txt 
PathAggiornamento = Server.MapPath("/public/aggiornamento.txt")
Set FsoA = server.CreateObject("scripting.filesystemobject") 
Set oggOpen = FsoA.OpenTextFile(PathAggiornamento,1) 
DataAggiornamento = oggOpen.readline 
Response.Write(DataAggiornamento)

oggOpen.close 
Set oggOpen = Nothing 
Set FsoA = Nothing

End Function

Alla prossima