Graficos

OooH-Boy · #1 (**permalink**) 16/06/2003, 18:19

Hola como podria generar una grafica de barra de mi base datos. yo consigo los datos con este query
SELECT Table1.Accion, Count(Table1.ID) AS Cantidad FROM Table1 GROUP BY Table1.Accion

y me da una salida asi:
carros 25
motos 12
barcos 12

me da las veces que encuentra estos campos comopodria usarlos para que me generara una bar chart ..gracias opr la ayuda

maestro · #2 (**permalink**) 16/06/2003, 18:28

No hay ninguna fucnion en ASP para la generacion de graficos (creo que en PHP si), deberias estudiarte un script que creara una linea de caracteres ASCCII cuadrados , por ejemplo, o bien una imagen solida de color que podrias ajustar el tamaño en funcion de los valores.

Creo que ambas opciones te van a ser muy complicadas porque llevas poco por aqui, mi consejo:
http://www.hotscripts.com/ASP/Script...rts/index.html

bakanzipp · #3 (**permalink**) 16/06/2003, 19:28

usa tablas pintandos filas o columnas...mas facil echarle agua...

http://www.webexperto.com/articulos/articulo.php?cod=11

OooH-Boy · #4 (**permalink**) 17/06/2003, 11:00

Aqui hay un codigo que encontre me recupera los datos de una base datos pero solo recupera la lista de datos sin el query, eh estado pensando si se puede hacer la busqueda y salvarlos en otra table y luego jalarlos con este codigo. alguna idea de como puedo hacer esto por favor se aceptan ideas y si tengo que cambiar de lenguaje pues no importa lo que necesito es crear la grafica.

Aqui esta el codigo no coloco el link porque no se de donde lo encontre ok gracias..

<%
'How many pixels high we want our bar graph
Const graphHeight = 300
Const graphWidth = 450
Const barImage = "bluebar.gif"

sub BarChart(data, labels, title, axislabel)
'Print heading
Response.Write("<TABLE CELLSPACING=0 CELLPADDING=1 BORDER=0 WIDTH=" & graphWidth & ">" & chr(13))
Response.Write("<TR><TH COLSPAN=" & UBound(data) - LBound(data) + 2 & ">")
Response.Write("<FONT SIZE=+2>" & title & "</FONT></TH></TR>" & chr(13))
Response.Write("<TR><TD VALIGN=TOP ALIGN=RIGHT>" & chr(13))

'Find the highest value
Dim hi
hi = data(LBound(data))

Dim i
for i = LBound(data) to UBound(data) - 1
if data(i) > hi then hi = data(i)
next

'Print out the highest value at the top of the chart
Response.Write(hi & "</TD>")

Dim widthpercent
widthpercent = CInt((1 / (UBound(data) - LBound(data) + 1)) * 100)

For i = LBound(data) to UBound(data) - 1
Response.Write(" <TD VALIGN=BOTTOM ROWSPAN=2 WIDTH=" & widthpercent & "% >" & chr(13))
Response.Write(" <IMG SRC=""" & barImage & """ WIDTH=100% HEIGHT=" & CInt(data(i)/hi * graphHeight) & ">" & chr(13))
Response.Write(" </TD>" & chr(13))
Next

Response.Write("</TR>")
Response.Write("<TR><TD VALIGN=BOTTOM ALIGN=RIGHT>0</TD></TR>")

'Write footer
Response.Write("<TR><TD ALIGN=RIGHT VALIGN=BOTTOM>" & axislabel & "</TD>" & chr(13))
for i = LBound(labels) to UBound(labels) - 1
Response.Write("<TD VALIGN=BOTTOM ALIGN=CENTER>" & labels(i) & "</TD>" & chr(13))
next
Response.Write("</TR>" & chr(13))
Response.Write("</TABLE>")
end sub

'Open connection to database
Dim objConnection
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.Open "DSN=Products"

Dim strSQL
strSQL = "SELECT Name,UnitsSold FROM Products"

Dim rsProducts
Set rsProducts = Server.CreateObject("ADODB.Recordset")
rsProducts.Open strSQL, objConnection, adOpenStatic

Dim numRecords
numRecords = rsProducts.RecordCount

Dim unitsSoldArray(), labelArray()
Redim unitsSoldArray(numRecords)
Redim labelArray(numRecords)

Dim i
for i = 0 to numRecords-1
unitsSoldArray(i) = rsProducts("UnitsSold")
labelArray(i) = rsProducts("Name")
rsProducts.MoveNext
next

%>

<HTML>
<BODY>
<CENTER>
<% BarChart unitsSoldArray,labelArray,"Units Sold Categoria","Categorias" %>
</CENTER>
</BODY>
</HTML>

<%
rsProducts.Close
Set rsProducts = Nothing

objConnection.Close
Set objConnection = Nothing
%>

AZP · #5 (**permalink**) 17/06/2003, 16:12

Tres imágenes cuyos anchos sean igual al número de motos y otros vehículos, respectivamente.

Es fácil.

Por ejemplo,

<IMG SRC=images/barrav.gif WIDTH=<% = numeromotos %>px HEIGHT=24px>

Un saludo,

AZP

Eutheola · #6 (**permalink**) 17/06/2003, 20:27

Muy interesante, con el enlace de bakanzipp, funciona solo si quiero totalizar el numero de motos, carros y barcos, pero como podria obtener el total, o sea la sumatoria de motos, carros y barcos, para poder estimar el Porcentaje que representa cada uno de los items (carros, motos y barcos) con respecto al total?

ALguna idea?

OooH-Boy · #7 (**permalink**) 18/06/2003, 00:06

hola alguien me piuede mandar el codigo completo que me permita contar cuantas veces aparecen estos articulos en mi BD (motos,barcos,carros,etc) y que grafique los totales de cada uno o sea cuantas veces aparecen en la BD ... gracias o algun link de donde lo puedo encontrar gracias.

Eutheola · #8 (**permalink**) 19/06/2003, 15:21

Este enlace que sugiere bakanzipp http://www.webexperto.com/articulos/articulo.php?cod=11 es el que uso y funciona muy bien, pero insisto como totalizar cada uno de los items?(carros, motos, ...)

OooH-Boy · #9 (**permalink**) 19/06/2003, 21:20

Aqui hay un codigo a ver si te sirve yo no lo eh podido hacer andar si funciona me lo pasas por favor, y para hacer la busqueda del count los totales creo que talvez algo asi funcione

Select Categoria, count*(*) from table group by categoria

por favor alguien nos de una ayuda para terminar este codigo.

http://www.asp101.com/articles/chris...ts/default.asp

bakanzipp · #10 (**permalink**) 19/06/2003, 21:34

Muy interesante, con el enlace de bakanzipp, funciona solo si quiero totalizar el numero de motos, carros y barcos, pero como podria obtener el total, o sea la sumatoria de motos, carros y barcos, para poder estimar el Porcentaje que representa cada uno de los items (carros, motos y barcos) con respecto al total?

ALguna idea?
*********************************
dos formas

1: hacer un sql que no agrupe por categorias y uno que agrupe por categorias
2: despues de rescatar y recorrer las sumas de cada categoria hacer una suma completa para obtener la suma total y asi usarlos en porcentajes

1: "select count(campo) as total from tabla"
: "select count(campo) as total_cat from tabla group by campo"

2: "select count(campo) as total_cat from tabla group by campo"
....
total=0
while not rs.eof
total = total + rs("total_cat")
rs.movenext
...
wend
...
bla..bla...bla

OooH-Boy · #11 (**permalink**) 20/06/2003, 18:06

Hola una pregunta podrias poner algun codigo completo por favor.. gracias.

Eutheola · #12 (**permalink**) 20/06/2003, 20:35

Como serian los dos SQL, uno primero y enseguida el otro o cada uno con su cierre del recorset?

Si tienes un ejemplo sencillo pero eficiente seria muy OK

OooH-Boy · #13 (**permalink**) 22/06/2003, 01:25

Hola, amigos me doy por vencido no encuentro la solucion a mi problema eh leido y visto mas codigos y ninguno encuentro o entiendo que me pueda ayudar que tan dificil es :
Tenes una lsitas de datos en un registro llamado Categorias y la table1 y lo que quiero que me cuente cuantas veces aparce cada articulo (moto,carro, bote, etc) y estos datos graficarlos en una bar chart .. pero bueno creo que nadie me pudo prestar un poquito de ayuda gracias cuando encuentre alguien algo me lo mandan por favor gracias

carro 12
moto10
bote10
total 32

graficar estos datos.

OooH-Boy · #14 (**permalink**) 24/06/2003, 00:44

Hola ya encontre la solucion a mi problema si alguien lo necesita solo pregunte.

Gracias por todo estye foro es de mucha ayuda.

Eutheola · #15 (**permalink**) 24/06/2003, 14:47

Porque no la posteas para todos ?

Pudiste totalizar los campos?