Gráficos Estadísticos en Visual Basic

Cuestiones y dudas acerca de lenguajes de programación diversos.

Moderador: Moderadores

Avatar de Usuario
Invitado

Mensaje por Invitado » Lun Mar 11, 2002 2:03 am

Deseo imprimir un reporte que tenga dos graficos estadisticos de barras (de eje X y Y), dos en la misma pagina (uno en la parte de arriba y otro abajo), intenté hacelo con excel, usando la programacion que ves abajo, pero no funciona, la razón es ésta: No siempre el número de barras de cada grafico es el mismo, y este toma los datos del 'libro1' que es un archivo ya previamente grabado en excel que tiene hechos dos graficos pero tu sabes que al hacerlo uno define previamente de que rango de celdas tomar los datos, eso significaría que siempre va a ser el mismo grafico del mismo numero de barras, y yo necesito que ese numero de barras varíe dependiendo de lo que el usuario escoja, ¿Como puedo hacer para decirle al grafico que tome los datos de tal celda a tal celda, en tiempo de ejecucion?, ¿Como le digo que el grafico tendra tantas barras?
Por favor es muy urgente, porque de eso depende que yo pueda graduarme ahora, aqui mando la informacion para ver si alguien puede ayudar, es relamente urgente, al menos intenten ayudarme un poquito ¿si?
En resumen, lo que necesito es poder decirle en tiempo de ejecucion al grafico de cuales celdas debe coger los datos, es decir cuantas barras tendra cada uno de los dos graficos de esa hoja.
PD. Tengo un archivo de crystal report donde pego el grafico de excel (con la opcion 'pegado especial', y como este grafico está pegao como un link al archivo libro1.xls, entonces se actualiza solito cuando se actualiza el grafico de excel)

Si saben omo hacer este reporte aunque sea de otra manera, no importa, sea que haya que usar el chart o el crystal report o excel o lo que sea, el asunto es que salga el reporte. Lo importante es imprimir en una misma hoja dos graficos y poder decir en tiempo de ejecucion cuantas barras tendra cada uno de los dos. Porfavor ayúdenme.
Gracias de antemano por tu intento...
Vanessa


Este es el codigo que enlaza con excel, pero si lo saben de otra manera lo recibiré con gusto....gracias...

Private Sub CmdImprimeReporte_Click()
Dim sql As String
Dim rst As ADODB.Recordset
Dim i As Integer
Dim excelsheet As Object
Set excelsheet = CreateObject("Excel.sheet")
Set excelsheet = GetObject("C:Reporteslibro1.xls")
'*****Datos para el PRIMER grafico:
sql = ""
sql = "select * from tabla_temparea"
sql = sql & " where año = '" & año & "'"
Set rst = Conec.Execute(sql, adOpenForwardOnly)
If rst.EOF Then: Exit Sub: End If
num = 1
While Not rst.EOF
excelsheet.Worksheets(1).Range("A" & num).Value = rst!num_area
excelsheet.Worksheets(1).Range("B" & num).Value = rst!tot_area
num = num + 1
rst.MoveNext
Wend
'*****Datos para el SEGUNDO grafico:
sql = ""
sql = "select * from tabla_temppreg"
sql = sql & " where año = '" & año & "'"
Set rst = Conec.Execute(sql, adOpenForwardOnly)
If rst.EOF Then: Exit Sub: End If
num2 = 1
While Not rst.EOF
excelsheet.Worksheets(1).Range("C" & num2).Value = rst!num_pregunta
excelsheet.Worksheets(1).Range("D" & num2).Value = rst!tot_pregunta
num2 = num2 + 1
rst.MoveNext
Wend
excelsheet.Saveas "c:Reporteslibro1.xls"

excelsheet.Application.Quit
Set excelsheet = Nothing

'*****Para imprimir el reporte en crystal report:
Crt.Connect = "Dsn=Cise;Database=basecise"
Crt.SelectionFormula = " ... aqui va el filtro por criterios"
Crt.ReportFileName = "C:ReportesGRAFICO.rpt"
Crt.Destination = 0: Crt.Action = 1
End Sub


Vanessa

wilburg
Senior
Mensajes: 40
Registrado: Jue Mar 21, 2002 1:00 am
Ubicación: Venezuela

Mensaje por wilburg » Lun Abr 08, 2002 6:00 pm

Hola, una ves me todo armar graficas en Visual Basic, lo logre a traves del Cristal Repord (no se si se escribe asi), el tiene la opcion de graficar en coordenadas X,Y informacion numérica almacenada en una tabla de access, supongo de que otras bases de datos tamién, es muy sencillo, espero que te sirva

Avatar de Usuario
jorge

necesito ayuda

Mensaje por jorge » Lun Ene 30, 2006 9:32 pm

[quote="wilburg"]Hola, una ves me todo armar graficas en Visual Basic, lo logre a traves del Cristal Repord (no se si se escribe asi), el tiene la opcion de graficar en coordenadas X,Y informacion numérica almacenada en una tabla de access, supongo de que otras bases de datos tamién, es muy sencillo, espero que te sirva[/quo

hola estuve leyendo tu informacion y me gustaria si pudieras ayudarme con algun ejemplo que me envies por favor estoy muy necesitado gracias de ante manos aqui esta mi correo eduardo_frugone@hotmail.com

Responder