none
Graficos RRS feed

  • Pergunta

  • Boas

     

    Estou com um problema neste codigo:

     

     

    	
    
      Dim strConn As String = "Data Source=BKKSQL001\INSTANCE01;" & _
       "Initial Catalog=Northwind;Integrated Security=True"
     
      Dim conn As New SqlConnection(strConn)
     
      Dim sqlProducts As String = "SELECT Top 8 ProductName, UnitsInStock FROM Products"
      Dim da As New SqlDataAdapter(sqlProducts, conn)
      Dim ds As New DataSet()
      da.Fill(ds, "Products")
     
      Dim ChartArea1 As ChartArea = New ChartArea()
      Dim Legend1 As Legend = New Legend()
      Dim Series1 As Series = New Series()
      Dim Chart1 = New Chart()
      Me.Controls.Add(Chart1)
     
      ChartArea1.Name = "ChartArea1"
      Chart1.ChartAreas.Add(ChartArea1)
      Legend1.Name = "Legend1"
      Chart1.Legends.Add(Legend1)
      Chart1.Location = New System.Drawing.Point(13, 13)
      Chart1.Name = "Chart1"
      Series1.ChartArea = "ChartArea1"
      Series1.Legend = "Legend1"
      Series1.Name = "Series1"
      Chart1.Series.Add(Series1)
      Chart1.Size = New System.Drawing.Size(800, 400)
      Chart1.TabIndex = 0
      Chart1.Text = "Chart1"
     
      Chart1.Series("Series1").XValueMember = "ProductName"
      Chart1.Series("Series1").YValueMembers = "UnitsInStock"
     
      Chart1.DataSource = ds.Tables("Products")

     

    Através de um comobox consigo ver quais os ficheiro mdb que estão numa determinada pasta em rede.

    Então necessito que este código lei-a a minha escolha na combobox e vá buscar os dados ao ficheiro que escolhi, que estará na pasta de rede.

    E assim me mostre os valores do ficheiro mdb mas em grafico.

    Em vez de se assumir um só ficheiro a um gráfico, como normalmente se faz, aqui terei a opção de escolher os ficheiros e vê-los em gráficos.

     

    Acham que é possivel?

     

    Abrcs

    terça-feira, 18 de janeiro de 2011 15:13

Respostas

Todas as Respostas

  • public class CBO_ITEM

    private lNOME as string

    private lVALUE as object

     

        Public Property mNOME() as String

            Get

    return lNOME

            End Get

            Set(ByVal value as String)

    lNOME = value

            End Set

        End Property

     

            Public Property mVALUE() as String

            Get

    return lVALUE

            End Get

            Set(ByVal value as String)

    lVALUE = value

            End Set

        End Property

     

        'Quando você jogar na combo esse item, ele vai mostrar o que você

        'colocar no ToString().    

        Public Overrides Function ToString() As String

            Return lNOME

        End Function   

     

        sub new(byval lNome as string,byval lValue as object)

    mNome = lNome

    mValue = lValue

        end sub

     

    end class

     

    -------------------------

    Codigo no form:

     

    Setar na combo:

    cboTeste.Items.Add(new CBO_ITEM("FICHEIRO 1","C:\FICHEIRO_1.XML"))

    cboTeste.Items.Add(new CBO_ITEM("FICHEIRO 2","C:\FICHEIRO_2.XML"))

     

    Pegar da combo:

    Dim x as new CBO_ITEM

    x = cboTeste.SelectedItem

    segunda-feira, 14 de fevereiro de 2011 12:04
  • Olá Flashed!

    Para você selecionar via combo acredito que o código abaixo possa lhe dar uma luz:

    Utilize o Linq.

     Using query As DCLinqBancoDeDados = New DCLinqBancoDeDados()
    
      If CmbSelecionaMes.Text = "Opção Desejada" Then
    
      DataGridView1.DataSource = From c In query.tabela
          		 Order By (c.fn_data)
          		 Select c
      End If
    
     End Using
    
    

    Analise estes link´s para entender o relacionamento feito com o Chart: 

    http://social.msdn.microsoft.com/Forums/pt-BR/linqpt/thread/53bac9e6-3486-4540-ba15-dc5261b9c86b

    http://www.packtpub.com/article/binding-ms-chart-control-to-linq-data-source-control

    Acredito ser o que você precisa.

    att;


    Eder Costa - LATAM Forum Support Engineer
    Microsoft Corporation
    quarta-feira, 16 de fevereiro de 2011 13:26
    Moderador
  • Olá Flashed!

    Houve algum progresso com os link´s sugeridos?

    att;


    Eder Costa - LATAM Forum Support Engineer
    Microsoft Corporation
    sexta-feira, 18 de fevereiro de 2011 18:30
    Moderador