Mschart en pagina asp
Hola, estoy haciendo una pagina asp q muestra unas estadisticas de ventas en unos grids, pero quiero mostrar estos mismos resultados es unos graficos de barras, mi pregunta es si se pueden mostrar usando el control activex mschart, y como, ya que no consigo q el grafico muestre los datos que le paso. Por favor responderrme pronto, gracias. [email protected]
1 Respuesta
Respuesta de gmolino
1
Te mando el código de una pagina que yo uso con gráficos, para que todo funcione debe de estar registrado como componente el control mschart. Yo lo hago desde VB.
Este es el codigo:
<%
Function contarDatos(strCadena)
Dim intcont
Dim intcarac
intcont=1
intcarac=0
while (intcont<=len(strCadena))
if Mid(strCadena,intcont,1)=";" then
intcarac=intcarac+1
end if
intcont=intcont+1
wend
contarDatos=intcarac
end function
Dim filas
Dim columnas
Dim arrFilas()
Dim arrColumnas()
Dim arrDatos()
Dim aux,aux2,aux3
Dim cadena,cadenaAux
cadenaAux=Request("hidTitFilas")
filas=contarDatos(cadenaAux)
Redim arrFilas(filas-1)
aux=0
aux2=0
while aux<filas
cadena=""
aux2=aux2+1
while mid(cadenaAux,aux2,1)<>";"
cadena=cadena & mid(cadenaAux,aux2,1)
aux2=aux2+1
wend
arrFilas(aux)=cadena
aux=aux+1
wend
cadenaAux=Request("hidTitColum")
columnas=contarDatos(cadenaAux)
Redim arrColumnas(columnas-1)
aux=0
aux2=0
while aux<columnas
cadena=""
aux2=aux2+1
while mid(cadenaAux,aux2,1)<>";"
cadena=cadena & mid(cadenaAux,aux2,1)
aux2=aux2+1
wend
arrColumnas(aux)=cadena
aux=aux+1
wend
redim arrDatos(filas,columnas)
cadenaAux=Request("hidDatos")
aux = 0
aux2 = 0
While aux < filas
aux3 = 0
While aux3 < columnas
cadena = ""
aux2 = aux2 + 1
While Mid(cadenaAux, aux2, 1) <> ";"
cadena = cadena & Mid(cadenaAux, aux2, 1)
aux2 = aux2 + 1
Wend
arrDatos(aux, aux3) = cadena
aux3 = aux3 + 1
Wend
aux = aux + 1
Wend
%>
<HTML>
<HEAD>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="estilo.css">
</HEAD>
<script language="vbscript">
Sub cambioFormato()
select case select1(select1.selectedIndex).text
case "3dBar" DMSChart1.chartType=0
case "2dBar" DMSChart1.chartType=1
case "3dLine" DMSChart1.chartType=2
case "2dLine" DMSChart1.chartType=3
case "3dArea" DMSChart1.chartType=4
case "2dArea" DMSChart1.chartType=5
case "3dStep" DMSChart1.chartType=6
case "2dStep" DMSChart1.chartType=7
case "3dCombination" DMSChart1.chartType=8
case "2dCombination" DMSChart1.chartType=9
case "2dPie" DMSChart1.chartType=14
case "2dXY" DMSChart1.chartType=16
end select
end sub
Sub cargaDatos()
DMSChart1.RowCount= <%=filas%>
DMSChart1.ColumnCount= <%=columnas%>
DMSChart1.RowLabelCount= <%=filas%>
<%
aux=0
while (aux<filas)
%>
DMSChart1.Row= <%=aux+1%>
DMSChart1.RowLabel="<%=arrFilas(aux)%>"
<%
aux=aux+1
wend
%>
DMSChart1.ColumnLabelCount=<%=columnas%>
<%
aux=0
while (aux<columnas)
%>
DMSChart1.Column= <%=aux+1%>
DMSChart1.ColumnLabel="<%=arrColumnas(aux)%>"
<%
aux=aux+1
wend
aux=0
while (aux<filas)
aux2=0
while (aux2<columnas)
%>
DMSChart1.DataGrid.SetData <%=aux+1%>,<%=aux2+1%>,<%=arrDatos(aux,aux2)%>,0
<%
aux2=aux2+1
wend
aux=aux+1
wend
%>
DMSChart1.Legend.Location.LocationType=6
DMSChart1.Legend.VtFont.Size=8
DMSChart1.ShowLegend=true
DMSChart1.Refresh
end sub
</script>
<BODY style="BACKGROUND-COLOR:#DCDCDC;">
<P align=center>Seleccione tipo de gráfico:
<SELECT id=select1 name=select1 style="HEIGHT: 22px; WIDTH: 216px" onchange="cambioFormato()">
<% Dim sele
Dim arrTipos(3)
arrTipos(0)="3dBar"
arrTipos(1)="2dBar"
' arrTipos(2)="3dLine"
' arrTipos(3)="2dLine"
' arrTipos(4)="3dArea"
' arrTipos(5)="2dArea"
' arrTipos(6)="3dStep"
' arrTipos(7)="2dStep"
' arrTipos(8)="3dCombination"
' arrTipos(9)="2dCombination"
arrTipos(2)="2dPie"
' arrTipos(11)="2dXY"
aux=0
while (aux<3)
sele=""
if Request("hidTipGraf")=arrTipos(aux) then
sele="SELECTED"
end if
%>
<OPTION <%=sele%> > <%=arrTipos(aux)%> </OPTION>
<% aux=aux+1
wend
%>
</SELECT>
</P>
<TABLE ALIGN=CENTER>
<TR>
<TD style="BACKGROUND-COLOR:#DCDCDC;">
<OBJECT classid=clsid:3A2B370C-BA0A-11D1-B137-0000F8753F5D
id=DMSChart1 style="HEIGHT: 400px; WIDTH: 700px"
CODEBASE="/CABS/MSCHRT20.CAB#version=6,0,88,4"
VIEWASTEXT></OBJECT>
</TD>
</TR>
</TABLE>
<script language="vbscript">
call cargaDatos()
call cambioFormato()
'DMSChart1.AllowSelections=false
'DMSChart1.AllowDynamicRotation=false
</script>
</BODY>
</HTML>
Este es el codigo:
<%
Function contarDatos(strCadena)
Dim intcont
Dim intcarac
intcont=1
intcarac=0
while (intcont<=len(strCadena))
if Mid(strCadena,intcont,1)=";" then
intcarac=intcarac+1
end if
intcont=intcont+1
wend
contarDatos=intcarac
end function
Dim filas
Dim columnas
Dim arrFilas()
Dim arrColumnas()
Dim arrDatos()
Dim aux,aux2,aux3
Dim cadena,cadenaAux
cadenaAux=Request("hidTitFilas")
filas=contarDatos(cadenaAux)
Redim arrFilas(filas-1)
aux=0
aux2=0
while aux<filas
cadena=""
aux2=aux2+1
while mid(cadenaAux,aux2,1)<>";"
cadena=cadena & mid(cadenaAux,aux2,1)
aux2=aux2+1
wend
arrFilas(aux)=cadena
aux=aux+1
wend
cadenaAux=Request("hidTitColum")
columnas=contarDatos(cadenaAux)
Redim arrColumnas(columnas-1)
aux=0
aux2=0
while aux<columnas
cadena=""
aux2=aux2+1
while mid(cadenaAux,aux2,1)<>";"
cadena=cadena & mid(cadenaAux,aux2,1)
aux2=aux2+1
wend
arrColumnas(aux)=cadena
aux=aux+1
wend
redim arrDatos(filas,columnas)
cadenaAux=Request("hidDatos")
aux = 0
aux2 = 0
While aux < filas
aux3 = 0
While aux3 < columnas
cadena = ""
aux2 = aux2 + 1
While Mid(cadenaAux, aux2, 1) <> ";"
cadena = cadena & Mid(cadenaAux, aux2, 1)
aux2 = aux2 + 1
Wend
arrDatos(aux, aux3) = cadena
aux3 = aux3 + 1
Wend
aux = aux + 1
Wend
%>
<HTML>
<HEAD>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="estilo.css">
</HEAD>
<script language="vbscript">
Sub cambioFormato()
select case select1(select1.selectedIndex).text
case "3dBar" DMSChart1.chartType=0
case "2dBar" DMSChart1.chartType=1
case "3dLine" DMSChart1.chartType=2
case "2dLine" DMSChart1.chartType=3
case "3dArea" DMSChart1.chartType=4
case "2dArea" DMSChart1.chartType=5
case "3dStep" DMSChart1.chartType=6
case "2dStep" DMSChart1.chartType=7
case "3dCombination" DMSChart1.chartType=8
case "2dCombination" DMSChart1.chartType=9
case "2dPie" DMSChart1.chartType=14
case "2dXY" DMSChart1.chartType=16
end select
end sub
Sub cargaDatos()
DMSChart1.RowCount= <%=filas%>
DMSChart1.ColumnCount= <%=columnas%>
DMSChart1.RowLabelCount= <%=filas%>
<%
aux=0
while (aux<filas)
%>
DMSChart1.Row= <%=aux+1%>
DMSChart1.RowLabel="<%=arrFilas(aux)%>"
<%
aux=aux+1
wend
%>
DMSChart1.ColumnLabelCount=<%=columnas%>
<%
aux=0
while (aux<columnas)
%>
DMSChart1.Column= <%=aux+1%>
DMSChart1.ColumnLabel="<%=arrColumnas(aux)%>"
<%
aux=aux+1
wend
aux=0
while (aux<filas)
aux2=0
while (aux2<columnas)
%>
DMSChart1.DataGrid.SetData <%=aux+1%>,<%=aux2+1%>,<%=arrDatos(aux,aux2)%>,0
<%
aux2=aux2+1
wend
aux=aux+1
wend
%>
DMSChart1.Legend.Location.LocationType=6
DMSChart1.Legend.VtFont.Size=8
DMSChart1.ShowLegend=true
DMSChart1.Refresh
end sub
</script>
<BODY style="BACKGROUND-COLOR:#DCDCDC;">
<P align=center>Seleccione tipo de gráfico:
<SELECT id=select1 name=select1 style="HEIGHT: 22px; WIDTH: 216px" onchange="cambioFormato()">
<% Dim sele
Dim arrTipos(3)
arrTipos(0)="3dBar"
arrTipos(1)="2dBar"
' arrTipos(2)="3dLine"
' arrTipos(3)="2dLine"
' arrTipos(4)="3dArea"
' arrTipos(5)="2dArea"
' arrTipos(6)="3dStep"
' arrTipos(7)="2dStep"
' arrTipos(8)="3dCombination"
' arrTipos(9)="2dCombination"
arrTipos(2)="2dPie"
' arrTipos(11)="2dXY"
aux=0
while (aux<3)
sele=""
if Request("hidTipGraf")=arrTipos(aux) then
sele="SELECTED"
end if
%>
<OPTION <%=sele%> > <%=arrTipos(aux)%> </OPTION>
<% aux=aux+1
wend
%>
</SELECT>
</P>
<TABLE ALIGN=CENTER>
<TR>
<TD style="BACKGROUND-COLOR:#DCDCDC;">
<OBJECT classid=clsid:3A2B370C-BA0A-11D1-B137-0000F8753F5D
id=DMSChart1 style="HEIGHT: 400px; WIDTH: 700px"
CODEBASE="/CABS/MSCHRT20.CAB#version=6,0,88,4"
VIEWASTEXT></OBJECT>
</TD>
</TR>
</TABLE>
<script language="vbscript">
call cargaDatos()
call cambioFormato()
'DMSChart1.AllowSelections=false
'DMSChart1.AllowDynamicRotation=false
</script>
</BODY>
</HTML>
