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

**beegees** · 27/01/2006, 15h26

Bonjour le forum,

On m'a demandé de créer un site qui permettrait aux différents Professeur d'entrer leur cote via un site web.

J'ai donc choisi l'ASP 3 pour le faire.

J'ai commencé à travailler là dessus et maintenant que j'avance un petit peu (je remercie pc75 et les autres pour leur aide) je me pose une question :

J'aurai un tableau constitué de deux collones et une centaine de ligne.

Les deux collones seront th (théorie) et tp (travaux pratiques).

Chaque lignes corresprond chacune à un étudiant différent.

Cette page sera liée à une base de donnée access.

La quesiton que je me pose est la suivante :

Si j'ai un tableau avec 100 lignes, je dois donc permettre aux Professeurs d'introduire leur cotes via un élément de formulaire comme la zone de texte...

Mais si j'ai 100 étudiants, dois-je créer 100 champs dans ma table access et dans mon formulaire web ?

exemple

pour renaud séchan cote th tp et pour zazie cote th et tp

Dois-je créer quatre zones de texte différentes (2 pour th et 2 pour tp et ce pour les deux étudiants) et les mettre dans un tableau ?

Si c'est le cas, j'aurai pour 100 étudiant 200 Zones de listes, ça deviendra vite ingérable.

J'espère que je m'explique bien.

Voici un tableau qui pourrait être rempli via le web, les résultat iraient se mettre dans une table, est-ce possible, les cellules sont non modifiables car c'est un tableau, mais devrais-je alors mettre une zone de texte par carré et leur donné un nom différent à chaque fois ? (c'est un exemple que je donne pour ma demande de ce post).

http://164.15.112.38/delibes/chanteur.asp

Merci d'avance pour l'aide et la lumière que vous m'apporterez.

bgs

**pc75** · 27/01/2006, 15h39

Bonjour,

Une question : J'imagine que pour un étudiant, il peut y avoir plusieurs notes par discipline ?

**beegees** · 27/01/2006, 15h43

Envoyé par pc75

Bonjour,

Une question : J'imagine que pour un étudiant, il peut y avoir plusieurs notes par discipline ?

Bonjour PC75,

Heureux de t'entendre,

Le Professeur ne verra que son cours et il ne pourra introduire que les cote pour lesquels il a donné cours.

Par contre, l'étudiant a plusieurs cours et donc plusieurs notes (en th comme en tp).

J'espère que c'est possible.

Merci pour tout

Bgs

**pc75** · 27/01/2006, 16h07

Re,

Si un professeur ne donne qu'un type de cours, je verrai la base de données comme ça :

Table des prof
id_prof (pk)
nom_prof

Table des étudiants
id_etudiant (pk)
nom_etudiant

Table des notes
id_prof (pk)
id_etudiant (pk)
date_notes (pk)
note_th
note_pr

**beegees** · 27/01/2006, 16h16

Envoyé par pc75

Re,

Si un professeur ne donne qu'un type de cours, je verrai la base de données comme ça :

Table des prof
id_prof (pk)
nom_prof

Table des étudiants
id_etudiant (pk)
nom_etudiant

Table des notes
id_prof (pk)
id_etudiant (pk)
date_notes (pk)
note_th
note_pr

Re-salut,

Un super grand merci pour ta réponse.

Cela limiterait le nombre de champs dans le formulaire alors ?

Je ne comprends pas bien pourquoi tu crées trois tables.

Cela ne te dérangerais pas de me donner un peu plus d'explications sur ce que tu as écrit.

Je te prie de m'excuser.

Merci d'avance pour ton aide.

bgs

**beegees** · 27/01/2006, 16h23

Envoyé par pc75

Re,

Si un professeur ne donne qu'un type de cours, je verrai la base de données comme ça :

Table des prof
id_prof (pk)
nom_prof

Table des étudiants
id_etudiant (pk)
nom_etudiant

Table des notes
id_prof (pk)
id_etudiant (pk)
date_notes (pk)
note_th
note_pr

Resalut,

Quand le Professeur se connectera sur l'adresse du site de délibés il devrai voir un tableau avec le numéro de l'étudiant, le nom et le prénom et à côté de ces deux collonnes, une collone TH et une autre TP.

Il faut donc que le tableau soit éditable qu'on puisse y entrer des données.

Par contre, les deux premières collones du tableau pourraient ne pas être éditable, car c'est le numéro et le nom des étudiants.

Ensuite, chaque cote entrée dans se mettre au bon endroit dans la table.

Exemple :

Numéro Nom/Prénom Th TP
123456 Renaud Séchan 15 18

Comment dire à Access qu'il doit mettre le 15 dans le TH du numéro 123456 ?

Merci pour tout.

bgs

**pc75** · 27/01/2006, 16h27

Re,

Access est un SGBDR (R=relationnelle). Donc dans les tables prof et étudiants, tu enregistres une fois et une seule les noms (plus les prénoms, les adresses ou les ages ...). Chaque nom étant identifié par un code unique (id_prof par exemple).

Dans la table des notes, tu stockes les identifiants du prof et de l'étudiant, la date du cours et les notes.

Cela évite, notamment qu'une note soit saisie pour le prof DUPONT à une date, et que pour le même prof, une saisie soit faite avec une erreur, par exemple on saisit DUPOND au lieu de DUPONT.

Ca donnerait un truc de ce genre :

Table profs
id_prof / nom_prof
1 / DUPONT
2 / LEGRAND

Table étudiants
id_etudiant / nom_etudiant
1 / TOTO
2 / TITI

Table des notes
id_prof / id_etudiant / date_notes / note_th / note_pr
1 / 1 / 27/01/2006 / 12 / 9
1 / 2 / 27/01/2006 / 8 / 16
2 / 1 / 17/01/2006 / 4 / 11
2 / 2 / 17/01/2006 / 18 / 12

**beegees** · 27/01/2006, 16h31

Envoyé par pc75

Re,

Access est un SGBDR (R=relationnelle). Donc dans les tables prof et étudiants, tu enregistres une fois et une seule les noms (plus les prénoms, les adresses ou les ages ...). Chaque nom étant identifié par un code unique (id_prof par exemple).

Dans la table des notes, tu stockes les identifiants du prof et de l'étudiant, la date du cours et les notes.

Cela évite, notamment qu'une note soit saisie pour le prof DUPONT à une date, et que pour le même prof, une saisie soit faite avec une erreur, par exemple on saisit DUPOND au lieu de DUPONT.

Ca donnerait un truc de ce genre :

Table profs
id_prof / nom_prof
1 / DUPONT
2 / LEGRAND

Table étudiants
id_etudiant / nom_etudiant
1 / TOTO
2 / TITI

Table des notes
id_prof / id_etudiant / date_notes / note_th / note_pr
1 / 1 / 27/01/2006 / 12 / 9
1 / 2 / 27/01/2006 / 8 / 16
2 / 1 / 17/01/2006 / 4 / 11
2 / 2 / 17/01/2006 / 18 / 12

Re-salut,

Merci pour ton aide.

Le problème est qu'ils ne pourront pas entrer les données via une table access (physique) mais via un formulaire.

le 12 et le 9 que tu indiques devront être introduit via le web.

Tu penses que c'est possible ?

Merci encore.

bgs

**pc75** · 27/01/2006, 16h38

Re,

OUI, c'est possible.

Dans ta page web, il faudra que tu fasses une boucle pour afficher les étudiants et des zones de saisie que tu pourras récupérer et enregistrer dans le base de données.

Si tu veux, on reprend lundi (je dois partir).

**beegees** · 27/01/2006, 16h39

Envoyé par pc75

Re,

OUI, c'est possible.

Dans ta page web, il faudra que tu fasses une boucle pour afficher les étudiants et des zones de saisie que tu pourras récupérer et enregistrer dans le base de données.

Si tu veux, on reprend lundi (je dois partir).

Je suis déjà heureux de lire ton OUI.

On reprend lundi alors, passe un très bon Week-End.

Je me permet de laisser une URL qui vous montre un peu ce que j'aimerais faire.

Mettre une cote pour Anton anna qui porte le numéro 123 et que cette cote s'ajoute dans la table toxi016ths1 et pour le bon étudiant (Anton).

URL : http://164.15.112.38/delibes/TOXI016S1.asp

C'est déjà une petite avance pour lundi.
Merci

bgs

à lundi
bgs

**beegees** · 30/01/2006, 14h42

Salut PC75, salut tout le monde,

J'essaye depuis ce matin de pouvoir enregistrer des cotes dans une tables mais cela ne fonctionne pas.

J'ai créé un site de test http://164.15.112.38/delibes/chanteur.asp

Quand je met une cote et que j'appuie sur le bouton il me donner une erreur 500. Erreur interne du serveur.

La page "Chanteur" contient ce code : (les données dans la base de données apparaissent et s'ajoute si je fais une mise à jour manuelle directement dans la base)

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
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Response.Buffer = False%>
<!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 cnn
dim rst
set cnn = server.createobject("ADODB.connection")
cnn.open "DSN=delibes"
 
set rst = server.CreateObject("ADODB.recordset")
rst.open  "select * FROM [chanteur];",cnn 
 
rst.movefirst
while not rst.EOF
%>
<td><table width="80%" border="1">
  <tr>
    <td width="23%"><%response.Write rst("nom")%></td>
    <td width="77%"><div align="center">
      <input name="txtun" type="text" id="txtun" size="4" />
    </div></td>
    <td width="77%"><div align="center">
      <input name="txtdeux" type="text" id="txtdeux" size="4" />
    </div></td>
  </tr>
</table></td>
<p>
  <%
	rst.movenext
wend
%>
</p>
<p>&nbsp;</p>
<form id="form1" name="form1" method="post" action="recupchanteur.asp">
  <div align="center">
    <input type="submit" name="Submit" value="Envoyer" />
  </div>
</form>
<p align="center">&nbsp;</p>
</body>
</html>

et le bouton pointe vers un document asp qui se nome recupchanteur.asp dont voici le code :

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
<%@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>
<p>
<% 
dim cnn
dim rst
set cnn = server.CreateObject("ADODB.CONNECTION")
cnn.open = "delibes"
set rst = server.CreateObject("ADODB.RECORDSET")
rst.open  "select * FROM [chanteur];"cnn, 2,2
rst.movefirst
while not rst.eof
rst("guitare") = request.form("txtun")
rst("chant") = request.form("txtdeux")
rst.movenext
wend
rst.update
 
rst.close
set rst = nothing
cnn.close
set cnn = nothing
%>
  </p>
<p>&nbsp;</p>
<p>Mise à jour effectuée </p>
</body>
</html>

Est-ce que vous voyez quelque chose qui pourrait provoquer une erreur 500 ?

Merci d'avance pour votre aide.

bgs

**pc75** · 30/01/2006, 15h01

Re,

Quand tu fais ça :

<%
dim cnn
dim rst
set cnn = server.CreateObject("ADODB.CONNECTION")
cnn.open = "delibes"
set rst = server.CreateObject("ADODB.RECORDSET")
rst.open "select * FROM [chanteur];"cnn, 2,2
rst.movefirst
while not rst.eof
rst("guitare") = request.form("txtun")
rst("chant") = request.form("txtdeux")
rst.movenext
wend
rst.update

rst.close
set rst = nothing
cnn.close
set cnn = nothing
%>

Tu veux faire une insertion ou une mise à jour des données ?

**beegees** · 30/01/2006, 15h05

Envoyé par pc75

Re,

Quand tu fais ça :

<%
dim cnn
dim rst
set cnn = server.CreateObject("ADODB.CONNECTION")
cnn.open = "delibes"
set rst = server.CreateObject("ADODB.RECORDSET")
rst.open "select * FROM [chanteur];"cnn, 2,2
rst.movefirst
while not rst.eof
rst("guitare") = request.form("txtun")
rst("chant") = request.form("txtdeux")
rst.movenext
wend
rst.update

rst.close
set rst = nothing
cnn.close
set cnn = nothing
%>

Tu veux faire une insertion ou une mise à jour des données ?

Salut PC75,

L'un ou l'autre.

si une donnée existe déjà, elle apparait sur la feuille (car dans la valeur initiale de la zone de texte j'ai mis <% =rst("guitare")%> et la je l'a change autrement si il n'y a rien, j'en ajoute une et ça devrait se mettre ) jour mais ce n'est pas le cas.

Je ne comprend pas pourquoi cette erreur 500.

Merci
bgs

**pc75** · 30/01/2006, 15h20

Re,

Quand tu dis que ça plante quend tu mets une cote, ça veut dire, par exemple, que si tu saisis "l'artiste", tu as une erreur ?

Si c'est ça, il faut doubler les cotes

Code :

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

1
2
 
rst("guitare") = Replacerequest.form("txtun"), "'", "''")

**beegees** · 30/01/2006, 15h28

Envoyé par pc75

Re,

Quand tu dis que ça plante quend tu mets une cote, ça veut dire, par exemple, que si tu saisis "l'artiste", tu as une erreur ?

Si c'est ça, il faut doubler les cotes

Code :

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

1
2
 
rst("guitare") = Replacerequest.form("txtun"), "'", "''")

Re-salut,

Merci pour le temps que tu me consacre.

ça avance un petit peu.

Quand j'essaie de mettre une cote dans une case blanche que tu peux voir ici http://164.15.112.38/delibes/chanteur.asp, j'appuie sur le bouton.

Il ouvre bien la page en mettant "table mise à jour" sur la page asp mais rien n'y est écrit dans la table access.

J'ai un peu minimizé le code pour tester, le voici :

Qu'en penses-tu ?

Merci

bgs

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
<%@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 cnn
dim rst
set cnn = server.CreateObject("ADODB.CONNECTION")
cnn.open = "delibes"
set rst = server.CreateObject("ADODB.RECORDSET")
rst.open  "select * FROM [chanteur];",cnn,2,2
rst.movefirst
'while not rst.eof
with request
rst("guitare") = .form("txtun")
rst("chant") = .form("txtdeux")
end with
'rst.movenext
'wend
rst.update
'rst.close
'set rst = nothing
'cnn.close
'set cnn = nothing
 
%>
<p>&nbsp;</p>
<p>Mise à jour effectuée </p>
</body>
</html>

**pc75** · 30/01/2006, 15h38

Re,

Personnellement, pour mettre à jour des données (création ou mise à jour), je n'utilise pas de recordset mais une requête INSERT ou UPDATE.
Je n'utilise un recordset que quand je veux récupérer des données (requête SELECT).

Dans ton code, tu fais un select * from ..... et ensuite, tu boucles sur ton recordset pour faire des mises à jour. Là, je ne saisis pas trop ce que tu essaies de faire ?

**beegees** · 30/01/2006, 15h43

Envoyé par pc75

Re,

Personnellement, pour mettre à jour des données (création ou mise à jour), je n'utilise pas de recordset mais une requête INSERT ou UPDATE.
Je n'utilise un recordset que quand je veux récupérer des données (requête SELECT).

Dans ton code, tu fais un select * from ..... et ensuite, tu boucles sur ton recordset pour faire des mises à jour. Là, je ne saisis pas trop ce que tu essaies de faire ?

re,

J'essaie simplement de mettre des cotes dans les zones de texte qui se trouve dans cette feuille http://164.15.112.38/delibes/chanteur.asp et en cliquant sur le bouton, les entrer dans une table de ma base de données.

Que ça soit avec SQL ou ADO.

J'ai mis "Modification" pour tout le monde dans les autorisations.

Je ne pensais pas rencontrer autant de difficultées.

Merci pour tout.

bgs

**pc75** · 30/01/2006, 15h52

Re,

Pour être clair :

Tu veux saisir un texte contenant une cote, et tu veux que cette valeur soit enregistrée dans ta table ?

PS : Donne un exemple du texte que tu veux saisir et enregistrer.

**beegees** · 30/01/2006, 15h52

Envoyé par pc75

Re,

Pour être clair :

Tu veux saisir un texte contenant une cote, et tu veux que cette valeur soit enregistrée dans ta table ?

PS : Donne un exemple du texte que tu veux saisir et enregistrer.

Oui c'est ça

exemple

20

Merci
bgs

**pc75** · 30/01/2006, 16h21

Re,

OK.

Dans ta page de saisie, il faut que tu puisses identifier les notes en regard des chanteurs.
Le première des choses à faire est donc de construite cette page correctement.
Un exemple : (on suppose que la table chanteur contien nom_chanteur, guitare, chant.)

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
 
mysql = "select * FROM chanteur"
set rst= Server.CreateObject("ADODB.Recordset")
rst.cursorlocation = aduseclient
rst.cachesize = 5
rst.open mysql, "delibes"
%>
<form name="frmSaisie" method="post" action>
<input type="hidden" name="txtCompteur">
<%
if not rstemp.EOF then
rstemp.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>
   <input type="text" name="txtGuitare<%=Str_Compteur%>" title="Modifier" value="<%=rst("guitare")%>">
   </td>
 
   <td>
   <input type="text" name="txtChant<%=Str_Compteur%>" title="Modifier" value="<%=rst("chant")%>">
   </td>
 
   </tr>
   <%
   rst.MoveNext
loop
%>
</table>
<%
end if
rstemp.Close
set rstemp = Nothing
%>
</form>

Si tu affiches la source de la page générée, tu verras qu'aucune zone ne porte le même nom. Ainsi, en récupérant la valeur de la variable Str_Compteur, tu peux récupérer les zones saisies en fonction du chanteur.

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

ASP

Discussions similaires

Partager

Partager