Ver Mensaje Individual
  #12 (permalink)  
Antiguo 08/07/2005, 07:18
Elbrinner
 
Fecha de Ingreso: julio-2005
Ubicación: Santiago de Compostela
Mensajes: 80
Antigüedad: 18 años, 9 meses
Puntos: 0
Si que se puede.
Busca por internet que seguro que encuentras un manual dese componente.

Un ejemplo con db

Código HTML:
Página Database01.asp

Esta página exibe um formulário para que possa ser selecionado o ano para gerar-se dinamicamente a imagem do gráfico

<html>
<body>
<form action="<%=Request("SCRIPT_NAME")%>">
Selecione o ano da consulta 
<select name="year">
<option value="1990">1990
<option value="1991">1991
<option value="1992">1992
<option value="1993">1993
<option value="1994">1994
<option value="1995">1995
<option value="1996">1996
<option value="1997">1997
<option value="1998">1998
<option value="1999">1999
<option value="2000">2000
<option value="2001">2001
</select>
<input type="submit" value="OK">
</form>

<%
SelectedYear = Request("year")
if SelectedYear = "" Then 
SelectedYear = 2001
end if
%>

<SCRIPT>
//make sure the select box displays the current selected year.
document.forms[0].year.selectedIndex = <%=SelectedYear - 1990%>;
</SCRIPT>

<img src="database02.asp?year=<%=SelectedYear%>">

</body>
</html>

Página Database02.asp

Esta página genera la imagene del gráfico y hace la consulta en el banco de datos

<%@ language="vbscript" %>
<%

Set cd = CreateObject("ChartDirector.API")

SelectedYear = Request("year")
if SelectedYear = "" Then SelectedYear = 2001

SQL = "Select Month(TimeStamp) - 1 As ArrayIndex, " & _
"Software, Hardware, Services " & _
"From Revenue Where Year(TimeStamp)=" & SelectedYear


Set rs = CreateObject("ADODB.RecordSet")
Call rs.Open(SQL, "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\login\dados\sample.mdb")
Set dbTable = cd.DBTable(rs, "ArrayIndex", 12)
rs.Close()


'(0xffffc0) background and 2 pixel 3D border
Set c = cd.XYChart(420, 240, &Hffffc0, &Hffffc0, 2)

Call c.setPlotArea(70, 50, 320, 150, &Hffffff, &Hffffff, &Hc0c0c0, &Hc0c0c0)


Call c.addTitle("Locaweb - Estatisticas de " & SelectedYear, "timesbi.ttf" _
).setBackground(&Hffff00)

Call c.addLegend(70, 30, 0, "", 8).setBackground(cd.Transparent)

Set layer = c.addBarLayer2(cd.Stack)
Call layer.addDataSet(dbTable.getCol(1), -1, "Locaweb")
Call layer.addDataSet(dbTable.getCol(2), -1, "Locamail")
Call layer.addDataSet(dbTable.getCol(3), -1, "Locavoz")
Call layer.setBorderColor(cd.Transparent, 1)


labels = Array("Jan", "Fev", "Mar", "Abr", "Mai", "Jun", "Jul", "Ago", _
"Set", "Out", "Nov", "Dez")
Call c.xAxis().setLabels(labels)

Call c.xAxis().setWidth(2)


Call c.yAxis().setTitle("Crescimento")


Call c.yAxis().setWidth(2)


Response.ContentType = "image/png"
Response.BinaryWrite c.makeChart2(cd.PNG)


rs.close
Set rs = nothing


Set c = nothing

Set cd = nothing
%>
puedes baja la bd Aqui

un saludo