récupération de valeur d'une requete avec recordset

**tribaleur** · 02/06/2006, 13h51

J'ai une table "T_question".
Dans cette table il y à les champs "num_quest" et "intitule_quest".
Je créer une requete sql

Code :

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

mysql="select*from T_question"

Je l'éxecut avec l'objet RS (recordset)que j'ai créer au préalable.

Je voudrait faire une boucle "while" dans la quelle je veut récupérer à chaque fois les valeur de "num_quest" et "intitule_quest" de la ligne.
Exemple

Code :

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

1
2
3
4
while RS.eof
' commande qui me récupère la valeur de num_quest de la ligne de ma table à la quelle on est dans la boucle
' commande qui me récupère la valeur de intitulé_quest de la ligne de ma table à la quelle on est dans la boucle
wend

Est-ce que quelqu'un connait les commandes qui me permettraient de récuprer ces valeurs.
Je pensai utilisé quelque chose comme RS("num_quest").
Est-ce que c'est possible???
Merci d'avance.

**vanou** · 02/06/2006, 14h07

Je viens juste de commencer a apprendre le langage mais je ferai comme ca!

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
mysql="select*from T_question"   
   rs.open mysql
 
	response.write "<table border bordercolor=#000000 cellpadding=2>"
	response.write"<tr>"
	response.write "<th>Num question</th>"
	response.write"<th>Intitulé</th>"
	response.write"</tr>"
 
do while not rs.eof	
	response.write "<tr align=center>"
	response.write "<td>"
	response.write rs("num_quest")
	response.write "</td>"
	response.write "<td>"
	response.write rs("intitule_quest")
	response.write"</td>"
	response.write "</tr>"
	rs.MoveNext	
loop
response.write "</table>"
 
rs.close

**phoenix1998** · 02/06/2006, 14h17

pour recuperer la valeur d'un recordset, tu fais Rs.fields("num_quest").value pareil pour intitule_quest

**vanou** · 02/06/2006, 14h19

ca change quoi entre rs("num_quest") et Rs.fields("num_quest")

**Phiss** · 02/06/2006, 14h22

En effet c'est comme cela que j'aurias fait aussi.
Du moisn plus comme ci dessous.
(mois de ligne et une vison de la table si tu visualise ta page en mode création...)

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
 
 
<table border bordercolor=#000000 cellpadding=2>
	<tr>
	<th>Num question</th>
	<th>Intitulé</th>
	</tr>
	<%
	mysql="select*from T_question"   
	rs.open mysql
	do while not rs.eof	
		response.write "<tr align=center>"
		response.write "<td>"&rs("num_quest")&"</td>"
		response.write "<td>"&rs("intitule_quest")&"</td>"
		response.write "</tr>"
		rs.MoveNext	
	loop
	rs.close
	%>
</table>

**vanou** · 02/06/2006, 14h26

Oui mais ca donne la mm chose

**tribaleur** · 02/06/2006, 14h27

Je pige pas voici mon 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
<html>
<body>
<%
 DSN_BASE = "DBQ="& Server.Mappath(enquete.mdb) &";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
  Set Conn = Server.CreateObject("ADODB.Connection")
   Conn.Open DSN_BASE
  Set RS = Server.CreateObject("ADODB.Recordset")
 
mysql="select * from T_question"
RS.open mysql, conn 
 
while RS.eof
 response.write RS.fields("num_qest").value
 respsone.write RS.fields("intituler_quest").value
 %>
 <br/>
<% 
wend
%>
</body>
</html>

Et voici le message d'erreur :

Code :

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

1
2
3
4
5
Microsoft VBScript runtime error '800a01a8' 
 
Object required: 'Server' 
 
/isy/formulaires/xxflboul/enquete/test.asp, line 4

**Phiss** · 02/06/2006, 14h36

si c'est vraiment tout le code de ta page alors essaie de rajouter ceci en haut:

Code :

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

<%@LANGUAGE="VBScript"%>

**tribaleur** · 02/06/2006, 14h41

J'ai essaier mais sa à pô marcher alors

je pas comprendre!!

**phoenix1998** · 02/06/2006, 14h44

deja il te manque rs.movenext

Code :

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

1
2
3
4
5
6
7
8
9
 
while RS.eof
 response.write RS.fields("num_qest").value
 respsone.write RS.fields("intituler_quest").value
 %>
 <br/>
<% 
Rs.movenext
wend

**tribaleur** · 02/06/2006, 15h04

Bon bin j'ai mis RS.movenext mais sa change rien.
Là je vous laisse j'aurais pas accès à Internet avant lundi 7h donc bon weekend et encore merci à tous.
Si vous avez des réponses vous pouvez toujours les mettre je les éssaierai lundi.

**Immobilis** · 02/06/2006, 23h09

Y'a une faute et c'est "WHILE NOT"

Code :

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

1
2
3
4
5
6
7
8
while NOT RS.eof
 response.write RS.fields("num_qest").value
 respsone.write RS.fields("intituler_quest").value
 %>
 <br/>
<% 
Rs.movenext
wend

A+

**tribaleur** · 06/06/2006, 07h54

Voici mon 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
<%@LANGUAGE="VBScript"%>
<html>
<body>
<!--#include virtual = "/isy/formulaires/xxflboul/enquete/function.asp"-->
<%
connexion_bd_access("enquete.mdb")
 
mysql="select * from T_question"
RS.open mysql, conn 
 
while not RS.eof
 response.write RS("num_qest")
 response.write RS("intituler_quest")
 %>
 <br/>
<% 
RS.movenext
wend
 
conn.close
set conn = nothing
set RS = nothing
%>
</body>
</html>

Et voici le message d'erreur :

Code :

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

1
2
3
4
5
Microsoft VBScript runtime error '800a01a8' 
 
Object required: '' 
 
/isy/formulaires/xxflboul/enquete/test.asp, line 9

**tribaleur** · 06/06/2006, 08h25

Si je met directement mon code de connexion à la base de donnée sa marche :

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
<%@LANGUAGE="VBScript"%>
<html>
<body>
<!--#include virtual = "/isy/formulaires/xxflboul/enquete/function.asp"--> 
<%
  DSN_BASE = "DBQ="& Server.Mappath("enquete.mdb") &";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
  Set Conn = Server.CreateObject("ADODB.Connection")
   Conn.Open DSN_BASE
  Set RS = Server.CreateObject("ADODB.Recordset")
 
mysql="select num_quest as nq,intituler_quest as iq from T_question"
RS.open mysql, conn 
 
while not RS.eof
 response.write RS("nq")
 response.write RS.fields("iq").value
 %>
 <br/>
<% 
RS.movenext
wend
 
conn.close
set conn = nothing
set RS = nothing
%>
</body>
</html>

Par contre si j'appel ma fonction de connexion :

Code :

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

1
2
3
4
5
6
7
8
<%
function connexion_bd_access (nom_bd_access)  '------connexion à la base de données Access -----------------
  DSN_BASE = "DBQ="& Server.Mappath(nom_bd_access) &";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
  Set Conn = Server.CreateObject("ADODB.Connection")
   Conn.Open DSN_BASE
  Set RS = Server.CreateObject("ADODB.Recordset")
end function  
%>

sa marche plus

et sa m'affiche le message d'erreur

Code :

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

1
2
3
4
5
Microsoft VBScript runtime error '800a01a8' 
 
Object required: '' 
 
/isy/formulaires/xxflboul/enquete/test.asp, line 13

Cette fonction je l'appel pourtant dans un autre fichier et sa fonctionne bien!
Donc la

P.S La ligne 13 correspond à

Code :

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

RS.open mysql, conn

**Immobilis** · 06/06/2006, 10h20

C'est parce qu'il te manque

Code :

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

Set RS = Server.CreateObject("ADODB.Recordset")

Ta fonction ne le renvoi pas. Tu peux peut-être essayer avec

Code :

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

1
2
3
4
5
6
7
8
function connexion_bd_access (nom_bd_access)  '------connexion à la base de données Access -----------------
  DSN_BASE = "DBQ="& Server.Mappath(nom_bd_access) &";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
  Set Conn = Server.CreateObject("ADODB.Connection")
   Conn.Open DSN_BASE
  Set RS = Server.CreateObject("ADODB.Recordset")
  connexion_bd_access = rs
end function

A+