1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
' 1. la comparaison:
'comparer deux celules, i est l'index de lingne, j est l'index de colonne
for (i=0; i<length_line; i++)
for(j=0; j< length_column; j++)
{ if table_org (i,j) =! table_updated (i,j)
' 2. si différent, ajoute une ligne dans la table "update_info"
oRst=oDb.OpenRecordset("update_info",dbOpenTable)
oRst.AddNew
'Affecte les différents champs
oRst.Fields("ID").Value= i
oRst.Fields("colomn").Value= j
oRst.Fields("org_info").Value= table_org (i,j)
oRst.Fields("updated_info").Value= table_updated (i,j)
oRst.Fields("date").Value= table_updated (i,"date")
' les dates de update existent déjà dans la colone "date " de table_updated
oRst.Update
} |
Partager