GR?FICO SIMPLES

MARIOANDRADE 24/03/2014 22:29:09
#436482
Amigos tenho uma tabela com o nome das motos, nesse campo eu insiro apenas a quantidade vendida, estou tentando
criar um gráfico simples para isso mas não sei como fazer, tentei esse código mas sem sucesso:

ConnectDB
rs.Open [Ô]select *from tblGraficoMoto[Ô], db, 3, 3
MSChart1.Data = rs.Fields.Item(1)
Set rs = Nothing
db.Close: Set db = Nothing



A quantidade de colunas = 43 também gostaria de renomear o nome de cada coluna correspondente, mas só consigo renomear a primeira:
MSChart1.ColumnLabel = [Ô]Pop[Ô]
MARCELO.TREZE 24/03/2014 22:37:46
#436483
ASSIM

MSChart1.Column = 1
MSChart1.ColumnLabel = [Ô]colouna1[Ô]
MSChart1.Column = 2
MSChart1.ColumnLabel = [Ô]colouna2[Ô]
MSChart1.Column = 3
MSChart1.ColumnLabel = [Ô]colouna3[Ô]
MARIOANDRADE 24/03/2014 23:01:15
#436486
Citação:

:
ASSIM

MSChart1.Column = 1
MSChart1.ColumnLabel = [Ô]colouna1[Ô]
MSChart1.Column = 2
MSChart1.ColumnLabel = [Ô]colouna2[Ô]
MSChart1.Column = 3
MSChart1.ColumnLabel = [Ô]colouna3[Ô]



Pronto Marcelo, essa parte ja foi, agora como faço pra pegar as informações do banco de dados?

Minha tabela é bem simples, só tem o nome das motos e a quantidade de vendas:

CODIGO POP BIZ FAN KS FAN ES
1 58 18 45 165



Agradeço a quem possa ajudar.
MARCELO.TREZE 25/03/2014 10:00:34
#436492 Resposta escolhida
bom vamos lá qual tipo de informação você deseja mostrar no gráfico, por exemplo: as mais vendidas no mês, ou simplesmente, a maior quantidade vendida.

então o gráfico pode ser bem diversificado, o interessante é você saber quais informações vai passar pro mesmo.

veja este exemplo feito no braço

With MSChart1
.chartType = 1 [ô]barra em duas dimensões
.ShowLegend = False [ô]não mostra legenda
.Title = [Ô]Motos mais vendidas[Ô] [ô]titulo do gráfico

.ColumnCount = 1 [ô]uma série
.RowCount = 4 [ô]número sequencia de dados
.Visible = True

.Row = 1
.RowLabel = [Ô]POP[Ô]
.Data = 58

.Row = 2
.RowLabel = [Ô]Biz[Ô]
.Data = 18

.Row = 3
.RowLabel = [Ô]FAN KS[Ô]
.Data = 45

.Row = 4
.RowLabel = [Ô]FAN ES[Ô]
.Data = 165
End With


com este exemplo você terá o seguinte resultado
MARIOANDRADE 25/03/2014 20:45:29
#436524
Deu esse erro:
MARCELO.TREZE 25/03/2014 22:53:39
#436526
Num é possivel, faz o seguinte faz o teste em um outro projeto somente com o form e o mschart.

se num funcionar é seu vb que ta ruim

você viu a imagem é o que o código retornou.
MARIOANDRADE 26/03/2014 20:44:50
#436565
Marcelo, funcionou amigão, valeu mesmo, só um detalhe, só funciona quando coloco no evento Load, se chama-lo dentro do Load dá erro, o código ficou assim:

    With MSChart1
.chartType = 1 [ô]barra em duas dimensões
.ShowLegend = True [ô]não mostra legenda
.Title = [Ô]Relação Total de Vendas[Ô] [ô]titulo do gráfico

.ColumnCount = 1 [ô]uma série
.RowCount = 8 [ô]número sequencia de dados
.Visible = True


ConnectDB
rs.Open [Ô]select *from tblBanco where MotoBD=[ô]Pop[ô][Ô], db, 3, 3
Dim num As Integer
    num = rs.RecordCount
.Row = 1
.RowLabel = [Ô]POP[Ô]
.Data = num
Set rs = Nothing
db.Close: Set db = Nothing

ConnectDB
rs.Open [Ô]select *from tblBanco where MotoBD=[ô]Biz 100 KS[ô][Ô], db, 3, 3
Dim num2 As Integer
    num2 = rs.RecordCount
.Row = 2
.RowLabel = [Ô]Biz 100 KS[Ô]
.Data = num2
Set rs = Nothing
db.Close: Set db = Nothing

ConnectDB
rs.Open [Ô]select *from tblBanco where MotoBD=[ô]Biz 100 ES[ô][Ô], db, 3, 3
Dim num3 As Integer
    num3 = rs.RecordCount
.Row = 3
.RowLabel = [Ô]Biz 100 ES[Ô]
.Data = num3
Set rs = Nothing
db.Close: Set db = Nothing

ConnectDB
rs.Open [Ô]select *from tblBanco where MotoBD=[ô]Biz 125 ES[ô][Ô], db, 3, 3
Dim num4 As Integer
    num4 = rs.RecordCount
.Row = 4
.RowLabel = [Ô]Biz 125 ES[Ô]
.Data = num4
Set rs = Nothing
db.Close: Set db = Nothing

End With



Agora vou fazer com os 43 tipos de motos que tenho


Sua ajuda foi fundamental cara, valeu mesmo
Tópico encerrado , respostas não são mais permitidas
Voltar