1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
Dim Cnxn, chaineConn, sSQL
Dim date_historisation
'On recupere la date du jour pour les requetes
date_historisation = Date()
'On cree la connexion
Set Cnxn = CreateObject("ADODB.Connection")
'on ouvre la connexion avec SIGAD.mdb
chaineConn = "provider=MICROSOFT.JET.OLEDB.4.0; Data Source=\\serveur\mabase.mdb;"
Cnxn.open chaineConn
'On met les commandes SQL dans des variables
sSQL = "INSERT INTO Date_Dern_Modif VALUES (#" & date_historisation & "#)"
'on execute les requetes SQL
Cnxn.Execute sSQL
'on ferme les connexions
Cnxn.close
set Cnxn=nothing |