Discussion :

[leeloo076]

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 :

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")
%>

Merci

[bossun]

il t'affiche quoi comme erreur???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
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") 
%>

[jérôme]

http://asp.developpez.com/faq/?page=...SDONNEES_debug

[leeloo076]

merci ça fonctionne