Visual Basic - Poner un chart de un sistema de ejes de una consulta en SQL Server

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Matias
Val: 7
Ha aumentado su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Poner un chart de un sistema de ejes de una consulta en SQL Server

Publicado por Matias (4 intervenciones) el 01/02/2019 00:46:23
Buenas noches, en un formulario puse un Chart con ChartType: Spline como se ve en la foto. Mi idea es que en la gráfica se plasme una consulta que realice en SQL Server y sería esta:

create proc ventas_del_mes
as
SELECT (num_ticket) AS Nº_VENTA, (fecha_venta) AS FECHA
FROM venta
ORDER BY fecha_venta


me muestra las ventas por fecha.

Busqué por todos lados y no encuentro solución, intenté hacerlo por un DataSource pero no me dio resultado. Desde ya muchas gracias!
SDFSDGFSDSDFG
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 120
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Poner un chart de un sistema de ejes de una consulta en SQL Server

Publicado por raul (56 intervenciones) el 06/02/2019 16:21:55
prueba esto este ejemplo es propio tiene la database tiene 3 campo Cplan, Creal y MES
asume que tienes un recordset que maneja la consulta y se llama RSVIRT

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub DIBU()
If RSVIRT.RecordCount > 0 Then
With MSChart1
.TITLE = "Detalles"
.ChartType = VtChChartType2dLine
.ColumnCount = 2
.RowCount = RSVIRT.RecordCount
.Column = 1
.ColumnLabel = "Plan"
' cargando la parte del plan
RSVIRT.MoveFirst: BUCLE = 1
Do While Not RSVIRT.EOF
.Row = BUCLE
.Data = RSVIRT!CPLAN
RSVIRT.MoveNext
BUCLE = BUCLE + 1
Loop
' cargando la parte del Real
.Column = 2: .ColumnLabel = "Real"
RSVIRT.MoveFirst: BUCLE = 1
Do While Not RSVIRT.EOF
.Row = BUCLE
.Data = RSVIRT!CREAL
.RowLabel = RSVIRT!Mes
RSVIRT.MoveNext
BUCLE = BUCLE + 1
Loop
.ShowLegend = True
End With
End If
End Sub

si vas a trabajar solo con una columna modifica esta linea
.ColumnCount = 2 por .ColumnCount = 1 y retira del codigo las lineas de la columna 2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Matias
Val: 7
Ha aumentado su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Poner un chart de un sistema de ejes de una consulta en SQL Server

Publicado por Matias (4 intervenciones) el 09/02/2019 02:47:34
Gracias Raul, ya lo pruebo y veo que tal. Hasta el momento lo hice de una forma más sencilla:creando un reporte e insertando el gráfico. Saludos!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar