comment afficher la valeur du resultat d'un requete sql

**tribaleur** · 30/05/2006, 09h00

Bonjour. Je debute en ASP

et j'essai de me connecter à ma base de donnée(ce que je sais pas si ça fonctionne)

et je voudrait récupérer la valeur du resultat de ma requête SQL. Voici mon code mais rien ne s'affiche à l'écran.

Où est(sont) l'érreur(s)

**tribaleur** · 30/05/2006, 09h01

Encore une fois j'ai oublier le code

Oups!!! scusé moi!!!

<%
Dim dcnDB ' As ADODB.Connection
Dim strDatabaseLocation ' As String
Dim strSQL ' As String

// Connection a la BD
strDatabaseLocation = "C:\Documents and Settings\xxflboul\My Documents\My Webs\enquete.mdb"
set dcnDB = Server.CreateObject("ADODB.Connection")
dcnDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Persist Security Info=False;Data Source=" _
& strDatabaseLocation
dcnDB.Open
strSQL="select count(code_utilisateur) from utilisateur"
set rs3 = dcnDB.Execute(strSQL)
response.write strSQL

%>

**Phiss** · 30/05/2006, 09h05

response.write strSQL ==> tu affiches la requete...

Pour afficher le résultat je te conseillerais de modifier ta requete et de mettre

Code :

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

select count(code_utilisateur) as nb from utilisateur

Ensuite pour avoir le nombre tu fais

Code :

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

response.write(rs3'("nb"))

**ryan** · 30/05/2006, 09h19

Yop!

Envoyé par Phiss

Ensuite pour avoir le nombre tu fais

Code :

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

response.write(rs3'("nb"))

Heu Phiss, il y a peut-être une ch'tite apostrophe en trop...

Code :

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

response.write(rs3("nb"))

Ryan
Apostrophé....

**tribaleur** · 30/05/2006, 09h30

Merci à vous mais j'ai essaier et ya rien qui s'affiche

**ryan** · 30/05/2006, 10h16

Yop!

Essaye

Code :

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

1
2
3
4
 
strSQL="select count(*) from utilisateur"
set rs3 = dcnDB.Execute(strSQL)
response.write rs3(0)

Ryan

**tribaleur** · 30/05/2006, 10h23

Sa marche pas. Est-ce que ça peu venir du fait que j'utilise front page?
Là j'ai fait un essai j'ai mis

Code :

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

1
2
3
4
5
6
7
8
9
10
<html>
<head>
<title>Enquete</title>
</head>
<body>
<%
response.write "bien"
%>
</body>
</html>

et ça ne fait rien apparaitre à l'écrans dans IE

**ryan** · 30/05/2006, 10h33

Ha ouais...

Bon, première chose: où est la page de test qui n'affiche rien?
Sur ta machine? Sur un serveur web distant?

Ryan

**tribaleur** · 30/05/2006, 10h37

Je pense que c'est sur un serveur web car enfaite j'utilise un ordinateur connecter à un serveur avec login et password. Cependant la page IE qui s'ouvre est sur ma machine.

**pc75** · 30/05/2006, 10h52

Bonjour,

A mon avis, tu devrais utiliser un recordset :

Code :

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

1
2
3
4
5
 
set rstemp = Server.CreateObject("ADODB.Recordset")
<div style="text-align: left;">mysql = "select count(code_utilisateur) as nb from utilisateur"</div>rstemp.open mysql, Application("DsnODBC") 
response.Write rstemp("nb")
.....

**Phiss** · 30/05/2006, 10h55

ta page est sur le serveur mais tu l'appelles en local.
Si c'est ça pas de soucis de ce coté.
Sinon tu dois mettre ta pge sur le serveur web.

Ensuite essai de mettre ne haut de tes pages ceci

Code :

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

<%@LANGUAGE="VBScript"%>

**tribaleur** · 30/05/2006, 11h09

Pour le reponse.write qui ne fonctionnai pas j'ai trouver! Il fallait que j'enregistre mon .asp sur le réseau. Cependant ma base est en local.

Pour ce qui est du record set
mon code globale est devenu :

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
<html>
<head>
<title>Enquete</title>
</head>
<body>
<%
  Dim dcnDB				' As ADODB.Connection
  Dim strDatabaseLocation	' As String
  Dim strSQL				' As String
 
  // Connection a la BD
  strDatabaseLocation = "C:\Documents and Settings\xxflboul\My Documents\My Webs\enquete.mdb"
 
	set dcnDB = Server.CreateObject("ADODB.Connection")
	 dcnDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
		& "Persist Security Info=False;Data Source=" _
		& strDatabaseLocation
	 dcnDB.Open
 
set rstemp = Server.CreateObject("ADODB.Recordset")
 mysql = "select count(code_utilisateur) as nb from utilisateur"
 rstemp.open mysql, Application("DsnODBC") 
 
response.Write rstemp("nb")
%>
</body>
</html>

mais il m'affiche le message suivant :

Code :

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

1
2
3
4
5
6
7
Microsoft JET Database Engine error '80004005' 
 
'C:\Documents and Settings\xxflboul\My Documents\My Webs\enquete.mdb' 
is not a valid path. Make sure that the path name is spelled correctly and 
that you are connected to the server on which the file resides. 
 
/isy/formulaires/xxflboul/test/enquete.asp, line 18

alors là grand mistère!!!
J'ai regarder dans un livre sur ASP mais j'ai pas trouvé cette erreur.

**tribaleur** · 30/05/2006, 11h11

Juste comme ça merci à ceux qui me réponde!!!

**Phiss** · 30/05/2006, 11h16

si ta base est en local tu ne peux pas avoir le chemin local sur le serveur...

Vu que l'asp est executé en local sur le serveur, tu devrais également mettre ta base sur le serveur. cela te faciliterais la tache.

Sinon il faut que tu créé un lecteur distant sur ton serveur pour acceder a ta base qui est sur ton ordi.

Mais en tout cas pas de "C:\etc..." sur le serveur si ta base est pas sur le serveur.

**tribaleur** · 30/05/2006, 11h25

J'ai changer le code

Code :

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

 strDatabaseLocation = "//intranet.brdac.com/isy/formulaires/xxflboul/enquete.mdb"

mais toujours le même message d'erreur!

**pc75** · 30/05/2006, 11h30

Re,

Pourquoi n'utilises-tu pas un DSN ODBC ?

**tribaleur** · 30/05/2006, 11h34

Je commence l'ASP et je sais pas ce qu'est un DSN. En fait pour la connexion j'ai piquer le bout de code deja existant d'une autre page .asp sur le réseau et j'ai changer pour ma base.

**ryan** · 30/05/2006, 12h40

Yop!

Toujours en rade avec ta connection à la bdd?

Bon, la bdd est-elle sur le serveur qui tourne les ASP?

Si oui, quel est le répertoire racine pour le serveur web?
Pour la savoir, une ch'tite page:

Code :

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

1
2
3
4
5
6
7
8
 
<html>
<body>
<%
response.write Server.Mappath("/")
%>
</body>
</html>

Ca va te retourner quelque chose du style "c:\inetpub\wwwroot"...

Ryan

**tribaleur** · 30/05/2006, 12h46

Merci à tous je viens juste de réussir. Je sais pas trop ce qu'est une DSN mais apparament il fallait passer par sa. Je vous met mon code pour que vous puissiez voir.

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>Enquete</title>
</head>
<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 count(code_utilisateur) as nb from utilisateur" 
 RS.open mysql, conn
 
response.Write RS("nb")
%>
</body>
</html>

Au fait à quoi sert le ("nb") après le response.write???
Encore merci à tous!!!

**ryan** · 30/05/2006, 12h55

Envoyé par tribaleur

Au fait à quoi sert le ("nb") après le response.write???

Dans ta requête, tu as défini un alias (c'est comme ça que ça s'appelle?) pour le compteur "count(code_utilisateur)".

Ton recordset est capable d'afficher plusieurs choses, il faut donc lui préciser que c'est l'alias du compteur que tu veux afficher, d'où RS("nb").

Essaye avec RS(0), cela devrait fonctionner aussi.

Ryan

comment afficher la valeur du resultat d'un requete sql

ASP

Discussions similaires

Partager

Partager