>Envoi de code SQL à la base de donnée pour copier les nouvelles données de la table ALIM_SVI vers la table ALIM_SVI_histo
Sub histo()
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\\FRER0666\routage_hdx$\routage.mdb"
Sql = "INSERT INTO ALIM_SVI_histo SELECT ALIM_SVI.Id, ALIM_SVI.CLID, ALIM_SVI.SAISIE, ALIM_SVI.date_heure FROM ALIM_SVI;"
cnn.Execute Sql
cnn.Close
End Sub
>Envoi de code SQL à la base de donnée pour purger la table ALIM_SVI
Sub freshSVI()
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\\FRER0666\routage_hdx$\routage.mdb"
Sql = "DELETE ALIM_SVI.Id, ALIM_SVI.CLID, ALIM_SVI.SAISIE, ALIM_SVI.date_heure FROM ALIM_SVI;"
cnn.Execute Sql
cnn.Close
End Sub