1 2 3 4 5 6 7 8 9
|
if nvcloture="Non" then
insertNouvelleAction = "INSERT INTO [Demonstration].[dbo].[T_Action_Relance_client]([id],[Date],[Type],[charge_affaire],[contact],[description_remarque],[date_cloture],[cloture],[communiquer],[personnehps],[typeContact]) "
insertNouvelleAction = insertNouvelleAction & "VALUES ('" & idNouveauContact & "','"& nvdate&"','"& nvtypeaction &"','"& nvchargeaff &"','"& Replace(prenomNouveauContact &" "&nomNouveauContact, "'", "''") &"','"& replace(nvdescription, "'", "''") &"','','"& nvcloture &"','"& nvcommuniquer &"','"& nvpersonnehps &"',0 )"
else
insertNouvelleAction = "INSERT INTO [Demonstration].[dbo].[T_Action_Relance_client]([id],[Date],[Type],[charge_affaire],[contact],[description_remarque],[date_cloture],[cloture],[communiquer],[personnehps],[typeContact]) "
insertNouvelleAction = insertNouvelleAction & "values ('" & idNouveauContact & "','"& nvdate&"','"& nvtypeaction &"','"& nvchargeaff &"','"& Replace(prenomNouveauContact &" "&nomNouveauContact, "'", "''") &"','"& replace(nvdescription, "'", "''") &"','"& nvdatecloture &"','"& nvcloture &"','"& nvcommuniquer &"','"& nvpersonnehps &"',0 )"
end if
Conn.execute insertNouvelleAction |
Partager