Ciao,
ho una query di aggiornamento lenta
parliamo di 22mila record
voglio aggiornare un campo
pesco da una funzione pubblica la data del file da un percorso memorizzato in tabella
Function UltimaData(n As String) As Date
Dim strPath As String
Dim ParametroFile As String
ParametroFile = DLookup("nomefile", "q_data_file", "nomefile='" & Replace(n, "'", "''") & "'")
strPath = DLookup("percorso", "q_data_file", "nomefile='" & Replace(n, "'", "''") & "'")
UltimaData = FileDateTime(strPath + ParametroFile)
End Function
e aggiorno la tabella con l'informazione della data con una query di aggiornamento
UPDATE tblDirectory INNER JOIN q_data_file ON (tblDirectory.nomefile = q_data_file.nomefile) AND (tblDirectory.percorso = q_data_file.percorso) SET tblDirectory.data_ultima_mod = [VisualizzaData];
l'aggiornamento dura un 4-5 minuti
qualche spunto per velocizzare?