Bonjour le forum,
Autant vous le dire de suite, je suis une billeen codage, je me débrouille comme je peux.
Voila, j'ai un script dans lequel je souhaite ajouter des boutons radio et que les valeurs soit enregistrées dans un champ de ma BD MsAccess 97.
L'affichage html est bon, les choix ca marche mais rien n'est envoyé dans ma BD.
Je pense que je dois créer une fonction mais là je ne sais pas faire.
Ma table s'appelle RNC et le champ ReplMeth
j'ai la possibilité de: soit créer un nouvel enregistrement, soit de ré-ouvrir un enregistrement ("NoRNC") = ""
Voila mon code:
Code HTML : 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 <table border="0" width="100%" cellspacing="0" cellpadding="5" > <tr> <td width="9"><img border="0" src="images/Spacer.gif" height="7" width="5"></td> <td width="100" > <p align="left"><font face="Verdana" size="2"><b>Pièce remplacée :</b></font></td> <td width="" > <p align="left"><font face="Verdana" size="2"> <%If bRncClos AND Not Session("UserAdmin") Then%> <%=rstRNC("ReplMeth")%> <%Else%> <% If Request("NoRNC") = "" Then %> <input type="radio" id="replaced-YN-1" name="ReplMeth" onclick="ReplMeth" value="YES"> <label for="yes">YES/OUI</label> <input type="radio" id="replaced-YN-2" name="ReplMeth" onclick="ReplMeth" value="NO" checked> <label for="no">NO/NON</label> <% Else %> <input type="radio" id="replaced-YN-1" name="ReplMeth" value="<%=rstRNC("ReplMeth")%>"> <label for="yes">YES/OUI</label> <input type="radio" id="replaced-YN-2" name="ReplMeth" value="<%=rstRNC("ReplMeth")%>"> <label for="no">NO/NON</label> <% End If %> <% End If %> </td> <td width="40" > <p align="left"><font face="Verdana" size="2"> </font></td> <td width="40" > <p align="left"><font face="Verdana" size="2"> </font></td> <td width="9"><img border="0" src="images/Spacer.gif" height="7" width="5"></td> </tr>
La commande enregister avec le code:
merci si quelqu'un peut m'aidez.
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 Sub SaveRNC() sSql = "SELECT * FROM RNC where NoRNC=" & CDbl(Request("NoRNC")) set rstRNC = Server.CreateObject("ADODB.Recordset") rstRNC.Open sSql, Conn, adOpenDynamic, adLockOptimistic If rstRNC.EOF Then rstRNC.AddNew End If rstRNC("DateRNC") = CDate(Request("DateRNC")) rstRNC("EtapeAmdec") = Request("EtapeAmdec") rstRNC("CasAmdec") = Request("CasAmdec") rstRNC("NomPce") = Request("NomPce") . . . rstRNC("billFlow") = Request("BillFlow") rstRNC("ReplMeth") = Request("ReplMeth") rstRNC.Update End Sub
Cordialement
Partager