Hola a todos, tengo un problema con el MSChart para dibujar una gráfica y quería pedirles ayuda. He buscado en este y muchos foros y no encuentro ninguna solución.
Quiero dibujar una gráfica de tipo XY con el MSChart de VB6. El código que uso es el siguiente:
If Option1.Value = True Then
' Obtener los records o valores.
Set qdef = db.CreateQueryDef("", "SELECT Cantidad , Muestra FROM Tabla")
Set rs = qdef.OpenRecordset(dbOpenSnapshot)
'Ver cuántos valores hay.
rs.MoveLast
NumPoints = rs.RecordCount
ReDim Values(1 To NumPoints, 1 To 2)
'Cargar los datos.
rs.MoveFirst
For i = 1 To NumPoints
Values(i, 1) = rs!Muestra
Values(i, 2) = rs!Cantidad
rs.MoveNext
Next i
'Dibujar gráfica
Chart.chartType = VtChChartType2dXY
Chart.Plot.Axis(VtChAxisIdX).AxisTitle.Text = "Muestras [n]"
Chart.Plot.Axis(VtChAxisIdY).AxisTitle.Text = "Cantidad"
Chart.TitleText = "Cantidad de piezas"
Chart.RowCount = NumPoints
Chart.ColumnCount = 2
Chart.ChartData = Values
End If
El código que les presento me saca una gráfica de la forma de la imagen que adjunto. Sin embargo si uso el tipo de gráfica VtChChartType2dLine me aparece la grafica que espero (ver la segunda imagen que adjunto) pero el eje x no es el qeu quiero y por eso debo usar el tipo XY.
¿Qué creen que tengo mal en el código? La conexión con la base de datos se realiza bien aunque no incluya todo el código ya que la gráfica en line aparece bien. Además no sé si entiendo bien el funcionamiento de las propiedades Column y Row y sus variantes aunque lo he estado mirando detenidamente y además lo he visto igual en varios ejemplos.
Espero qeu me puedan ayudar. Muchas gracias por su ayuda.
Saludos
Alejos
