<code>
LECLONEMAT=Request.QueryString ("leclonemat")%>
<% REFERENCEMAT=Request.QueryString ("referencemat")%>
<% NOMMATERIEL=Request.QueryString ("nommateriel")%>
<% TYPEMATERIEL=Request.QueryString ("typemateriel")%>
<% MARQUEMATERIEL=Request.QueryString ("marquemateriel")%>
<% PRIXACHATMATERIEL=Request.QueryString ("prixachatmateriel")%>
<% MARGEMATERIEL=Request.QueryString ("margemateriel")%>
<% DISPOMATERIEL=Request.QueryString ("dispomateriel")%>
<% REFFOURNISSEUR=Request.QueryString ("reffournisseur")%>
<%'-------déclaration de la base------------------------------
DSN_BASE = "DBQ=" & Server.Mappath("webleclone.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
<%'-------création de la connection et du recordset-----------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")%>
<%'-------définition et exécution de la requête---------------
RequeteSQL =
"Update Matériel Set (Ref1_leclone='"&LECLONEMAT&"', Ref_materiel='"&REFERENCEMAT&"', Nom_materiel='"&NOMMATERIEL&"', Type_materiel='"&TYPEMATERIEL&"', Marque_materiel='"&MARQUEMATERIEL&"', prixachat_materiel='"&PRIXACHATMATERIEL&"', Marge_produit='"&MARGEMATERIEL&"', Dispo_materiel='"&DISPOMATERIEL&"', Ref_fourni='"&REFFOURNISSEUR&"') Where Ref_materiel= '"&REFERENCEMAT&"'"RS.Open RequeteSQL , Conn
if RS.EOF then%>
<p align="center">
<font color="#000000">Problème rencontré lors de la modification, réessayez plus tard !!! </font></p>
<%else%>
<p align="center"><font color="#000000">Le matériel a été modifié dans la base de données.</font></p>
<p align="center"><br>
<a href="gestionbase.asp">RETOURNER CHOIX </a>
</code>
Partager