14/09/2004, 08:20
|
| | | Fecha de Ingreso: abril-2004 Ubicación: México D.F.
Mensajes: 1.724
Antigüedad: 20 años, 6 meses Puntos: 4 | |
| Que gachos non, nadie te ayuda : checa el siguiente ejemplo :)
Por cierto : Con los 2 te sirven para lo mismo:
Componentes Web de Office (Office Web Componentes o OWC) que, una vez instalados en el servidor web, permiten (al igual que ocurre en la suite ofimática instalada en modo local) crear gráficos muy similares a los que se pueden conseguir en la aplicación Excel.
Este si te var a funcionar:
<% @language="vbscript" %>
<html>
<head><title></title>
</head>
<!--#include file="adovbs.inc" -->
<body>
<%
dim fichero, conn, rs, objRS,objChartSpace, objChart, c
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("datos.mdb")
Set objRS=Server.CreateObject("ADODB.Recordset")
set objRS.ActiveConnection = conn
set objChartSpace = Server.CreateObject("OWC.Chart")
set objChart = objChartSpace.Charts.Add()
set c = objChartSpace.Constants
fichero=server.mappath("gif_tmp_export.gif")
objRS.CursorType = adOpenStatic
objRS.CursorLocation = adUseClient
objRS.Open "select * from tbl_notas order by test" ‘Ordenación para que los números de los test sean correlativos en el eje de categorías
objChart.Type = c.chChartTypeLine
objChart.HasLegend = True
set objChartSpace.DataSource = objRS
objChart.SetData c.chDimSeriesNames, 0, "estudiante"
for each objSeries in objChart.SeriesCollection
objSeries.SetData c.chDimCategories, 0, "test"
objSeries.SetData c.chDimValues, 0, "nota"
next
for each axis in objChart.Axes
axis.HasTitle = True
if axis.Type = c.chCategoryAxis then
axis.Title.Caption = "Test"
else
axis.Title.Caption = "Nota"
end if
next
objChartSpace.ExportPicture fichero, "gif", 800, 500
Response.Write("<center><IMG SRC='gif_tmp_export.gif'>")
objRs.close
set objRS=nothing
conn.close
set conn=nothing
%>
</body></html>
|