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

  FORUM HardWare.fr
  Programmation
  SQL/NoSQL

  [résolu]mon update n'est pas accepté

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[résolu]mon update n'est pas accepté

n°1381165
bossgama
Posté le 05-06-2006 à 10:34:56  profilanswer
 

Salut à tous, je débute en asp et en sql, et je cherche à recuperer les données d'un formulaire et en envoyer une requète sql à une table en fonction des valeurs rentrées dans les différents champs du formulaire.
La table a été créé sous access. C'est une table simple, avec une clé pimaire, et 4 colonnes. Je l'ai initialisé avec 3 valeurs, et je cherche à en modifier une.
 
Le code est le suivant:

Code :
  1. <%
  2. Set conn = Server.CreateObject("ADODB.Connection" )
  3. connstring = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("." ) & "\form.mdb"
  4. conn.Open connstring, adOpenDynamic, adLockOptimistic
  5. Set rst = Server.CreateObject("ADODB.Recordset" )
  6. Set myrst = Server.CreateObject("ADODB.Recordset" )
  7. Set rec = Server.CreateObject("ADODB.Recordset" )
  8. For Each Item in Request.Form
  9. if request.form("Mode" )="Update" then
  10.   sqldbt="UPDATE " & request.form("Table" ) & " SET "
  11.     For iCount = 1 to Request.Form(Item).Count
  12.       Response.Write Item & " = " & Request.Form(Item)(iCount) & "<br>"
  13.       select case left(Item,4)
  14.        case "TXT_"
  15.         sql= sql & ", " & right(Item,len(Item)-4) & " = '" & replace(Request.Form(Item)(iCount),"'","''" ) & "'"
  16.        case "NUM_"
  17.         sql= sql & ", " & right(Item,len(Item)-4) & " = " & Request.Form(Item)(iCount) & ""
  18.        case "BOO_"
  19.         if request.form(item) = "-1" then
  20.          etat_item = item & " = " & "-1"
  21.         else
  22.          etat_item = item & " = " & "0"
  23.         end if
  24.         sql = sql & ", " & right(etat_Item,len(etat_Item)-4) & ""
  25.  case "DAT_"
  26.     sql = sql & right(Item,len(Item)-4) & " = #" & request.form(item) & "#"
  27.      
  28.       end select
  29.     Next
  30.  
  31.    sqlend=" WHERE num = " & request.form("id" )
  32. elseif request.form("Mode" )="Insert" then
  33. end if
  34. Next
  35. sql = sqldbt & sql & sqlend '& ";"
  36. Response.Write  sql & "<br>"
  37.   if request.form("Mode" )<>"" then conn.execute(sql)
  38. %>
  39. <html>
  40. <head>
  41. <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  42. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  43. <meta name="ProgId" content="FrontPage.Editor.Document">
  44. <title>Nouvelle page 1</title>
  45. </head>
  46. <body>
  47. <form method="POST" action="form.asp">
  48.   <p><input type="hidden" name="id" size="20" value="2"></p>
  49.   <p><input type="hidden" name="Table" size="20" value="form"></p>
  50.   <p><input type="hidden" name="Mode" size="20" value="Update"></p>
  51.   <p><input type="text" name="DAT_dates" size="20"></p>
  52.   <p><input type="text" name="TXT_SocTel" size="20"></p>
  53.   <p><input type="text" name="BOO_booleen" size="20"></p>
  54.   <p><input type="text" name="NUM_num" size="20"></p>
  55.   <p><input type="submit" value="Envoyer" name="B1"><input type="reset" value="Rétablir" name="B2"></p>
  56. </form>
  57. </body>
  58. </html>


Message édité par bossgama le 05-06-2006 à 11:20:21
mood
Publicité
Posté le 05-06-2006 à 10:34:56  profilanswer
 

n°1381172
bossgama
Posté le 05-06-2006 à 10:38:13  profilanswer
 

J'obtiens une requète de la forme:
UPDATE form SET dates = #12/02/2002#, SocTel = '0147852033', booleen = -1, num = 159 WHERE num = 2;
tout semble correct, et la requete est acceptee, mais la table n'est pas modifiée.
 
Est-ce que quelqu'un peut me dire d'ou ca vient??? :??:


Message édité par bossgama le 05-06-2006 à 11:05:42
n°1381197
bossgama
Posté le 05-06-2006 à 11:20:02  profilanswer
 

Bon j'ai trouvé en fait, c"était une erreur toute bète dans ma table.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  SQL/NoSQL

  [résolu]mon update n'est pas accepté

 

Sujets relatifs
[Résolu] SqlServer procédure de lancer à heure fixe"RESOLU" Macro ou lien hypertexte pour ouvrir un fichier .xls
[resolu] pourquoi phpadmin ne marche pas[Résolu]Perfectionner mon code VBA
[Résolu] Problème MySQL 1&1 : plus de protection de chaine !Problème excel... [RESOLU]
division de string[resolu][Resolu] string.lenght qui marche une fois sur deux
pb tableau[résolu]Faire un .bat pour une update sur réseau.
Plus de sujets relatifs à : [résolu]mon update n'est pas accepté


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