bonjour,
je souhaite faire une mise a jour d'un produit dans une commande. Dans une page, je choisis mon produit a modifier, je le modifie et lorsque je valide, j'entre dans une autre page qui fait la mise a jour du produit.
Je pense que mon problème vient de ma requête mais je ne vois pas ou est l'erreur car la mise a jour ne s'effectue pas mais aucun message d'erreur ne s'affiche. Voici mon code :
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42 modifProduit2.asp : <form action="modifProduit3.asp" method="post"> <% valCommande=Request("numCde") Refer=Request("Ref") Set conn = Server.CreateObject("ADODB.Connection") MdbFilePath = Server.MapPath("Commande.mdb") str = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & MdbFilePath & ";" conn.Open str Set res = conn.Execute("Select Concerner.RefConso,DesignConso,Quantite from Consommable,Concerner where Concerner.RefConso=Consommable.RefConso and NumCommande='" & valCommande & "' and Concerner.RefConso='" & Refer & "'") do while not res.eof %> <input type="hidden" name="numCde" value="<%=valCommande%>"> <input type="hidden" name="refProd" value="<%=res("DesignConso")%>"> <Input type="text" name="qte" value="<%=res("Quantite")%>"> <% res.Movenext loop res.Close set res = nothing conn.close set conn = nothing %> <input type="submit" name="Valider" value="Valider"> </form> modifProduit3.asp : <% Set OBJdbConnection = Server.CreateObject("ADODB.Connection") MdbFilePath = Server.MapPath("Commande.mdb") str = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & MdbFilePath & ";" OBJdbConnection.Open str sql = "update Concerner " sql = sql & "Set Quantite ='" & Request("qte") & "' " sql = sql & "WHERE NumCommande = '" & Request("numCde") & "' " sql = sql & "AND RefConso = '" & Request("RefProd") & "'" set result=OBJdbConnection.Execute(sql) Response.Redirect("modifProduit.asp") %>
Partager