Mise en archive avec checkbox

Version imprimable

Voir 40 message(s) de cette discussion en une page

Hello, voila, j'ai un autre soucis que je n'arrive pas a résoudre.. ca fait 3 jours que je cherche comment faire.

j ai une page(basearchive.asp) qui liste ma base de donnée. elle ecrit les nom des projets et l'id (en type hidden).
et j ai un checkbox a coté (pour archiver) et si je coche un ou plusieur ca doit modifier les champs de ma base de donnée et mettre 1 ds le champ Archive.
J'arrive à récupérer les id coché mais pour modifier mes champs j'ai une erreur.
mon checkbox se trouve dans une boucle Do while donc recoit tjs meme nom... je pense que c'est a cause de ca.

J'ai fait ma connexion a la base en haute de la page et je la ferme en bas (la connexion fonctionne bien)

Voila le code pour la modification :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 id = request.form("IDMesure") ordre = request.form("check") 'on récupère tout les id, on les passe ds une variable, et on les sépare listeOrdre = Split(ordre, ", ") listeId = Split(id, ", ") for i = 0 to UBound(listeOrdre) response.write(listeId(i) & " - " & listeOrdre(i)) & "<br>" Next If listeOrdre(i) = 1 Then RS.Open "UPDATE TableMesure SET Archive = '1' WHERE IDMesure=" & listeId(i), Connect End if 'Response.redirect("baseArchive.asp") Connect.Close Set Connect = Nothing
je ne pense pas non plus que ca se fait avec Split....[/code]

Salut,
pourquoi dans ta page appelée basearchive.asp, tu ne nommes pas tes check avec l'id
un petit exemple qui va peut-être t'aider (la page testC.asp s'auto appele)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 <% if request.form = "" then response.write "<form NAME=toto action=testC.asp method=POST>" for i =0 to 5 response.write "<input type =checkbox name = t"&i&">" next response.write "<input type = submit>" &_ "</form>" else for each item in request.form response.write request.form() & "<BR>" next end if %>

je suis désolée mais j'ai pas tout compris au code. je devrais avoir qu'une seule page alors et non 1 page pour le formulaire et une autre qui modifie ma base?
basearchive.asp contient mon formulaire :
Code:

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 <form action="archivmodif.asp" method="post"> <table width="490" align="center"> <% Do while not rst.EOF %> <input type="hidden" name="IDMesure" value="<%=rst("IDMesure") %>"> <tr> <td width="144"><%=rst("Nom_Wafer")%></td> <td width="316"><%=rst("Date")%></td> <td width="31"><div align="right"> <input type="checkbox" name="check" value="1"> </div></td> </tr> <% rst.MoveNext%> <%Loop%> </table> <br> <table width="90" align="center"> <tr> <td><div align="center"> <input name="archiver" type="submit" value="Archiver"> </div></td> </tr> </table> </form>
et dans la page archivModif.asp ben c'est le code de mon autre message..

donc je devrais remplacer mon formulaire par ton code et supprimer archivmodif.asp?

Et si tu faisais:
Code:

1 2 3 4 5 6 7 for i = 0 to UBound(listeOrdre) response.write(listeId(i) & " - " & listeOrdre(i)) & "<br>" If listeOrdre(i) = 1 Then RS.Open "UPDATE TableMesure SET Archive = '1' WHERE IDMesure=" & listeId(i), Connect End if Next
NB: Si tu mets "set archive = '1'" c'est que le champ est du texte.
NB2: plutôt que "rs.open" fais un

Code:

connexion.execute("UPDATE TableMesure SET Archive = '1' WHERE IDMesure=" & listeId(i))

.

A+

19/10/2005, 10h26
flo456

voila alors, j'ai changer le code comme tu as dit,
ca archive bien, mais ca n'archive pas les bons.
Si j'archive le 15ème (par exemple), il archive le 1er... et c est tjs lui qui est archivé...
c est bizard,,
19/10/2005, 10h34
Pymm

le rst qui crée ton formulaire il contient tous les projets ou seulement certains ?
19/10/2005, 10h37
flo456

il contient tt les projets. en fait il liste tte la base de donnée.
19/10/2005, 10h46
totoche

C'est évident 1 ne dit pas qu'il est checké

Code:

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
'traitement
Rs_projet.Open "Projet",Connect
While not Rs_projet.EOF
      If Request.Form("check_"&Rs_projet("IDMesure"))=1 Then
         RS.Open "UPDATE TableMesure SET Archive = '1' WHERE IDMesure=" & Rs_projet("IDMesure"), Connect 
         RS.Close
     End If
     Rs_project.MoveNext
Wend 
 
' formulaire
  <form action="archivmodif.asp" method="post">
          <table width="490" align="center">
            <%
   Do while not rst.EOF
%>            
            <tr>
              <td width="144"><%=rst("Nom_Wafer")%></td>
              <td width="316"><%=rst("Date")%></td>
              <td width="31"><div align="right">
                 <input type="checkbox" name="check_"<%=rst("IDMesure")%> value="1">
                </div></td>
        </tr>
<% rst.MoveNext%>
   <%Loop%>
          </table>
        <br>
        <table width="90" align="center">
          <tr>
            <td><div align="center">
                <input name="archiver" type="submit" value="Archiver">
              </div></td>
          </tr>
        </table>
      </form>

en gros l'idée est là

19/10/2005, 10h48
flo456

si c'est coché, il doit modifier l'enregistrement par rapport à l'ID qu il recoit et mettre 1 dans le champs Archive.

et apres si il y a des projets ou il y a 1 ds Archive, il note a coté "Projet Archivé"..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
<form action="archivmodif.asp" method="post"> 
          <table width="490" align="center"> 
            <%
 
   Do while not rst.EOF 
%> 
              <tr> 
              <td width="144"><%=rst("Nom_Wafer")%></td> 
              <td width="316"><%=rst("Date")%></td> 
              <td width="31"><div align="right"> 
                 <input type="checkbox" name="check" value=<%=rst("IDMesure") %>> 
&">

dans ta page archivmodif.asp
teste

Code:

1
2
3
4
5
 
for each item in request.form 
response.write request.form() & "<BR>" 
next 
end if

Splite le request.form pour récupérer l'id et fais ton update

ca me fait pas d'erreur.. c'est deja pas mal...
mais ca ne fait rien du tout..

Code:

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
 
<%
Option Explicit
 
Dim IDMesure
Dim strConn
Dim Connect
Dim RS
Dim id
Dim ordre
Dim listeOrdre
Dim listeId
Dim i
Dim item
 
strConn = Server.MapPath("/intranet/DB/intranet.mdb")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & strConn
 
set RS = Server.CreateObject("ADODB.Recordset")
 
id = request.form("IDMesure")
ordre = request.form("check")
 
for each item in request.form 
response.write request.form() & "<BR>" 
next 
 
listeOrdre = Split(ordre, ", ")
listeId = Split(id, ", ") 
 
for i = 0 to UBound(listeOrdre) 
   response.write(listeId(i) & " - " & listeOrdre(i)) & "<br>" 
   If listeOrdre(i) = 1 Then 
    Connect.execute("UPDATE TableMesure SET Archive = '1' WHERE IDMesure=" & id)
  End if 
Next
 
Response.redirect("baseArchive.asp")
 
Connect.Close
Set Connect = Nothing

désolée si j'ai pas tout compris..
et merci d'avance pour votre patience...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
<form action="archivmodif.asp" method="post"> 
          <table width="490" align="center"> 
            <% 
   Do while not rst.EOF 
%> 
              <tr> 
              <td width="144"><%=rst("Nom_Wafer")%></td> 
              <td width="316"><%=rst("Date")%></td> 
              <td width="31"><div align="right"> 
                 <input type="checkbox" name="check" value="<%=rst("IDMesure") %>"> 
                </div></td> 
        </tr> 
<% rst.MoveNext%> 
   <%Loop%> 
          </table> 
        <br> 
        <table width="90" align="center"> 
          <tr> 
            <td><div align="center"> 
                <input name="archiver" type="submit" value="Archiver"> 
              </div></td> 
          </tr> 
        </table> 
      </form>

Page archivmodif.asp

Code:

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
 
Option Explicit 
 
Dim IDMesure 
Dim strConn 
Dim Connect 
Dim RS 
Dim id 
Dim ordre 
Dim listeOrdre 
Dim listeId 
Dim i 
Dim item 
 
strConn = Server.MapPath("/intranet/DB/intranet.mdb") 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & strConn 
 
set RS = Server.CreateObject("ADODB.Recordset") 
for each item in request.form 
    Connect.execute("UPDATE TableMesure SET Archive = '1' WHERE IDMesure=" & item 
  End if 
Next 
 
Response.redirect("baseArchive.asp") 
 
Connect.Close 
Set Connect = Nothing

19/10/2005, 11h27
flo456

ton code écrit 1 dans tt les enregistrements de la base automatiquement...
il fait pas de test si c'est coché ou pas...
donc en résumé.. tt mes projets sont archivé...
19/10/2005, 11h46
totoche

excuses:

Code:

<input type="checkbox" name=<%=rst("IDMesure") %>>
19/10/2005, 11h52
flo456

oki.. j ai tjs pas d erreur, mais ca ne fait rien si je coche..
pourtant l'update est bien la...

c surment pke il n y a pas de if..

Code:

1
2
3
4
 
for each item in request.form
    Connect.execute("UPDATE TableMesure SET Archive = '1' WHERE IDMesure=" & item)
Next

alors j'ai mit comme ca mais ca change rien..

Code:

1
2
3
4
5
6
 
for each item in request.form
	If Request("check_"&id)=1 Then 
    Connect.execute("UPDATE TableMesure SET Archive = '1' WHERE IDMesure=" & item)
	end if
Next

19/10/2005, 12h19
totoche

très bizarre,
fais response.write de item

for each item in request.form
response.write item
'Connect.execute("UPDATE TableMesure SET Archive = '1' WHERE IDMesure=" & item)
Next

on est bien d'accord
<input type="checkbox" name=<%=rst("IDMesure") %>>
rst("IDMesure") est numérique
19/10/2005, 12h30
Pymm

je suis pas vexé du tout :pleure: mais il me semble avoir mis le test dans mon exemple.... mais t'as pas voulu y porter ton attention :roll:

je veux pas jouer les boudeur mais avec on code tu aurais fini depuis longtemp :lol:
19/10/2005, 12h32
Immobilis

Il faut noter que qd un case n'est pas cochée sa valeur n'est pas postée.
Exemple:
ID 1 | case 1 cochée
ID 2 | case 2 PAS cochée
ID 3 | case 3 cochée

Le formulaire envoi ID1,ID2,ID3 et cochée, cochée
Du coup c'est décalé et il n'y a pas de valeur pour ID3.

Solution: la valeur de la case à cocher doit etre la valeur de l'ID et non pas '1'.
Qd tu postes les valeurs que tu reçois sont celles des enregistrement à classer 'Archivé'.

Code:

"UPDATE matable set monchamp = 1 where ID IN (" & request.form("check") & ")"

En plus, tu n'as plus besoin de faire de SPLIT().
Et puis attention: il ne faut pas mettre name mais value

Code:

<input type="checkbox" value=<%=rst("IDMesure") %> name='check'>

A+

Voir 40 message(s) de cette discussion en une page