Discussion :

[joulive]

Bonjour,
je voulais faire une suppression multiple avec checkbox.
Je suis débutante en asp et je travaille sur une base access.

j'ai essayé de mettre ce code mais il m'affiche une erreur.
Le code du formulaire est le suivant :

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
43
44
45
46
47
48
 
 
  <%
  sql = "SELECT * FROM FAQ"
	Set faqM = Server.CreateObject("ADODB.Recordset")
    faqM.Open sql, conn, 3, 3
 
 %>
 
<form action="GestionFAQ.asp" method="post">
<input type="image" src="img/cancel.png" name="Submit" value="Supprimer"> <br><br>
<table width="704" border="0" cellpadding="0" cellspacing="0" class="display" id="example" style="width:750px;">
	<thead>
		<tr>
		    <th width="51">&nbsp;</th>
		    <th width="162" class="sorting_asc">Categorie</th>
			<th width="259" class="sorting">Question</th>
			<th width="278" class="sorting">Réponse</th>
 
		</tr>
	</thead>
	<tbody>
<%
		faqM.movefirst 
        do while not faqM.eof
 
	 	categorie=faqM.fields("categorie")
		question=faqM.fields("question")
		reponse=faqM.fields("reponse")
		idFAQ=faqM.fields("idFAQ")
		%>
	<tr class="gradeA odd">
	        <td class="center"><input name="Supprimer[]" type="checkbox" id="Supprimer[]" value="<%=idFAQ%>"></td>
			<td onDblClick="inlineMod(<%=idFAQ%>, this, 'categorie', 'Texte', 'FAQ', 'idFAQ');"><%=categorie%></td>
			<td onDblClick="inlineMod(<%=idFAQ%>, this, 'question', 'Texte', 'FAQ', 'idFAQ');"><%=question %></td>
			<td  onDblClick="inlineMod(<%=idFAQ%>, this, 'reponse', 'TexteMulti', 'FAQ', 'idFAQ');"><%=reponse%></td>
 
	  </tr>
<%
		  faqM.movenext
        loop
		  %>		
	</tbody>
 
</table><br>
<br>
 
</form>

le code du suppression est le suivant :

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
<%
Set conn = Server.CreateObject("ADODB.Connection")
DSN_BASE="DBQ="& Server.Mappath("../database/produits.mdb")&";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
conn.Open DSN_BASE
	 	
%>
<%
if(Request("Submit") <> "") then 
commDelete__intRecordsIDs = Request("Submit")

set commDelete = Server.CreateObject("ADODB.Command")
commDelete.ActiveConnection = conn
commDelete.CommandText = "DELETE FROM FAQ WHERE idFAQ IN (" + Replace(commDelete__intRecordsIDs, "'", "''") + ")"
commDelete.CommandType = 1
commDelete.CommandTimeout = 0
commDelete.Prepared = true
commDelete.Execute()
Response.Redirect("GestionFAQ.asp")
end if
%>

L'erreur est la suivante :

Code :

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

1
2
3
4
5
6
 
Microsoft OLE DB Provider for ODBC Drivers erreur '80040e10'
 
[Microsoft][Pilote ODBC Microsoft Access] Trop peu de paramètres. 1 attendu.
 
/client/GestionFAQ.asp, ligne 19

la ligne 19 concerne commDelete.Execute()


Avez vous d'idée ??

Merci d'avance.

[eclisse]

Je pense que ton erreur est du aux parenthèses en trop :
Command.Execute

Sinon, j'aurais tendance à faire plus simple :

Tu places ton formulaire avec tes colonnes précédées sur chaque ligne d'un <input type="checkbox" name="idFaq" value="<%=idFaq%>"> comme tu l'as fait.

Dans ta page de traitement, tu récupère ton tableau d'idFaq et exécute ta requête:

Code :

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

Conn.Execute("DELETE FROM FAQ WHERE idFAQ IN ("& request.form("idFaq") &")")