Encontré este ejemplo lo estoy modificando es para graficar en asp y bd de access me funciona todo bien nomas en la parte donde se agrega las categorias no me funciona solo me muestra una categoria segun entiendo es que requiere llaves para crear otra categoria , no se mucho de javascript asi que requiero su ayuda... Gracias
Como muestra el codigo original aqui se agregan las categorias , pero quiero q se agrege con la base datos y en codigo de abajo solo me muestra el ultimo resultado entonces klo que tengo q suponer es que requiere abrir y cerras llaves para decir que es otra categoria que puedo hacer
Código Javascript
:
Ver original{
"balloonText": "<b>[[title]]</b><br><span style='font-size:14px'>[[category]]: <b>[[value]]</b></span>",
"fillAlphas": 0.8,
"labelText": "[[value]]",
"lineAlpha": 0.3,
"title": "BURO VICTORIA K.S x C/T",
"type": "column",
"color": "#000000",
"valueField": "BURO VICTORIA K.S x C/T",
}
Código Javascript
:
Ver original"graphs": [ {
"balloonText": "<b>[[title]]</b><br><span style='font-size:14px'>[[category]]: <b>[[value]]</b></span>",
"fillAlphas": 0.8,
"labelText": "[[value]]",
"lineAlpha": 0.3,
<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("SSP.mdb"))
strSQL = "SELECT Pieza FROM HistEstaPiezaHora where Ubicacion='"&Depa&"' and Fecha=#"&Fecha&"#"
Set objRS = oConn.Execute(strSQL)
while (not objRS.Eof)
%>
"title": "<%Response.Write("" & objRS("Pieza") & "")%>",
<%
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
"type": "column",
"color": "#000000",
<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("SSP.mdb"))
strSQL = "SELECT Pieza FROM HistEstaPiezaHora where Ubicacion='"&Depa&"' and Fecha=#"&Fecha&"#"
Set objRS = oConn.Execute(strSQL)
while (not objRS.Eof)
%>
"valueField": "<%Response.Write("" & objRS("Pieza") & "")%>",
<%
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
},{
"balloonText": "<b>[[title]]</b><br><span style='font-size:14px'>[[category]]: <b>[[value]]</b></span>",
"fillAlphas": 0.8,
"labelText": "[[value]]",
"lineAlpha": 0.3,
<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("SSP.mdb"))
strSQL = "SELECT Pieza FROM HistEstaPiezaHora where Ubicacion='"&Depa&"' and Fecha=#"&Fecha&"#"
Set objRS = oConn.Execute(strSQL)
while (not objRS.Eof)
%>
"title": "<%Response.Write("" & objRS("Pieza") & "")%>",
<%
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
"type": "column",
"color": "#000000",
<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("SSP.mdb"))
strSQL = "SELECT Pieza FROM HistEstaPiezaHora where Ubicacion='"&Depa&"' and Fecha=#"&Fecha&"#"
Set objRS = oConn.Execute(strSQL)
while (not objRS.Eof)
%>
"valueField": "<%Response.Write("" & objRS("Pieza") & "")%>",
<%
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
},{
"balloonText": "<b>[[title]]</b><br><span style='font-size:14px'>[[category]]: <b>[[value]]</b></span>",
"fillAlphas": 0.8,
"labelText": "[[value]]",
"lineAlpha": 0.3,
"title": "BURO VICTORIA K.S x C/T",
"type": "column",
"color": "#000000",
"valueField": "BURO VICTORIA K.S x C/T",
}]