ActiveX - un PEQUEÑO problema

un PEQUEÑO problema

Publicado por Paula (4 intervenciones) el 19/02/2001 21:21:39

Tengo un archivo que gráfica por medio del ActiveX Control Chart ,datos desde una base de dato(Access97), en el eje Y no hay problema se grafican los datos y salen tabulados en el eje, el PROBLEMA está en el eje X, ya que el ActiveX muestra VARIABLES por defecto (R0,R1,….R63), y yo quiero mostrar los datos que corresponden a ese eje

Alguien sabe cual es la forma de ingresar los datos por medio de una propiedad ¿Cual sedría y como funciona? O es de otra forma
Por favor si no entienden bien la pregunta hagamenlo saber

El código es el siguiente( hasta puede que le sirva):

<HTML>
<HEAD>
</HEAD>

<BODY>
<%
set cn = server.CreateObject("ADODB.connection")
set rs = server.CreateObject("ADODB.Recordset")
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & BASEDATO
SQL = "SELECT * from CONSULTA"
rs.open SQL, cn
while not rs.eof
num=num+1
rs.movenext
wend
rs.movefirst
%>

<CENTER>
<OBJECT ID="iechart1"
CLASSID="CLSID:FC25B780-75BE-11CF-8B01-444553540000" ‘llamada al control chart
STYLE="TOP:1000pt;LEFT:50pt;WIDTH:700pt;HEIGHT:364pt;ZINDEX:0;">
<PARAM NAME="_ExtentX" VALUE="9022">
<PARAM NAME="_ExtentY" VALUE="6429">
<PARAM NAME="Rows" VALUE="<%response.write num%>"> ‘num (numero de registros del campo)en este caso es 64
<PARAM NAME="Columns" VALUE="1">
<PARAM NAME="ChartType" VALUE="12">

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

un PEQUEÑO problema

Publicado por Alejandro Andrade (213 intervenciones) el 27/03/2023 23:25:36

Para mostrar los datos correctos en el eje X del Control Chart, debes asignar los valores de tus datos a la propiedad "Data" del control ActiveX. Esta propiedad es una matriz de valores de punto flotante que se utiliza para asignar los valores del gráfico.

Aquí hay un ejemplo de cómo hacerlo en VBScript:

<%

' Obtener los datos de la base de datos '

set cn = server.CreateObject("ADODB.connection")

set rs = server.CreateObject("ADODB.Recordset")

cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & BASEDATO

SQL = "SELECT * from CONSULTA"

rs.open SQL, cn

' Crear un array para almacenar los datos '

dim data(63)

i = 0

while not rs.eof

    data(i) = rs("nombre_de_campo") ' Reemplaza "nombre_de_campo" con el nombre del campo que deseas graficar en el eje X '

    i = i + 1

    rs.movenext

wend

' Configurar el Control Chart '

num = i

%>

<CENTER>

<OBJECT ID="iechart1"

CLASSID="CLSID:FC25B780-75BE-11CF-8B01-444553540000" ‘llamada al control chart

STYLE="TOP:1000pt;LEFT:50pt;WIDTH:700pt;HEIGHT:364pt;ZINDEX:0;">

<PARAM NAME="_ExtentX" VALUE="9022">

<PARAM NAME="_ExtentY" VALUE="6429">

<PARAM NAME="Rows" VALUE="<%response.write num%>">

<PARAM NAME="Columns" VALUE="1">

<PARAM NAME="ChartType" VALUE="12">

<PARAM NAME="Data" VALUE="<% =join(data, ",") %>"> ' Asignar los datos al eje X '

</OBJECT>

</CENTER>

Reemplaza "nombre_de_campo" con el nombre del campo que deseas graficar en el eje X. También puedes ajustar la longitud de la matriz "data" para que coincida con el número de registros en tu tabla de base de datos.

Espero que esto te ayude a resolver tu problema.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar