modification d'enregistements Access en ASP

**D-D** · 07/06/2004, 11h21

Salut, j'aurai besoin d'un dernier coup de main

Voilà, j'ai une liste déroulante qui permet de sélectioner un enregistement et cela affiche des champs de cet enregistrement en consultation.
J'aurai besoin d'afficher 1 champ en modification, je voudrai connaître le code à appliquer pour réaliser cette fonction.

Si vous voulez plus de détail ou voir mon code, repondez a ce message

**blabla-fr** · 07/06/2004, 12h11

je ne crois pas qu'il faut une fonction pour ça, tu affiches en dure pour les champ non modifiables et les autres tu les met dans dans les zones textbox

**D-D** · 07/06/2004, 13h40

ok, merci mais peut tu me donner la syntaxe car je suis novice en ASP...
merci

**Crazyblinkgirl** · 07/06/2004, 13h46

Tu veux des champs textes non modifiables sauf pour un?

Si oui tu mets :

Code :

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

1
2
3
 
 
<input type="text" name=".." value=<%...%> readonly="yes">

Tu ne mets pas le readonly si tu veux qu'on puisse les modifier.

**D-D** · 07/06/2004, 13h47

voila, j'ai mis une boite qui affiche mon champ apres selection dans la liste déroulante:

Code :

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

<TD><input SIZE=10 type="date" name="exploit1" value="<%=rs("exploit1")%>"></TD>

maintenant, je voudrais crer un bouton pour enregistrer la modification de ce champ dans la table access

merci beaucoup c'est tres important pour moi ....si vous avez une idee

**Crazyblinkgirl** · 07/06/2004, 13h53

Ben tu fais un tag <form> qui post les infos soir sur la meme page soit sur une autre et quand tu cliques dessus tu fait une requete de type update

Exemple :

Code :

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

1
2
3
4
5
6
7
 
 
<TD>
<form action="nompage"  method="post">
<input SIZE=10 type="date" name="exploit1" value="<%=rs("exploit1")%>">
<input type="submit" name="action" value="Modifier">
</form></TD>

Si ton form est sur la meme page :

Code :

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

1
2
3
4
 
if request("action") = "Modifier" then
   sql="Update .... "
end if

**D-D** · 07/06/2004, 14h29

merci mais quand je clique sur le bouton, cela me met une erreur, il ne trouve pas la page pourtant elle est correctement ecrite !!

voila mon code:

Code :

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

1
2
3
4
5
6
7
8
<TD> <form action="exploit_ER"  method="post"> 
<input SIZE=10 type="date" name="exploit1" value="<%=rs("exploit1")%>"> 
<input type="submit" name="action" value="Modifier"> 
</form></TD> 
 
<%if request("action") = "modifier" then 
   sql="Update Affaires" 
end if%>

**Crazyblinkgirl** · 07/06/2004, 14h47

C'est :

Code :

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

1
2
3
4
5
6
7
8
9
 
<TD> <form action="exploit_ER.asp"  method="post"> 
<input SIZE=10 type="date" name="exploit1" value="<%=rs("exploit1")%>"> 
<input type="submit" name="action" value="Modifier"> 
</form></TD> 
 
<%if request("action") = "Modifier" then 
   sql="Update Affaires set ...." 
end if%>

**D-D** · 07/06/2004, 14h55

merci ca a l'air de fonctionner mais je crois que ma requete SQL ne marche pas car la modification ne prend pas effet.

Code :

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

1
2
3
<%if request("action") = "Modifier" then 
   sql="Update Affaires set exploit1" 
end if%>

je veut mettre à jour le champ exploit1 de la table Affaires avec en tenant compte bien sur de la modification.

merci, c sympa de me decoincer

**Crazyblinkgirl** · 07/06/2004, 15h03

Oué ce que j'ai mis ce n'était que le début de la requete. Cela donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
<%if request("action") = "Modifier" then 
sql = "select * from Affaires where .... " 
set rs=createobject("adodb.recordset")
rs.open sql, conn, 3, 3
 
rs.movefirst
rs.fields("exploit1") =  request("exploit1") 
 
rs.update
rs.close
set rs= nothing 
end if%>

Dans le where tu mets une condition pour trouver le bon enregistrement

**D-D** · 07/06/2004, 15h12

voila, je fait une requete au debut pour tout selectionné en fonction de ma liste deroulante puis je rajoute le code; voici toute cette partie:

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
<!-- Selection des enregistrements pour la saisie -->
<%SQLQuery = "SELECT * FROM Affaires where [aff_no] = '" & request.form("aff_no") & "'" 
Set RS = conn.Execute(SQLQuery)%>
<%if rs.recordcount<>0 then%>	
 
<!-- affichage champ 1 -->
<b>champ exploitation numero 1 </b>
<TD> <form action="exploit_ER.asp"  method="post"> 
<input SIZE=10 type="date" name="exploit1" value="<%=rs("exploit1")%>"> 
<input type="submit" name="action" value="Modifier"> 
</form></TD> 
 
<%if request("action") = "Modifier" then 
sql = "select * from Affaires where [aff_no] = '" & request.form("aff_no") & "'"
set rs=createobject("adodb.recordset") 
rs.open sql, conn, 3, 3 
 
rs.movefirst 
rs.fields("exploit1") =  request("exploit1") 
 
rs.update 
rs.close 
set rs= nothing 
end if%>

cela ne modifie toujours pas

**Crazyblinkgirl** · 07/06/2004, 15h34

Code :

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

<%SQLQuery = "SELECT * FROM Affaires where aff_no= '" & request.form("aff_no") & "'"

aff_no c'est ton select?

**D-D** · 07/06/2004, 15h42

select??

aff_no, c'est le champ que j'utilise pour crer une liste deroulante et pour rechercher un enregistrement.
cela ne prend pas en compte ma modification

**Crazyblinkgirl** · 07/06/2004, 15h43

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
 
 
<!-- Selection des enregistrements pour la saisie --> 
<%SQLQuery = "SELECT * FROM Affaires where aff_no= '" & request.form("aff_no") & "'" 
Set RS = conn.Execute(SQLQuery)%> 
<%if rs.recordcount<>0 then%>    
 
<!-- affichage champ 1 --> 
<b>champ exploitation numero 1 </b> 
<TD> <form action="exploit_ER.asp"  method="post"> 
<input SIZE=10 type="date" name="exploit1" value="<%=rs("exploit1")%>"> 
<input type="submit" name="action" value="Modifier"> 
</form></TD> 
 
<%if request("action") = "Modifier" then 
sql = "select * from Affaires where aff_no= '" & request.form("aff_no") & "'" 
set rs=createobject("adodb.recordset") 
rs.open sql, conn, 3, 3 
 
rs.movefirst 
rs.fields("exploit1") =  request("exploit1") 
 
rs.update 
rs.close 
set rs= nothing 
end if%>

**D-D** · 07/06/2004, 16h16

cela ne marche toujours pas, je ne sais pas ce qui ce passe!!! je te donne toute la page si tu trouve une erreur, on c jamais. merci beaucoup

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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
 
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Driver={Microsoft ACCESS Driver (*.mdb)}; DBQ=" & Server.MapPath("regroupement.mdb") 
on error resume next
%>
 
<HTML>
<HEAD>
<LINK REL="stylesheet" HREF="css/style.css" TYPE="text/css">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<TITLE>Affaires ER</TITLE>
</HEAD>
<BODY BGCOLOR="#FFCC33">
<base target="droite">
 
<div align="center"><font size="+2"><font color="#990000">Rechercher une ER par son numéro GDT</font></font></div>
 
<BR>
<font color="#330066"><b>Pour saisir les informations relatives à l'exploitation, vous devez sélectioner une affaire</b></font>
 
<%if request.form("aff_no") = "" then %>
<form action="exploit_ER.asp" target="droite" method="post">
 
<!-- liste deroulante aff_no -->
<div align="center">
<TABLE border="1" bordercolordark="#66CC00">
	<tr>
		<td>Numéro d'affaire GDT</td>
		<td><%SQLQuery = "SELECT DISTINCT aff_no FROM Affaires" 
			Set RS = conn.Execute(SQLQuery)%>
			<select name="aff_no" size="">
			<option value=none>***</option>
			<% Do While Not RS.EOF %>
			<option value="<%= RS("aff_no")%>"><%= RS("aff_no")%></option>
			<%RS.MoveNext
			Loop%>
			<%rs.close%>
			<input type="submit" value="Recherche">
			</select>
		</td>
	</tr>	
</TABLE>
</div>
 
</form>
<%end if%>
<%if request.form("aff_no") <> "" then %>
 
<!-- affichage du numero d'affaire selectionné -->
<h3>Numéro : 
<%SQLQuery = "SELECT distinct aff_no FROM Affaires where [aff_no] = '" & request.form("aff_no") & "'" 
Set RS = conn.Execute(SQLQuery)%>
<% =rs("aff_no") %></h3>
<BR><br>
 
<!-- selection de l'enregistrement avec le numero selectionné -->
<%SQLQuery = "SELECT * FROM Affaires where [aff_no] = '" & request.form("aff_no") & "'" 
Set RS = conn.Execute(SQLQuery)%>
<%if rs.recordcount<>0 then%>	
 
<!-- résultats dans un tableau -->
<TABLE border="1" bordercolordark="#66CC00">	
	<THEAD>
		<TR>
			<TH>N° Affaire</TH>
			<TH>Libelle</TH>
			<TH>Commune</TH>
			<TH>Agent</TH>
			<TH>Exploit1</TH>
			<TH>Exploit2</TH>
			<TH>Exploit3</TH>
		</TH>
	</THEAD>
<% On Error Resume Next
rs.MoveFirst
do while Not rs.eof%>
	<TR>
		<TD><%=rs("aff_no")%></TD>
		<TD><%=rs("libelle")%></TD>
		<TD><%=rs("commune")%></TD>
		<TD><%=rs("agent")%></TD>
		<TD><%=rs("exploit1")%></TD>
		<TD><%=rs("exploit2")%></TD>
		<TD><%=rs("exploit3")%></TD>
 
	</TR>
<% rs.MoveNext
loop%>
</TABLE>
 
<!-- Selection des enregistrements pour la saisie --> 
<%SQLQuery = "SELECT * FROM Affaires where aff_no= '" & request.form("aff_no") & "'" 
Set RS = conn.Execute(SQLQuery)%> 
<%if rs.recordcount<>0 then%>    
 
<!-- affichage champ 1 --> 
<b>champ exploitation numero 1 </b> 
<TD> <form action="exploit_ER.asp"  method="post"> 
<input SIZE=10 type="date" name="exploit1" value="<%=rs("exploit1")%>"> 
<input type="submit" name="action" value="Modifier"> 
</form></TD> 
 
<%if request("action") = "Modifier" then 
sql = "select * from Affaires where aff_no= '" & request.form("aff_no") & "'" 
set rs=createobject("adodb.recordset") 
rs.open sql, conn, 3, 3 
 
rs.movefirst 
rs.fields("exploit1") =  request("exploit1") 
 
rs.update 
rs.close 
set rs= nothing 
end if%> 
 
<%end if%>
<%end if%>
<%end if%>
 
</BODY>
</HTML>

**Crazyblinkgirl** · 07/06/2004, 20h33

Quand tu fait ca pr la première fois, tu le recupère d'une autre page?

Code :

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

<%if request.form("aff_no") = "" then %>

Car comme c'est fait dans ton code si c'est vide alors tu fais le formulaire sinon non.

C'est juste ton update qui ne fonctionne pas ou il y a autre chose?

**D-D** · 08/06/2004, 09h30

oui, c'ets juste mon update qui ne marche pas, tout le reste marche !
ce qui ne marche pas c l'ecriture dans la table a partir du bouton modifier.
sinon, je récupère aff_no (le champ qui me permet de selectioner un enregistement) d'une autre page mais ca ca marche !

juste mon UPDATE !!!