none
Enlazar Chart a tabla RRS feed

  • Pregunta

  • Hola. Tengo un chart que quiero enlazar con una tabla y así ver los datos de esta tabla en un gráfico. Escribí el código y funciona pero hay algunos detalles que no puedo solucionar. 

      Sub CargarChart()
            Dim conexion As New OleDbConnection
            Dim consulta As String
            Dim comando As New OleDbCommand
            Dim da As New OleDbDataAdapter
            Dim ds As New DataSet
            Dim dt As New DataTable
            Dim miView As DataView
            Dim Cartera As String
            Dim RenglonPago As String
            Dim RenglonFecha As String
    
            Me.Chart4.Series(0).Points.Clear()
    
            Cartera = ComboBox1.Text
    
            consulta = "SELECT * FROM BaseDePagos WHERE ClienteEmpresa = @cart"
    
            conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\GestOrg\GestOrgSolucion\GestOrg\DBGestOrg.accdb"
            conexion.Open()
    
            comando = New OleDbCommand(consulta, conexion)
            comando.Parameters.AddWithValue("@cart", cartera)
    
            da.SelectCommand = comando
            da.Fill(ds)
            dt = ds.Tables(0)
    
            RenglonPago = dt.Columns("MontoDelPago").ColumnName
            RenglonFecha = dt.Columns("FechaDePago").ColumnName
    
            Chart4.DataSource = dt
    
            miView = New DataView(dt)
    
            For x = 0 To miView.Count - 1
    
                Me.Chart4.Series(0).Points.AddXY(miView(x)(RenglonFecha), miView(x)(RenglonPago))
                Me.Chart4.Series(0).LegendText = "Pagos"
    
            Next
    
            conexion.Close()
            conexion.Dispose()
    end sub

    Desde ya les agradezco su ayuda.


    Post MSDN

    miércoles, 29 de enero de 2020 6:06

Respuestas

Todas las respuestas