75 messaggi dal 29 gennaio 2002
Ciao io ho questo codice:

<%
dim SQL, rs, rs1, tmp, i, count

count = 0

'Tipo = 1 - Istogramma
'Tipo = 3 - Istogramma inverito
'Tipo = 6 - Linea spezzata
'Tipo = 7 - Linea spezzata con punti
'Tipo = 12 - Linea Curva
'Tipo = 18 - Torta1
'Tipo = 19 - Torta2
'Tipo = 30 - Area piena
'Tipo = 32 - Anello

'Creiamo l'oggetto
Set ChartObj = Server.CreateObject("OWC.Chart")

Set ChartConsts = ChartObj.Constants
set NewChart = ChartObj.Charts.Add

'Settiamo il tipo di grafico
NewChart.Type = 12

' ASSE Y
i = 0

SQL = "SELECT DISTINCT(data) FROM rilevazioni ORDER BY data"

set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn, 3, 3

count = rs.RecordCount

ReDim ARR_VISITE(count)
ReDim ARR_VISITE1(count)

do while not rs.EOF
SQL = "SELECT cesio, iodio FROM rilevazioni WHERE data=#" & formatData(rs.fields("data")) & "#"

set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open SQL, conn, 3, 3

do while not rs1.EOF
ARR_VISITE(i)= rs1.fields("iodio")
ARR_VISITE1(i)= rs1.fields("cesio")
rs1.MoveNext
loop
i = i + 1
rs.MoveNext
loop

' ASSE X

i = 0

SQL = "SELECT DISTINCT(data) FROM rilevazioni ORDER BY data"

set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open SQL, conn, 3, 3

count = rs2.RecordCount

ReDim ARR_GIORNI(count)

do while not rs2.EOF
ARR_GIORNI(i) = rs2.fields("data")
i = i +1
rs2.MoveNext
loop

'Passiamo i valori al grafico
Set Serie = NewChart.SeriesCollection.Add
Serie.SetData ChartConsts.chDimCategories, ChartConsts.chDataLiteral, ARR_GIORNI
Serie.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_VISITE
'Serie.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_VISITE1

'Settiamo il path dell'immagine che verrà creata
ImagePath=server.mappath("images/report.gif")

'Salviamo l'immagine
ChartObj.ExportPicture ImagePath,"gif", 1000, 400
set oChart=nothing
%>

Che praticamente funziona e come vedete riempio l'array ARR_GIORNI che va sull'asse delle Y e l'array ARR_VISITE che traccia un grafico lineare sull'asse delle X!
Io vorrei far visualizzare anche l'array ARR_VISITE1 sull'asse delle X come si può fare?
Il codice l'ho scaricato da voi e qui si passano i valori:

Set Serie = NewChart.SeriesCollection.Add
Serie.SetData ChartConsts.chDimCategories, ChartConsts.chDataLiteral, ARR_GIORNI
Serie.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_VISITE
Serie.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_VISITE1

Però se lo metto così mi mostra solo i dati dell'array ARR_VISITE1

Daniele

http://suonerie.diddo.it/

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.