• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

rui_fernandes

[vb.net 2003] Crystal reports...

9 mensagens neste tópico

boas...

estou a criar um relatorio onde as tabela onde vai vai ser buscado os dados para o preencher sao relacionadas...

ponho os campos que keru que sejam mostrados, que vao ser alguns dependendo se um campo for igual a um determinado valor...

Dim rpt As New CrystalReport1
        Dim coneccaoBD As OleDbConnection
        Dim da As New OleDbDataAdapter

        Dim cod_servico As Integer = 19

        Dim ds As New Dataset1
        Dim caminho As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=" & Application.StartupPath.ToString & "\gestao.mdb"
        coneccaoBD = New OleDbConnection(caminho)
        coneccaoBD.Open()
        Dim cmd As OleDbCommand = New OleDbCommand
        Try

            cmd.Connection = coneccaoBD
            cmd.CommandText = "SELECT obs,alinea FROM detalhe_servico WHERE cod_servico=" & cod_servico

            cmd.CommandType = CommandType.Text
            da.SelectCommand = cmd
            da.Fill(ds, "Customers")
            rpt.SetDataSource(ds)
            CrystalReportViewer1.ReportSource = rpt

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

tem de selecionar todos registos do campo OBS e ALINEA onde cod_servico=19....

mas preenche-me com todos os registos desses campos... :rant_01:

alguem sabe se estou a fazer alguma coisa mal???????? :eek:

agradecia a ajuda.

CUMPS.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas

E estranho devia de dar, de certeza que a tabela  detalhe_servico tem linhas com cod_servico  <> 19?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

tem registos diferentes ora ve......

ve se alg esta mal

cumps.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tens que alterar o sql para fazer join das tabelas detalhe_servico e servico, assim já deve dar.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Retira as tabelas servico, tipo_dia , viagem e viatura do report e já deve dar.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

nao pode ser porque vou ter de utilizar essas tabela tds, estao relacionadas e vai ser para ir buscar dados de todas..

mas explica-me uma coisa, preenche-se o dataset, e o que é que faz exactamente isto???

 Dim rpt As New CrystalReport1
            rpt.SetDataSource(ds)
            CrystalReportViewer1.ReportSource = rpt

cUMPS.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

problema resolvido.estava a ir buscar os dados a Base de dados, nao ao dataset que estava a preencher com os dados que realmente keria.

abrigado.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora