DELETE qui ne fonctionne pas

**pmboutteau** · 14/10/2005, 10h13

Bonjour. Tout est dans le titre.

J'ai une fonction suppression qui ne supprime pas dans ma table.
Elle n'a qu'un champ, le champ Nom.

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
<%@ Language="VBScript"%>
<% option explicit%>
<%	Dim data1
	data1=replace(Request.Form("data1"),".",",")
 
				Dim str
				Dim cnBD
				Dim strSuppr
				Dim objRs
				Dim test
				test=0
 
                 str = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".") &"\PR.mdb"
 
				strSuppr="DELETE ChefEquipe.Nom From ChefEquipe"
 
				set cnBD =Server.CreateObject("ADODB.Connection")
 
				Set objRs = Server.CreateObject("ADODB.Recordset")
 
				cnBD.Open str
 
				objRs.Open "SELECT Nom From ChefEquipe", cnBD
				Do While (test = 0 And Not objRs.EOF)
								        If data1= objRs("Nom") Then
								                test = 1
								            End If
								         objRs.movenext
    			Loop
 
    			if test = 1 Then
 					cnBD.Execute (strSuppr)
				End if
				objRs.Close
				set objRs=nothing
 
				cnBD.Close
				set cnBD=nothing
 
				Response.Redirect"menuGeneral.html"
 
	%>

et le formulaire où je récupère la donnée à supprimer:

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML>
<HEAD>
<TITLE>Suppression de Chefs d'Equipe</TITLE>
<META NAME="Generator" CONTENT="TextPad 4.4">
<META NAME="Author" CONTENT="?">
<META NAME="Keywords" CONTENT="?">
<META NAME="Description" CONTENT="?">
<LINK REL="stylesheet" HREF="Couleur.css" TYPE="text/css">
    <link rel="stylesheet" type="text/css" href="menussjava.css" title="défaut">
<style type="text/css" media="print">
.noseeme {visiblity: visible}
.seeme {display : none}
</style>
<style  type="text/css" media="screen">
.noseeme {display: none}
.seeme {visibility: visible}
</style>
<!-- #include file="menuGeneralSquelette.html" -->
 
</HEAD>
 
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#FF0000" VLINK="#800000" ALINK="#FF00FF" BACKGROUND="?">
<%@ Language="VBScript"%>
 
<div class="content">
<H3>Suppression de Chefs d'équipe</H3>
<br><br></br></br>
 
<FORM name="SupprChefEquipe" method="post" action="SupprimerChefEquipe.asp">
 
 
<TABLE ALIGN="left" BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="30%">
<TR>
<td><b>Nom du Chef d'Equipe&nbsp;:</b></td><td><div align=left><%
Dim str
Dim cnBD
Dim RS
Dim sql
 
str = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".") &"\PR.mdb"
 
Set cnBD = Server.CreateObject("ADODB.Connection")
  cnBD.Open str
   set RS = server.CreateObject("ADODB.RecordSet")
   sql = "SELECT  * FROM ChefEquipe"
   RS.open sql, cnBD
  %>
  <SELECT name="type">
   <%
      do while not RS.eof
   %>
   <OPTION value="<% response.Write(trim(RS("Nom"))) %>"><% response.Write(RS("Nom")) %></OPTION>
   <%
         RS.movenext
      loop
      RS.close
      set RS = nothing
      cnBD.close
      set cnBD = nothing
   %>
  </SELECT></td>
</TR>
</table>
 
<br></br>
<br></br>
 
<INPUT type="submit" value="Supprimer" name="btnSubmit">
 
</FORM>
</div>
 
</BODY>
</HTML>

Quelqu'un voit pourquoi?

Et comment fait-on pour choisir plusieurs noms à supprimer dans le SELECT?

**pc75** · 14/10/2005, 10h48

Bonjour,

As tu vérifié que tu passes bien dans ce if :

Code :

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

1
2
3
4
 
             if test = 1 Then 
                cnBD.Execute (strSuppr) 
            End if

Et comment fait-on pour choisir plusieurs noms à supprimer dans le SELECT?

Dans ta balise select, tu ajoutes l'attribut "multiple" et ton request.form("data1") récupèrera un tableau des noms.

**pmboutteau** · 14/10/2005, 11h00

Merci pour le multiple.

Je vais tester sans faire de if mais c'est bizarre vu que je choisis des élémants de ma table.

**pmboutteau** · 14/10/2005, 11h08

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
<%@ Language="VBScript"%>
<% option explicit%>
<%	Dim data1
	data1=Request.Form("data1")
 
				Dim str
				Dim cnBD
				Dim strSuppr
				Dim objRs
				Dim test
				test=0
 
                 str = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".") &"\PR.mdb"
 
				strSuppr="DELETE '"&data1&"' From ChefEquipe"
 
				set cnBD =Server.CreateObject("ADODB.Connection")
 
				Set objRs = Server.CreateObject("ADODB.Recordset")
 
				cnBD.Open str
 
				cnBD.Execute (strSuppr)
 
				cnBD.Close
				set cnBD=nothing
 
				Response.Redirect"menuGeneral.html"
 
	%>

J'ai modifié mais le problème c'est que çà m'efface tout maintenant!

**Pymm** · 14/10/2005, 11h58

testes ça:

Code :

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

strSuppr="DELETE * From ChefEquipe where nom='"&data1&"';"

**pmboutteau** · 14/10/2005, 13h20

çà ne supprime plus rien avec cette modif

**Pymm** · 14/10/2005, 13h33

Je récapitule pour être sur d'avoir tout compris :
tu as une table qui ne contient qu'un champ Nom
et tu cherches à supprimer 1 ou plusieurs Nom de cette table.
La variable data1 représente le Nom a effacer ?

**pmboutteau** · 14/10/2005, 13h35

Oui oui.

Pour faire çà il faut bien un formulaire dans lequel j'appele ma fonction supprimer.asp?

Je vois pas trop où çà foire surtout que j'ai viré le test d'existence de l'enregistrement à effacer.

**Pymm** · 14/10/2005, 13h43

testes ça :

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
<%@ Language="VBScript"%>
<% option explicit%>
<%   Dim data1
        data1=Request.Form("data1")         
            Dim str
            Dim cnBD
            Dim strSuppr
            Dim objRs
            Dim test
            test=0
 
                 str = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".") &"\PR.mdb"
 
            strSuppr="SELECT * From ChefEquipe WHERE Nom='"&data1&"';"
 
            set cnBD =Server.CreateObject("ADODB.Connection")
 
            Set objRs = Server.CreateObject("ADODB.Recordset")
 
            cnBD.Open str
 
            cnBD.Execute (strSuppr)
            If Not cnBD.EOF Then
               cnBD.delete
            Else
                Response.Write "Pas d'enregistrement" & chr(10)
            End If
            cnBD.Close
            set cnBD=nothing
 
           ' Response.Redirect"menuGeneral.html"
 
   %>

**pmboutteau** · 14/10/2005, 13h50

En fait je viens de trouver l'erreur.

En faisant mes copier/coller je me suis gourré mon select s'appeler Type et pas data1 donc fatalement.

Merci pour ton aide.

DELETE qui ne fonctionne pas

ASP

Discussions similaires

Partager

Partager