Ciao,
qualcuno sa darmi una mano ?
Ho dei numeri che vengono estratti tramite delle query da un DB di SQL SERVER. Ho un totale e poi tutti gli spaccati, come faccio a creare una Legenda Dinamica e un grafico a torta che si aggiorna dinamicamente quando cambiano i dati ?
Grazie
Non sarebbe male....io stavo provando anche la strada Flash..ma non ci riesco
ti posto il codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
'Creiamo l'oggetto
Set ChartObj = Server.CreateObject("OWC10.ChartSpace")
Set ChartConsts = ChartObj.Constants
set NewChart = ChartObj.Charts.Add
'Settiamo il tipo di grafico va da 0 a 65 circa con dei buchi
NewChart.Type = 20
'Setto il colore di sfondo
NewChart.PlotArea.Interior.Color = "#FFFFFF"
'Titolo del grafico
NewChart.HasTitle = True
ChartObj.HasChartSpaceTitle = True
ChartObj.ChartSpaceTitle.Caption = "Grafico rimborsi complessivi per anno di competenza garanzia ALTRE PRESTAZIONI"
ChartObj.ChartSpaceTitle.Font.Bold = True
'Sotto titolo
NewChart.Title.Caption = ""
'Creiamo gli array che conterranno i dati da passare all'oggetto e necessari a creare il grafico
ReDim ARR_VISITE(4)
ReDim ARR_VISITE1(4)
ReDim ARR_IMPORTO(4)
' ASSE Y
ARR_VISITE(0)=0
ARR_VISITE(1)=0
ARR_VISITE(2)=0
ARR_VISITE(3)=0
ARR_VISITE(4)=0
' ASSE Y1
ARR_VISITE1(0)=170.000
ARR_VISITE1(1)=162.000
ARR_VISITE1(2)=200.000
ARR_VISITE1(3)=272.000
ARR_VISITE1(4)=274.000
' ASSE X
ARR_IMPORTO(0)="2000 (€ 170.000)"
ARR_IMPORTO(1)="2001 (€ 162.000)"
ARR_IMPORTO(2)="2002 (€ 200.000)"
ARR_IMPORTO(3)="2003 (€ 272.000)"
ARR_IMPORTO(4)="2004 (€ 274.000)"
'Passiamo i valori al grafico
NewChart.HasLegend = True 'Attivazione della Legenda
'Creazione delle due serie
Set Serie = NewChart.SeriesCollection.Add 'Prima colonna
Set Serie1 = NewChart.SeriesCollection.Add 'Seconda colonna
NewChart.SeriesCollection(0).Caption = "" 'scritte della legenda x la prima serie
NewChart.SeriesCollection(1).Caption = "migliaia di euro" 'scritte della legenda x la seconda serie
Serie.SetData ChartConsts.chDimCategories, ChartConsts.chDataLiteral, ARR_IMPORTO
Serie.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_VISITE
Serie1.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_VISITE1
'Settiamo il path dell'immagine che verrà creata
ImagePath=server.mappath("report1.gif")
'Salviamo l'immagine
ChartObj.ExportPicture ImagePath,"gif", 900, 700
Response.Write("[img]report1.gif[/img]")
set oChart=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>ALTRE SPESE</title>
</head>
<body>
</body>
</html>
diglielo magari che deve avere installato il componente specificocodice:Set ChartObj = Server.CreateObject("OWC10.ChartSpace")
si, certo hai ragione
Qualcuno mi sa indicare una strada "Flash" ?
Permessi di invio
Rispondi quotando