Estadisticas En Visual Basic 6 Y Bd

[okdoris]

HOLA CHICOS OTRA VEZ YO!!!
PUES ALGUIEN SABE COMO MOSTRAR DATOS ESTADISTICOS EN VISUAL BASIC??? PUES ALGO ASI COMO CUAL ES EL ARTICULO QUE MAS SE VENDIO EN EL MES O ALGO ASI, PUEDE SER DE MANERA GRAFICA, POR LO MENOS AGRADECERIA ALGUNA IDE
GRACIAS

[Insomnia]

Hola

Para realizar gráficos puedes usar el control MSChart, y para obtener los datos puedes utilizar una select en un recordset y luego pasas ese recordset al MSChart a través de su propiedad DataSource.

--Saludos--

[okdoris]

MUCHAS GRACIAS POR RESPORDERME, LA VERDAD ES QUE ME HAS DADO UNA GRAN IDEA. VOY A INTENTAR MANEJAR EL CONTROL MSChart QUE NUNCA LO HABIA ESCUCHADO.
SI PUEDES O ALGUIEN PUEDE SEGUIR DANDOME INDICACIONES SE LOS AGRADEZCO MUCHO, NO SE IMAGINAN LO MUCHO QUE APRENDO.
GRACIAS!!!

[Insomnia]

Hola

Yo no he utilizado el control para realizar gráficos muy complejos, pero para uno sencillo no tiene gran complicación, primero tienes que agregar el componente Microsoft Chart Control. El código sería de esta forma:

Código:

Proveedor = "Microsoft.jet.OLEDB.4.0"
    OrigenDatos = App.Path & "\bd.mdb" 'Ruta BD
    
    comando = "Select sem, count(miembro) as [Total mienbros], sum(tottxsem) as [Total Transminsiones] from Tabla1 group by dnid, sem having dnid='" & Combo1.Text & "'" 'Select que queremos
    
    cnn.Open "provider=" & Proveedor & ";Data Source=" & OrigenDatos
    
    reg.Open comando, cnn, adOpenStatic
    
    reg.MoveLast
    reg.MoveFirst
    With Grafico
        .ShowLegend = True
        .ChartType = VtChChartType2dLine 'Tipo de Graf
        Set .DataSource = reg 'De donde coge los datos
        '.Title.VtFont.Size = 16
        '.TitleText = Combo1.Text 'Titulo del Gráfico
    End With

Como puedes ver utilizo una select con Count y Sum y luego agrupado, en tu caso puedes adaptar la select a tus necesidades algo como Select Count(CodItem) from Ventas Group by month(fecha) y luego pasar el recordset obtenido al gráfico.

--Saludos--