Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1373 connectés 

  FORUM HardWare.fr
  Programmation
  ASP

  UPDATE d'une table à partir d'un formulaire

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

UPDATE d'une table à partir d'un formulaire

n°1165603
babap1
Posté le 30-07-2005 à 17:36:55  profilanswer
 

Bonjour,
 
j'ai besion d'être éclairé sur l'UPDATE. Dans le script qui suit, je récupère bien les données de ma base dans mon formulaire mais lorsque je veux enregistrer les modifs... RIEN NE SE PASSE !!!
Quelqu'un peux m'aider???
 
 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/connPC.asp" -->
<html>
<%
Dim rsCoordonnees__MMColParam
rsCoordonnees__MMColParam = "8"
If (Request.QueryString("paysID" ) <> "" ) Then  
  rsCoordonnees__MMColParam = Request.QueryString("paysID" )
End If
 
Dim sql
if Request.QueryString("modif" ) = "Ok" then
 'Conrole de saisie
 sql = "UPDATE coordonnees SET nom=" &Request.QueryString("nom" )
 sql = sql & ", adresse=" &Request.QueryString("adresse" )
 sql = sql & ", code=" &Request.QueryString("code" )
 sql = sql & ", ville=" &Request.QueryString("ville" )
 sql = sql & ", telephone=" &Request.QueryString("telephone" )
 sql = sql & ", mobile=" &Request.QueryString("mobile" )
 sql = sql & ", fax=" &Request.QueryString("fax" )
 sql = sql & ", mel=" &Request.QueryString("strmel" )
 sql = sql & ", site=" &Request.QueryString("site" )
 conn.Execute(sql)
end if

%>
<%
Dim rsPays
Set rsPays = Server.CreateObject("ADODB.Recordset" )
rsPays.ActiveConnection = MM_connPC_STRING
rsPays.Source = "SELECT DISTINCTROW pays.pays AS nompays, pays.paysID FROM pays RIGHT JOIN coordonnees ON pays.paysID=coordonnees.pays"
rsPays.Open()
%>
<%
Dim rsCoordonnees
Set rsCoordonnees = Server.CreateObject("ADODB.Recordset" )
rsCoordonnees.ActiveConnection = MM_connPC_STRING
rsCoordonnees.Source = "SELECT coordonnees.*, pays.pays as nompays FROM pays RIGHT JOIN coordonnees ON pays.paysID = coordonnees.pays  WHERE (((coordonnees.pays)=" + Replace(rsCoordonnees__MMColParam, "'", "''" ) + " ));"
rsCoordonnees.Open()
%>
<head>
<title>Gestion des coordonnées</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../pc.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#ffffff" leftmargin="0" topmargin="0">
<table width="100%" height="100" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="30" valign="middle">&nbsp;</td>
  </tr>
          <td height="437" valign="middle"><div align="center">
              <table width="85%"  border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td><div align="center">-
                    <%while not rsPays.eof%>
                      <a href="gestion.asp?paysID=<%=(rsPays.Fields.Item("paysID" ).Value)%>"><%=(rsPays.Fields.Item("nompays" ).Value)%></a> -
                    <%rsPays.MOVENEXT%>
                    <%wend%>
                  </div></td>
                </tr>
              </table>
              <p>&nbsp;</p>
            <h1>Gestion de coordonn&eacute;es</h1>
            <form name="form1" method="post" action="gestion.asp">             <%while not rsCoordonnees.eof%>
                <table width="500" border="0" cellspacing="0">
                  <tr>
                    <td><b>Nom : </b></td>
                    <td width="343"><input name="nom" type="text" id="nom" value="<%=(rsCoordonnees.Fields.Item("nom" ).Value)%>" size="50"></td>
                  </tr>
                  <tr>
                    <td><b>Adresse :</b></td>
                    <td><textarea name="adresse" cols="38" rows="3" id="adresse"><%=(rsCoordonnees.Fields.Item("adresse" ).Value)%></textarea></td>
                  </tr>
                  <tr>
                    <td><b>Code :</b></td>
                    <td><input name="code" type="text" id="code" value="<%=(rsCoordonnees.Fields.Item("code" ).Value)%>" size="20"></td>
                  </tr>
                  <tr>
                    <td><b>Ville :</b></td>
                    <td><input name="ville" type="text" id="ville" value="<%=(rsCoordonnees.Fields.Item("ville" ).Value)%>" size="20"></td>
                  </tr>
                  <tr>
                    <td><b>Telephone : </b></td>
                    <td><input name="telephone" type="text" id="telephone" value="<%=(rsCoordonnees.Fields.Item("telephone" ).Value)%>" size="20"></td>
                  </tr>
                  <tr>
                    <td><p><b>Mobile :</b></p></td>
                    <td><input name="mobile" type="text" id="mobile" value="<%=(rsCoordonnees.Fields.Item("mobile" ).Value)%>" size="20"></td>
                  </tr>
                  <tr>
                    <td><b>Fax:</b></td>
                    <td><input name="fax" type="text" id="fax" value="<%=(rsCoordonnees.Fields.Item("fax" ).Value)%>" size="20"></td>
                  </tr>
                  <tr>
                    <td><b>Mel : </b></td>
                    <td><input name="srtmel" type="text" id="srtmel" value="<%=(rsCoordonnees.Fields.Item("mel" ).Value)%>" size="30">
                    </td>
                  </tr>
                  <tr>
                    <td><b>Site : </b></td>
                    <td><input name="site" type="text" id="site" value="<%=(rsCoordonnees.Fields.Item("site" ).Value)%>" size="30"></td>
                  </tr>
                  <tr>
                    <td colspan="2"></td>
                  </tr>
                </table>
                <%rsCoordonnees.MOVENEXT%>
                <%wend%>
                <table width="500"  border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td><div align="center"> </div></td>
                  </tr>
                </table>
                <p>
                  <input name="modif" type="hidden" id="modif" value="Ok">
                  <input type="submit" name="Submit" value="Update">
             </p>
            </form>
          </div></td>
        </tr>
          <tr>
            <td height="30" valign="top">&nbsp;</td>
          </tr>
      </table>
</td>
    <td bgcolor="#FFE2CA">&nbsp;</td>
  </tr>
  <tr>  
    <td valign="top" bgcolor="#F27424">&nbsp;</td>
    <td align="center" valign="top">&nbsp;</td>
    <td height="100%" valign="top" bgcolor="#FFE2CA">&nbsp;</td>
  </tr>
</table>
</body>
</html>
<%
rsPays.Close()
Set rsPays = Nothing
rsCoordonnees.Close()
Set rsCoordonnees = Nothing
%>

mood
Publicité
Posté le 30-07-2005 à 17:36:55  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  ASP

  UPDATE d'une table à partir d'un formulaire

 

Sujets relatifs
verifier formulaire existeSupprimer les doublons d'une table
Excel, saisie semie automatique à partir d'une autre feuilleexecuter une macro à partir d'un double clique dans une feuille excel
Comment sauvegarder une section de table ?Interface graphique à partir de fichiers de ressource
update sur ttes mes tables commençant par "IT_"insertion d'une colonne dans une table
Création de doc ou pdf à partir d'un modele...[MySQL] Update multitables
Plus de sujets relatifs à : UPDATE d'une table à partir d'un formulaire


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR