Enquête - base Access

**wanou44** · 28/03/2006, 17h16

On m'a demandé récemment d'établir un script pour une enquête médicale.
L'enquête sera composé de champs libres (comme nom/prénom) et de boutons radios (souvent oui/non).

Les conditions qui se posent, c'est qu'il doit être en ASP (le PHP n'est pas supporté par le serveur) relié à une base Access (pas de sql car le serveur intranet ne le supporte pas).

J'aimerais donc qu'une personne renseigne les champs de l'enquête, clique sur un bouton (ex. : Envoyer) et que ces données s'enregistrent dans une base Access.
Par la suite, le médecin pourra consulter d'un côté le traitement globale (% de certains résultats si possible sous forme graphique) et de l'autre, les réponses qu'ont rentrées chaque personne (une fiche pour une personne, en clair l'enquête mais avec les champs remplies).

Le problème, c'est que j'ai très peu de connaissances en ASP et je n'arrive pas à savoir par où commencer mon programme.

Merci d'avance de votre aide.

**K_!!!** · 29/03/2006, 11h27

Bonjour,

Pour commencer tu peux deja faire ton formulaire, ensuite etablir une connexion avec la base de donnee dans laquelle tu vas enregistrer les reponses...

en fait tu en es ou pour l'instant ?

**wanou44** · 29/03/2006, 11h33

Pour l'instant, je viens de faire le formulaire en dur. C'est à dire que dans mon fichier (html pour l'instant), j'ai fait un formulaire avec les questions directement isncrites dedans.

Le problème, c'est qu'on vient de me dire qu'il fallait que j'envisage le futur. C'est à dire que si quelqu'un d'autre me demande un formulaire du même style, je dois pouvoir le faire vite fait sans trop de changement.

Il faudrait que je stock dans ma base Access les questions et les réponses. Mais je ne sais pas comment afficher les questions que je stock dans ma base Access.
De plus, comment stocker les questions oui/non et celles à champ libre ?

**K_!!!** · 29/03/2006, 12h03

re,

tu peux faire dans ta base une table que tu remplis avec tes questions,
apres pour les afficher, une fois la connexion avec la base etablie, et ton recordset cree, tu peux pour recuperer tes questions faire par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
<table>
 
rs.movefirst
Do while rs.eof
response.write ("<tr>")
response.write ("<td>" & rs("champsquestion") & "</td>")
response.write ("<td><input type='text'></td>")
response.write ("</tr>")
rs.movenext
loop
</table>

cela fera une loop dans la table concernee et pour chaque enregistrement present dans cette table, creera une ligne composee d'une question et d'un champs texte pour les reponses. C 'est un exemple, il faut l'adapter...

je ne peux egalement que te conseiller de regarder ce tutoriel vraiment utile :
tutoriel asp

http://florian.developpez.com/asp/

info concernant les connexions
http://www.developpez.net/forums/vie...onnexion<br />

apres n'hesites pas a poser des questions si tu as des problemes

**wanou44** · 29/03/2006, 12h49

Si je comprends bien, le nom :

Code :

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

champsquestion

correspond au nom du champ où je mets mes questions.

Et ça affiche à chaque fois dans une autre ligne de mon tableau, les questions de ma base Access. Et les réponses seront toutes des champs libres.
Le problème, c'est qu'après je veux analyser ces réponses automatiquement donc si la réponse n'est pas comme je voulais, ça plante mon analyse.

Donc comment je pourrais faire, pour certaines de mes questions, mettre un bouton radio comme solution de réponse ?

**K_!!!** · 29/03/2006, 13h08

re,

c pour ca que ce n'etait qu'un exemple

ben sinon dans ta table question, tu peux mettre une colonne qui decidera quel type de reponse est mis en relation avec la question, comme par exemple :

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
 
 
pour la base access : 
 
questions  || typereponse   ||
-------------------------------
-------------------------------
ques1      || typetexte     ||
--------------------------------
ques2      || typeradio     ||
 
etc....
 
 
et pour le code de la page :
<table> 
 
rs.movefirst 
Do while rs.eof 
response.write ("<tr>") 
response.write ("<td>" & rs("champsquestion") & "</td>") 
 
If rs("typedereponse") = "typetexte" THEN
response.write ("<td><input type='text'></td>") 
ELSE
response.write ("<td><input type='radio' name ='reponse'></td>") 
END IF 
response.write ("</tr>") 
rs.movenext 
loop 
</table>

**wanou44** · 29/03/2006, 13h14

Merci beaucoup, je vais déjà essayé tout ça.
J'aurais sûrement d'autres questions qui arriveront par la suite.

Ah si une dernière : pour enregistrer les réponses à ces questions dans la même base mais dans une table différente biensûr, comment je peux préparer le terrain ?
Je sais qu'en html, il faut une action au formulaire (du style traitement.asp) quand on fait Envoyer pour traiter les données.
Mais là comme les questions sont générées automatiquement, comment je peux savoir à quelle question correspond quelle réponse ?

**K_!!!** · 29/03/2006, 14h11

re,

tes questions doivent avoir un identifiant unique (ID) dans la base access.

il faudra donc que les champs dans lesquels seront rentres les reponses y fassent reference

par exemple :

Code :

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

1
2
 
response.write("<input type ='text' id ='"& rs("idquestion")&"' />")

pour ce qui est du traitement, ton formulaire devra est etre :

Code :

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

1
2
 
<form name='unnom' method='post'>

il faudra apres faire un INSERT INTO dans la table ciblee, tu auras donc dans ta table par exemple "reponse" :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
refquestion || reponse ||
-----------------------------
-----------------------------
idques1    || reponse 1       
------------------------------
idques2    ||reponse   2       
 
etc...

**wanou44** · 29/03/2006, 14h44

Bon je viens d'essayer mais on me retourner une erreur sûrement à cause du fichier de connexion mais je ne trouve pas l'erreur.

Voici mon fichier de connexion :

Code :

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

1
2
3
4
5
6
7
8
 
<%
dbPath = Server.MapPath("sommeil.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Set rstAutorisation = Server.CreateObject("ADODB.Recordset")
MM_data_STRING = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=F:\Data\web-150.35.44.3\API_recette\fr\basseIndre\InformationsPratiques\reservation\sommeil\sommeil.mdb;Persist Security Info=False"
Conn.Open = MM_data_STRING
%>

Et voici mon code ASP :

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
 
<!-- #include file="connexion.asp" -->
<%
 
sql = "SELECT * FROM questions "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn,3,3
 
%>
 
<html>
<head>
<title>Le Sommeil</title>
</head>
 
<body>
 
 
<table>
<%
rs.movefirst
Do while rs.eof
response.write ("<tr>")
response.write ("<td>" & rs("Questions") & "</td>")
 
If rs("Type") = "texte" THEN
response.write ("<td><input type='text'></td>")
ELSE
response.write ("<td><input type='radio' name ='reponse'></td>")
END IF
response.write ("</tr>")
rs.movenext
loop
%>
 
</table>
 
</body>
</html>

Voyez-vous d'où vient l'erreur ?

**wanou44** · 29/03/2006, 14h50

Ah et voici l'erreur :

Code :

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

1
2
3
4
5
6
 
Microsoft JET Database Engine error '80004005' 
 
The Microsoft Jet database engine cannot open the file 'F:\Data\web-150.35.44.3\API_recette\fr\basseIndre\InformationsPratiques\reservation\sommeil\sommeil.mdb'. It is already opened exclusively by another user, or you need permission to view its data. 
 
/fr/basseIndre/InformationsPratiques/reservation/sommeil/connexion.asp, line 6

**K_!!!** · 29/03/2006, 14h51

re,

Et comme ca ? :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
<% 
dbPath = Server.MapPath("sommeil.mdb") 
Set Conn = Server.CreateObject("ADODB.Connection") 
Set rstAutorisation = Server.CreateObject("ADODB.Recordset")
 
MM_data_STRING = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & dbpath & " ;"
 
Conn.Open = MM_data_STRING 
%>

**wanou44** · 29/03/2006, 14h54

Nan pas mieux, maintenant il me dit que ça vient de la ligne 11.
J'ai déjà eu des problèmes comme ça. Ca venait de la base Access qui était sécurisée, mais là j'ai mis aucune sécurité.

**K_!!!** · 29/03/2006, 15h02

re,

voici des infos, peut etre que cela va t'aider
http://support.microsoft.com/kb/306269/fr

**wanou44** · 29/03/2006, 15h22

Le problème est que je n'ai pas accès au serveur donc impossible de faire certaines des résolutions.
J'ai mis "Contrôle total" sur le dossier où se trouve mes fichiers. Je n'ai plus d'erreur mais j'ai une page blanche maintenant.

**K_!!!** · 29/03/2006, 15h27

quand tu regardes la source de ta page, il y a quoi dedans ?

**wanou44** · 29/03/2006, 15h30

Seulement ç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
 
<html>
<head>
<title>Le Sommeil</title>
</head>
 
<body>
 
<form name='sommeil' method='post'>
<table>
 
 
</table>
</form>
 
</body>
</html>

**K_!!!** · 29/03/2006, 15h45

et en changeant

Code :

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

1
2
3
4
 
sql = "SELECT * FROM questions " 
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.open sql, conn,3,3

par :

Code :

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

1
2
3
4
 
sql = "SELECT * FROM questions " 
Set rs = Server.CreateObject("ADODB.Recordset") 
set rs = conn.execute (sql)

??

**wanou44** · 29/03/2006, 16h01

J'ai changer ce que tu m'as dit, et je vois juste des zones de texte et des boutons radios.

Par contre, j'ai changé aussi un peu le bout de code que tu m'avais passé pour la boucle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
<%
rs.movefirst
Do while not rs.eof
If rs("Type") = "texte" THEN
response.write ("<td><input type='text'></td>")
ELSE
response.write ("<td><input type='radio' name ='reponse'></td>")
END IF
response.write ("</tr>")
rs.movenext
loop
%>

[/code]

**K_!!!** · 29/03/2006, 16h07

ok mais tu n'affiches pas la question en fait. tu as enleve

Code :

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

1
2
 
response.write ("<td>" & rs("Questions") & "</td>")

??

en fait la normalement, il doit t'afficher autant de lignes que tu as d'enregistrements dans ta base, mais si tu n'afiches pas le texte correspondant...

**wanou44** · 29/03/2006, 16h11

J'ai réussi à afficher ce que je voulais.
J'ai ma question et à côté le type de réponse.

Maintenant, je voudrais savoir, pour les boutons radios, j'ai souvent 2 réponses au choix. Comment afficher ces choix ? Je pense rajouter une colonne dans ma base Access avec les choix possibles mais comment les afficher si nécessaire ?

Enquête - base Access

ASP

Discussions similaires

Partager

Partager