CRYSTAL REPORT
Olá, bom dia
Tem algum programa que posso criar os relatórios e salvar como *.rpt que seja melhor do que o crystal report e que a visualizaçã do crystal reconheça?
Porque eu acho esse construtor do crystal report muito fraco com poucos recursos.
Tem algum programa que posso criar os relatórios e salvar como *.rpt que seja melhor do que o crystal report e que a visualizaçã do crystal reconheça?
Porque eu acho esse construtor do crystal report muito fraco com poucos recursos.
pessoal, tem como integrar dados de um banco em acess e tranformalos em graficos de linha SENDO QUE o grafico deve ser atualizado automaticamente a cada inserção nova de dados?
Eu utilizo a ferramenta chart contida na toolbox, veja se te ajuda:
Imports System.Data.OleDb
Public Class MMC_GRAFICOS
Dim connString As String = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & Application.StartupPath & [Ô]\Cadastro.mdb;Jet OLEDB:Database Password=xxxxx[Ô]
Dim myConnection As OleDbConnection = New OleDbConnection
Private Sub GRAFICOS_INDIRETOS()
myConnection.ConnectionString = connString
Dim da As OleDbDataAdapter = New OleDbDataAdapter([Ô]SELECT TOP 5 MOTIVO_DEVOL, COUNT(MOTIVO_DEVOL) AS QTDE FROM DEVOLUCAO_INDIRETOS GROUP BY MOTIVO_DEVOL ORDER BY COUNT(MOTIVO_DEVOL) DESC[Ô], myConnection)
Dim ds As DataSet = New DataSet
da.Fill(ds, [Ô]table[Ô])
With GRAF_INDIRETOS
.DataSource = ds.Tables(0)
[ô]define o tipo de gráfico
[ô].Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Column
[ô]define o texto da legenda
.Series(0).LegendText = [Ô]Motivo[Ô]
[ô]define o titulo do eixo y , sua fonte e a cor
.ChartAreas(0).AxisY.Title = [Ô]Qtde[Ô]
.ChartAreas(0).AxisY.TitleFont = New Font([Ô]Times New Roman[Ô], 8, FontStyle.Bold)
[ô].ChartAreas(0).AxisY.TitleForeColor = Color.Blue
[ô]define o titulo do eixo x , sua fonte e a cor
.ChartAreas(0).AxisX.Title = [Ô]Motivo[Ô]
.ChartAreas(0).AxisX.TitleFont = New Font([Ô]Times New Roman[Ô], 8, FontStyle.Bold)
[ô].ChartAreas(0).AxisX.TitleForeColor = Color.Blue
[ô]define a paleta de cores usada
[ô].Palette = DataVisualization.Charting.ChartColorPalette.Fire
[ô]vincula os dados ao gráfico
.Series(0).XValueMember = ([Ô]MOTIVO_DEVOL[Ô])
.Series(0).YValueMembers = ([Ô]QTDE[Ô])
[ô]exibe os valores nos eixos
[ô].Series(0).IsValueShownAsLabel = True
[ô]desabilita a exibição 3D
[ô].ChartAreas(0).Area3DStyle.Enable3D = True
End With
End Sub
Imports System.Data.OleDb
Public Class MMC_GRAFICOS
Dim connString As String = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & Application.StartupPath & [Ô]\Cadastro.mdb;Jet OLEDB:Database Password=xxxxx[Ô]
Dim myConnection As OleDbConnection = New OleDbConnection
Private Sub GRAFICOS_INDIRETOS()
myConnection.ConnectionString = connString
Dim da As OleDbDataAdapter = New OleDbDataAdapter([Ô]SELECT TOP 5 MOTIVO_DEVOL, COUNT(MOTIVO_DEVOL) AS QTDE FROM DEVOLUCAO_INDIRETOS GROUP BY MOTIVO_DEVOL ORDER BY COUNT(MOTIVO_DEVOL) DESC[Ô], myConnection)
Dim ds As DataSet = New DataSet
da.Fill(ds, [Ô]table[Ô])
With GRAF_INDIRETOS
.DataSource = ds.Tables(0)
[ô]define o tipo de gráfico
[ô].Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Column
[ô]define o texto da legenda
.Series(0).LegendText = [Ô]Motivo[Ô]
[ô]define o titulo do eixo y , sua fonte e a cor
.ChartAreas(0).AxisY.Title = [Ô]Qtde[Ô]
.ChartAreas(0).AxisY.TitleFont = New Font([Ô]Times New Roman[Ô], 8, FontStyle.Bold)
[ô].ChartAreas(0).AxisY.TitleForeColor = Color.Blue
[ô]define o titulo do eixo x , sua fonte e a cor
.ChartAreas(0).AxisX.Title = [Ô]Motivo[Ô]
.ChartAreas(0).AxisX.TitleFont = New Font([Ô]Times New Roman[Ô], 8, FontStyle.Bold)
[ô].ChartAreas(0).AxisX.TitleForeColor = Color.Blue
[ô]define a paleta de cores usada
[ô].Palette = DataVisualization.Charting.ChartColorPalette.Fire
[ô]vincula os dados ao gráfico
.Series(0).XValueMember = ([Ô]MOTIVO_DEVOL[Ô])
.Series(0).YValueMembers = ([Ô]QTDE[Ô])
[ô]exibe os valores nos eixos
[ô].Series(0).IsValueShownAsLabel = True
[ô]desabilita a exibição 3D
[ô].ChartAreas(0).Area3DStyle.Enable3D = True
End With
End Sub
Tópico encerrado , respostas não são mais permitidas