lire une requete sql "FOR XML"

**snipon** · 21/10/2010, 11h53

Bonjour,
je souhaite obtenir le résultat d'une requête SQL au format XML.
mon code qui suit plante sur la propriété "Output Stream".
QQ'un peut-il m'aider?
Merci

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
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/connBDD.asp" -->

<html>
<head>
<meta http-equiv="Content-Type" content="text/xml"/>
<title>PROCLE</title>
</head>
	<body>
	Resultat: <P/>
<%
var adCmdText = 1;
var adExecuteNoRecords = 0x80;
var adTypeText = 1;

var sQuery = "SELECT p.fprod_codeu FROM FPRODUITS p ORDER BY p.fprod_lib ASC FOR XML RAW";

var cde_listeprod = Server.CreateObject("ADODB.command");
cde_listeprod.ActiveConnection = MM_connBDD_STRING2;

cde_listeprod.CommandType =  adCmdText || adExecuteNoRecords;
cde_listeprod.CommandText = sQuery;

cde_listeprod.Properties("Output Stream") = Response;
cde_listeprod.Execute();
cde_listeprod = null;

%>
	</body>
</html>

**roro06** · 21/10/2010, 14h16

Bonjour

cde_listeprod.Properties("Output Stream") = Response;

Curieuse méthode ! es-tu sûr de ton coup ?

Quel est le message d'erreur?

**snipon** · 21/10/2010, 18h03

Merci de ta réponse.
Cette méthode, je l'ai trouvée dans des exemples, mais en VB...
Je l'ai donc adaptée à JavasScript.
Je sais que c'est sur cette ligne, car j'ai mis des traces partout.
Le message est:

Une erreur s'est produite sur le serveur lors du traitement de l'URL

Si tu as une idée, je suis preneur.
Encore merci

**roro06** · 22/10/2010, 10h01

Des exemples en VB, ou en VBscript ?

Si tu as une idée, je suis preneur.

Configurer ton serveur pour recevoir des "messages d'erreurs détaillés". Le message sera plus parlant

**snipon** · 26/10/2010, 15h15

J'ai abandonné l'idée de le faire en javascript...
Voici donc mon code en VB (que je ne maîtrise pas!)
La requête est un peu lourdingue, mais ça marche bien.

Merci de votre aide

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" CODEPAGE="1252"%>
 
<html>
<head>
<meta http-equiv="Content-Type" content="text/xml"/>
<title></title>
</head>
	<body>
<%
Dim oCmd, sSQL
 
sSQL = "<root><sql:query xmlns:sql='urn:schemas-microsoft-com:xml-sql'>SELECT p.fprod_codeu, p.fprod_ref, p.fprod_lib, p.fprod_descro, p.fprod_vignette, p.fprod_image, p.fprod_unite, p.fprod_condi, p.fprod_coloris, p.fprod_special, t.ftva_val, sc.fsclass_lib FROM FPRODUITS p left outer join FCODESTVA t on t.fprod_codetva = p.fprod_codetva left outer join FSCLASS sc on sc.fsclass_codeu = p.fsclass_codeu WHERE p.fprod_visible = 'T' AND p.fsclass_codeu IN(SELECT fsclass_codeu from FSCLASS WHERE fclass_codeu in (1924,2404)) ORDER BY p.fprod_lib ASC FOR XML AUTO</sql:query></root>"
 
Set oCmd = Server.CreateObject("ADODB.Command")
 
oCmd.ActiveConnection = "ma chaine de connexion"
 
oCmd.CommandText = sSQL
oCmd.Dialect = "{5D531CB2-E6Ed-11D2-B252-00C04F681B71}"
 
oCmd.Properties("Output Stream") = Response
oCmd.Execute , , 1024
 
Set oCmd = Nothing
 
%>
</body>
</html>

lire une requete sql "FOR XML"

ASP

Discussions similaires

Partager

Partager