Forum de discussion
Forum « Programmation ASP » (archives)
affichage d'une requête analyse croisée (access) sur une page asp
Envoyé: 27 août 2005, 6h00 par systalpa
"TRANSFORM Sum(tblVersPart.MontPaiemEurHt) AS SommeDeMontPaiemEurHt
SELECT tblVersPart.TypePaiem, Sum(tblVersPart.MontPaiemEurHt) AS [Total de MontPaiemEurHt]
FROM tblVersPart
WHERE (((tblVersPart.InitialesPartenaire)="fc") AND ((Year([DatePaiem]))=2002))
GROUP BY tblVersPart.TypePaiem
PIVOT Format([DatePaiem],"mmm") In ("janv","févr","mars","avr","mai","juin","juil","août","sept","oct","nov","déc");
"
Je souhaite afficher cette requête sur une page asp comme je le fais pour des requêtes sélection.
Voici le code de ma page asp en cours de test :
<% Option Explicit %>
<!--#include file="commun.asp" -->
<%
Response.Buffer = True
Dim rsCont
Dim strSQLCont
strSQLCont="TRANSFORM Sum(tblVersPart.MontPaiemEurHt) AS SommeDeMontPaiemEurHt " _
& "SELECT tblVersPart.TypePaiem, Sum(tblVersPart.MontPaiemEurHt) AS tot " _
& "FROM tblVersPart " _
& "WHERE (((tblVersPart.InitialesPartenaire)='fc') AND ((Year([DatePaiem]))=2002)) " _
& "GROUP BY tblVersPart.TypePaiem " _
& "PIVOT Format([DatePaiem],'mmm') In ('janv','févr','mars','avr','mai','juin','juil','août','sept','oct','nov','déc');"
Set rsCont = Server.CreateObject("ADODB.Recordset")
rsCont.Open strSQLCont, strCon, 2, 2
%>
<html>
<head>
<title>AF_clean</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="style_principal_adm.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="1000" border="0" cellpadding="0" cellspacing="0" align="center" bgcolor="#000066">
<tr>
<td width="15" height="15"></td>
<td></td>
<td width="15"></td>
</tr>
<tr>
<td></td>
<td valign="top">
<table width="100%" bgcolor="#FFFFFF" border="1" bordercolor="#868686"
style="BACKGROUND-COLOR: #FFFFFF; BORDER-BOTTOM: black 1px solid; BORDER-LEFT: black 1px solid; BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; WIDTH: 99%"
hlcolor="#BEC5DE" slcolor="#FFAE88" dragcolor='gray'>
<form>
<thead>
<tr>
<th>
<div align="center" ONDBLCLICK="RechCont(this)" ONMOUSEOVER="this.style.color='#FF0000'" ONMOUSEOUT="this.style.color='#000080'">rsCont("tot")</div>
</th>
<th>
<div align="center">rsCont("TypePaiem")</div>
</th>
<th>
<div align="center">Patron</div>
</th>
<th>
<div align="center">rsCont("SommeDeMontPaiemEurHt")</div>
</th>
<th>
<div align="center" ONMOUSEOVER="this.style.color='#FF0000'" ONMOUSEOUT="this.style.color='#000080'">Code
Post.</div>
</th>
<th>
<div align="center">Ville</div>
</th>
<th>
<div align="center">Date Départ</div>
</th>
<th>
<div align="center" ONMOUSEOVER="this.style.color='#FF0000'" ONMOUSEOUT="this.style.color='#000080'">Zone</div>
</th>
<th>
<div align="center" ONMOUSEOVER="this.style.color='#FF0000'" ONMOUSEOUT="this.style.color='#000080'">Date
Enr. Cont</div>
</th>
<th>
<div align="center">Etat Cont.</div>
</th>
<th>
<div align="center">Date Valid. Etat</div>
</th>
</tr>
</thead>
</form>
<tbody>
<% Do While NOT rsCont.EOF %>
<tr>
<td>
<div align="center"><%=rsCont("tot") %></div>
</td>
<td>
<div align="right"><%=rsCont("TypePaiem") %></div>
</td>
<td>
<div align="right"><%=rsCont("tot") %></div>
</td>
<td>
<div align="right">&</div>
</td>
<td>
<div align="right">az</div>
</td>
<td>
<div align="right">az</div>
</td>
<td>
<div align="right">az</div>
</td>
<td>
<div align="right">re</div>
</td>
<td>
<div align="right">fv</div>
</td>
<td>
<div align="right">vf</div>
</td>
<td>
<div align="right">vf</div>
</td>
</tr>
<%
rsCont.MoveNext
Loop
%>
</tbody>
</table>
</td>
<td></td>
</tr>
<tr>
<td height="15"></td>
<td></td>
<td></td>
</tr>
</table>
</body>
</html>
Pour l'instant je ne sais pas comment faire ce tableau dynamique sur ma page asp et je ne trouve rien nulle part sur ce sujet !
hum hum ....
Qui a la solution ?
systalpa75@yahoo.fr
Merci d'avance.
Réponses
|