[ASP3] j'aimerais remplir une table access via le web

**pc75** · 01/02/2006, 15h10

Re,

Essaie ç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
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
 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<title>Document sans titre</title> 
</head> 
 
<body> 
<% 
 
dim rst 
dim cnn 
set cnn = server.CreateObject("ADODB.CONNECTION") 
set rst= Server.CreateObject("ADODB.Recordset") 
cnn.open "delibes" 
'rst.cursorlocation = aduseclient 
rst.cachesize = 5 
mysql = "select * FROM  chanteur" 
rst.open mysql, "delibes" 
%> 
<form name="frmSaisie" method="post" action="recupchanteurpc75.asp?Str_NbLignes=<%=Str_Compteur %>">  
<input type="hidden" name="txtCompteur"> 
<% 
if not rst.EOF then 
rst.movefirst 
%> 
<table align="center" border="1" width="100%"> 
<% 
Str_Compteur = 0 
DO while not rst.EOF 
   Str_Compteur = Str_Compteur + 1 
   ' Gestion de la couleur de la ligne 
   If Bln_Row_Color Then 
      Str_Row_Color = "#BAE2E3" 
   Else 
      Str_Row_Color = "" 
   End If 
   ' Affectation du complément pour changer la couleur de la prochaine ligne 
   Bln_Row_Color = Not Bln_Row_Color 
   %> 
   <tr BGCOLOR="<%=Str_Row_Color %>"> 
 
   <td> 
   <font face="Arial" color="#0099CC" size="3"> 
   <strong> 
   <%=rst("nom_chanteur")%> 
   <input type="hidden" name="txtChanteur<%=Str_Compteur%>"  value="<%=rst("nom_chanteur")%>"> 
   </strong> 
   </font> 
   </td> 
 
   <td> 
     <div align="center"> 
       <input type="text" name="txtGuitare<%=Str_Compteur%>" title="Modifier" value="<%=rst("guitare")%>"> 
       </div></td> 
 
   <td> 
     <div align="center"> 
       <input type="text" name="txtChant<%=Str_Compteur%>" title="Modifier" value="<%=rst("chant")%>"> 
       </div></td> 
 
   </tr> 
   <% 
   rst.MoveNext 
loop 
%> 
</table> 
<div align="center"> 
  <p align="left"> 
    <% 
end if 
rst.Close 
set rst = Nothing 
%> 
  </p> 
  <p>&nbsp;</p> 
  <p>&nbsp;</p> 
</div> 
 
<p align="center">&nbsp;</p> 
  <div align="center"> 
    <input type="submit" name="Submit" value="Envoyer"> 
  </div> 
</form> 
<p align="center">&nbsp;</p> 
</body> 
</html>

**beegees** · 01/02/2006, 15h18

Resalut,

Avec ton nouveau code il n'y pas d'erreur, pas de mise à jour de la table MAIS l'URL est différente :

http://164.15.112.38/delibes/recupch...?Str_NbLignes=

Il marque pas la valeur de la variable, c'est peut être ça qui cloche ?

Et quand je fais un response.write txtSQL ça donne rien.

Mon formulaire était mal fait, j'avais mis deux formulaire différent, un pour le champs, l'autre pour le bouton.

Merci pour tout.

bgs

**pc75** · 01/02/2006, 15h29

Re,

Autant pour moi. Il faut stocker le nombre de lignes dans un champ caché du formulaire.

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
 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<title>Document sans titre</title> 
</head> 
 
<body> 
<% 
 
dim rst 
dim cnn 
set cnn = server.CreateObject("ADODB.CONNECTION") 
set rst= Server.CreateObject("ADODB.Recordset") 
cnn.open "delibes" 
'rst.cursorlocation = aduseclient 
rst.cachesize = 5 
mysql = "select * FROM  chanteur" 
rst.open mysql, "delibes" 
%> 
<form name="frmSaisie" method="post" action="recupchanteurpc75.asp">  
<input type="hidden" name="txtCompteur"> 
<% 
if not rst.EOF then 
rst.movefirst 
%> 
<table align="center" border="1" width="100%"> 
<% 
Str_Compteur = 0 
DO while not rst.EOF 
   Str_Compteur = Str_Compteur + 1 
   ' Gestion de la couleur de la ligne 
   If Bln_Row_Color Then 
      Str_Row_Color = "#BAE2E3" 
   Else 
      Str_Row_Color = "" 
   End If 
   ' Affectation du complément pour changer la couleur de la prochaine ligne 
   Bln_Row_Color = Not Bln_Row_Color 
   %> 
   <tr BGCOLOR="<%=Str_Row_Color %>"> 
 
   <td> 
   <font face="Arial" color="#0099CC" size="3"> 
   <strong> 
   <%=rst("nom_chanteur")%> 
   <input type="hidden" name="txtChanteur<%=Str_Compteur%>"  value="<%=rst("nom_chanteur")%>"> 
   </strong> 
   </font> 
   </td> 
 
   <td> 
     <div align="center"> 
       <input type="text" name="txtGuitare<%=Str_Compteur%>" title="Modifier" value="<%=rst("guitare")%>"> 
       </div></td> 
 
   <td> 
     <div align="center"> 
       <input type="text" name="txtChant<%=Str_Compteur%>" title="Modifier" value="<%=rst("chant")%>"> 
       </div></td> 
 
   </tr> 
   <% 
   rst.MoveNext 
loop 
%> 
</table> 
<div align="center"> 
  <p align="left"> 
    <% 
end if 
rst.Close 
set rst = Nothing 
%> 
  </p> 
  <p>&nbsp;</p> 
  <p>&nbsp;</p> 
</div> 
 
<input type="hidden" name="NbLignes" value=<%=Str_Compteur %>>
 
<p align="center">&nbsp;</p> 
  <div align="center"> 
    <input type="submit" name="Submit" value="Envoyer"> 
  </div> 
</form> 
<p align="center">&nbsp;</p> 
</body> 
</html>

Et dans ta page de récup, tu récupères le nombre de lignes avec :

Code :

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

1
2
 
Str_NbLignes=request.form("NbLignes")

**beegees** · 01/02/2006, 15h42

Je n'en crois pas mes yeux, ça fonctionne !!!!

Tu es le meilleur !!

Tu es très patient et très généreux !

Merci !

Je t'envois un Message Privé !

Merci encore pour tout ce que tu as fait !

Bgs

[ASP3] j'aimerais remplir une table access via le web

ASP

Discussions similaires

Partager

Partager