none
Conexão banco de dados access RRS feed

  • Pergunta

  • Prezados,

    como faço para conectar meu banco de dados access que está em C:\dados\MeuBanco\MeuBanco.mdb através de uma SQL, e exibir os dados da tabela alunoC, da colunas Nome e Aderencia em um MSChart, mas por codigo ?


    Att, Estanislau Frade msn: lauedele@hotmail.com email: estanislaufrade@yahoo.com.br estanislau.frade@vale.com
    domingo, 20 de novembro de 2011 23:50

Respostas

  • Pessoal para quem tem dúvida com gráfico, segue modelo de como conseguir apresentar os dados de uma tabela em MSChart.

     

    Imports System.IO

    Imports System.Data.OleDb

    Imports System.Windows.Forms.DataVisualization.Charting

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

      Public

    Class Form1

     Dim cmd As OleDbDataAdapter

     Dim cnn As New OleDbConnection(My.Settings.ConnectMDB)

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

     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

     Dim DS As New DataSet

    cmd = New OleDbDataAdapter("Select * From alunosC", cnn)

     Dim Comando As New OleDbDataAdapter("SELECT TOP 5 Nome, Aderencia From alunosC", cnn)

    cnn.Open()

    cmd.Fill(DS)

    cnn.Close()

    Chart1.DataSource = Comando

    Chart1.Series("Series1").XValueMember = "Nome" 

    Chart1.Series("Series1").YValueMembers = "Aderencia" 

    Chart1.Series("Series1").ChartType = SeriesChartType.Bar

    Chart1.Series("Series1").Color = Color.Red

    Chart1.Series("Series1").Name = "IAMOT"

      

    End Sub

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

    End Class

     


    Att, Estanislau Frade msn: lauedele@hotmail.com email: estanislaufrade@yahoo.com.br estanislau.frade@vale.com
    segunda-feira, 21 de novembro de 2011 20:58

Todas as Respostas

  • ASP .NET - Usando consultas armazenadas no Access
    http://www.macoratti.net/aspn_sp2.htm

    Inserindo dados em um banco de dados Access
    http://www.macoratti.net/aspn_wm1.htm
    --
    Marque as respostas e ajude a melhorar a busca do fórum.
    segunda-feira, 21 de novembro de 2011 11:44
  • Fala Estanislau,

    Não sei se entendi bem sua pergunta.. mas..

    - Você esta com dúvida em fazer a query de consulta ao Acces?

    - Você esta com dúvida em fazer a conexão com acces?

    - Você esta com dúvida de como passar o resultado a consulta para o MSChart?

     

    OK?


    Francisco Gonçalves
    Blog: franciscogoncalves.wordpress.com
    segunda-feira, 21 de novembro de 2011 11:46
  • Francisco, boa tarde.... Acabei de conseguir, era jogar dados de uma tabela access no grafico. Imports System.IO Imports System.Data.OleDb Imports System.Windows.Forms.DataVisualization.Charting Public Class Form1 Dim cmd As OleDbDataAdapter Dim cnn As New OleDbConnection(My.Settings.ConnectMDB) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim DS As New DataSet cmd = New OleDbDataAdapter("Select * From alunosC", cnn) Dim Comando As New OleDbDataAdapter("SELECT TOP 5 Nome, Aderencia From alunosC", cnn) cnn.Open() cmd.Fill(DS) cnn.Close() Chart1.DataSource = Comando Chart1.Series("Series1").XValueMember = "Nome" Chart1.Series("Series1").YValueMembers = "Aderencia" Chart1.Series("Series1").ChartType = SeriesChartType.Bar Chart1.Series("Series1").Color = Color.Red 'Chart1.Series("series1"). End Sub
    Att, Estanislau Frade msn: lauedele@hotmail.com email: estanislaufrade@yahoo.com.br estanislau.frade@vale.com
    • Sugerido como Resposta Daniel NJ segunda-feira, 21 de novembro de 2011 18:48
    segunda-feira, 21 de novembro de 2011 17:32
  • Pessoal para quem tem dúvida com gráfico, segue modelo de como conseguir apresentar os dados de uma tabela em MSChart.

     

    Imports System.IO

    Imports System.Data.OleDb

    Imports System.Windows.Forms.DataVisualization.Charting

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

      Public

    Class Form1

     Dim cmd As OleDbDataAdapter

     Dim cnn As New OleDbConnection(My.Settings.ConnectMDB)

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

     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

     Dim DS As New DataSet

    cmd = New OleDbDataAdapter("Select * From alunosC", cnn)

     Dim Comando As New OleDbDataAdapter("SELECT TOP 5 Nome, Aderencia From alunosC", cnn)

    cnn.Open()

    cmd.Fill(DS)

    cnn.Close()

    Chart1.DataSource = Comando

    Chart1.Series("Series1").XValueMember = "Nome" 

    Chart1.Series("Series1").YValueMembers = "Aderencia" 

    Chart1.Series("Series1").ChartType = SeriesChartType.Bar

    Chart1.Series("Series1").Color = Color.Red

    Chart1.Series("Series1").Name = "IAMOT"

      

    End Sub

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

    End Class

     


    Att, Estanislau Frade msn: lauedele@hotmail.com email: estanislaufrade@yahoo.com.br estanislau.frade@vale.com
    segunda-feira, 21 de novembro de 2011 20:58
  • Legal..

    Show de bola...


    Francisco Gonçalves
    Blog: franciscogoncalves.wordpress.com
    segunda-feira, 21 de novembro de 2011 21:58