1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Public Sub ScanUpdateControle()
'envoie le mail a chaque entreprise qui viennet d enregistrer un ou plusieur epi grace au controle sur la table EntrepriseCliente
Dim cn As New OleDbConnection
cn = connexionBDD()
Dim cmd As New OleDbCommand
cmd.CommandText = "SELECT EC.ent_nom, EC.ent_auteur, EC.ent_courriel, EC.ent_fax, VA1.ver_date FROM EntrepriseCliente AS EC, VerificationAnnuelle AS VA1, VerificationAnnuelle AS VA2 WHERE EC.con_MailSynthese<>'1' And EC.ent_nom=VA1.ent_nom And VA2.ent_nom=VA1.ent_nom GROUP BY EC.ent_nom, EC.ent_auteur, EC.ent_courriel, EC.ent_fax, VA1.ver_date HAVING VA1.ver_date=max(VA2.ver_date); "
cmd.Connection = cn
cmd.Connection.Open()
Using reader As IDataReader = cmd.ExecuteReader()
While reader.Read()
mailforSaveEPI(reader("ent_nom"), reader("ent_courriel"), reader("ver_date"), reader("ent_fax"))
updatecontrolemail(reader("ent_nom"), "1")
lalstcommercial.ajout(reader("ent_auteur"), "l'entreprise " & reader("ent_nom") & " a bien été mis a jour ")
End While
End Using
cmd.Connection.Close()
End Sub |
Partager