none
Crystal com VB.NET 2005 sem ODBC RRS feed

  • Pergunta

  • Bom Dia a Todos.
    Sou novo no Forum e pelo que vi até agora o Forum me parece Otimo, mas vamos a pergunta.

    Programa em VB6 a alguns anos e sempre tive problemas com ODBC, agora migranado meus programa para VB.NET estou fazendo o mesmo sem ODBC, porem estou com problemas de criar relatorios com Crystal e o mesmo sem ODBC, existe a possibilidade de fazer uma ligação direta sem ODBC com Crystal e VB.NET ?

    PS: Utilizo MySQL 5
    terça-feira, 24 de novembro de 2009 11:57

Respostas

  • Agradeço a ajuda de Todos, consegui assim
        Private Sub GerarRelatorio()
            'definir as variáveis de conexão
            Dim dsPc As New RelClientes
            'definir a string de conexão e as instruções sql para cada tabela
            Dim sqlCliente As String = "Select * From cadcli"
    
            Try
                'Criar os objetos dataadatper
                Conexao.Conectar()
                Conexao.da = New MySqlDataAdapter(sqlCliente, Conexao.Conexao)
                'Preenche as tabelas do dataset usando o dataadapter
                Conexao.da.Fill(dsPc, "cadcli")
                'Preencher o relatório e exibí-lo no visualizador
                Dim rptCliente As New RelxCliente
                rptCliente.SetDataSource(dsPc)
                CrystalReportViewer.ReportSource = rptCliente
            Catch ex As Exception
                MessageBox.Show(ex.ToString)
            End Try
        End Sub

    • Marcado como Resposta Pandox terça-feira, 24 de novembro de 2009 18:28
    terça-feira, 24 de novembro de 2009 18:25

Todas as Respostas

  • Pandox como vai

    No site http://www.macoratti.net/ tem alguns tutorais muito bacana que irao te ajudar em relaçao ao Crystal.

    Att.,
    aderito
    • Sugerido como Resposta Adérito terça-feira, 24 de novembro de 2009 18:39
    terça-feira, 24 de novembro de 2009 14:56
  • Muito Obrigado pela Resposta, aderito.
    Pesquisei sobre DataSet Tipado e consegui fazer um, e agora como devo proceder em relação a minha Aplicação.
    Fiz o Relatorio em cima do me Dataset, e agora, como chamo o Crystal ?

    Muito Obrigado
    • Sugerido como Resposta Adérito terça-feira, 24 de novembro de 2009 16:42
    terça-feira, 24 de novembro de 2009 16:09
  • Muito Obrigado pela Resposta, aderito.
    Pesquisei sobre DataSet Tipado e consegui fazer um, e agora como devo proceder em relação a minha Aplicação.
    Fiz o Relatorio em cima do me Dataset, e agora, como chamo o Crystal ?

    Muito Obrigado

    Bom eu utilizo o Crystal da seguinte forma ,os nomes sao exemplos
     
    1 criar um novo Form
       nome  relatorio

    2 criar um novo crystalreport
     nome crystalreport1

    3 colocar dentro deste form um CrystalReportViewer
     
    4 configurar este cystal para chamar o crystalreport1

    5 no evento evento load do seu form
      criar o select correpondente

    Agora so rodar

    Peço desculpas se nao fui muito detalhista...

    Boa Sorte

    Att.,








    aderito
    • Sugerido como Resposta Adérito terça-feira, 24 de novembro de 2009 18:22
    terça-feira, 24 de novembro de 2009 17:03
    • 5 no evento evento load do seu form
    •   criar o select correpondente
    Até a 4 eu fiz normal, porem estou com problemas a fazer esse select e jogar para o meu DataSet.


        Dim RelPath As String = "C:\Documents and Settings\Admin\Meus
    documentos\Visual Studio 2005\Projects\ProjetoInor\ProjetoInor" &
    "\" & Relatorio & ".rpt"
    Dim strSelRelCli As String Dim Conexao As New Conexao Private Sub frmRelCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim CR As New ReportDocument Try strSelRelCli = "SELECT * from cadcli" Conexao.Conectar() Conexao.Comando = New MySqlCommand(strSelRelCli, Conexao.Conexao) Conexao.da = New MySqlDataAdapter(strSelRelCli, Conexao.Conexao) Conexao.ds = New DataSet("RelClientes") Dim orderTable As New DataTable("cadcli") Conexao.da.FillSchema(orderTable, SchemaType.Source) Conexao.ds.Tables.Add(orderTable) Dim orderDetailTable As New DataTable("cadcli") Conexao.da.FillSchema(orderDetailTable, SchemaType.Source) Conexao.da.Fill(orderDetailTable) ' Conexao.ds.Tables.Add(orderDetailTable) CR.Load(RelPath) CrystalReportViewer1.ReportSource = CR Catch ex As Exception MessageBox.Show(Err.Description) Conexao.Desconectar() End Try
    • Sugerido como Resposta Adérito terça-feira, 24 de novembro de 2009 18:37
    terça-feira, 24 de novembro de 2009 17:33
  • Vou te dar um exemplo .... porem esta coneçao esta para access mas nao tem muita diferença

     Private Sub nome do form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Call ConectaBanco()
            'Declaramos um objeto de comando
            Dim objComando As OleDbCommand
            'Criamos o objeto na memória
            objComando = New OleDbCommand
            'Configuramos a conexão
            objComando.Connection = objConexao
            'O comando foi montado ao chamar a função
            'e passado para a variavel strComando
            objComando.CommandText = "SELECT * FROM nome_de_sua_tabela"
            'Precisaremos de uma variavel para guardar o retorno do comando
            'O retorno será uma lista de registros
            Dim objDa As OleDbDataAdapter
            objDa = New OleDbDataAdapter
            objDa.SelectCommand = objComando
    
            Dim objlista As DataTable
            objlista = New DataTable
            objDa.Fill(objlista)
    
            Try
                CryReportClient1.SetDataSource(objlista)
            Catch ex As Exception
                MessageBox.Show("Ocorreu um erro: " & ex.Message)
            End Try
            'Desconecta do banco
            objConexao.Close()
    
        End Sub
    eu criei um modulo com nome de ConectaBanco,que se refere a conecção com o banco

    Espero que tenha ajudado


    Att.,


    aderito
    • Sugerido como Resposta Adérito terça-feira, 24 de novembro de 2009 18:22
    terça-feira, 24 de novembro de 2009 18:13
  • Agradeço a ajuda de Todos, consegui assim
        Private Sub GerarRelatorio()
            'definir as variáveis de conexão
            Dim dsPc As New RelClientes
            'definir a string de conexão e as instruções sql para cada tabela
            Dim sqlCliente As String = "Select * From cadcli"
    
            Try
                'Criar os objetos dataadatper
                Conexao.Conectar()
                Conexao.da = New MySqlDataAdapter(sqlCliente, Conexao.Conexao)
                'Preenche as tabelas do dataset usando o dataadapter
                Conexao.da.Fill(dsPc, "cadcli")
                'Preencher o relatório e exibí-lo no visualizador
                Dim rptCliente As New RelxCliente
                rptCliente.SetDataSource(dsPc)
                CrystalReportViewer.ReportSource = rptCliente
            Catch ex As Exception
                MessageBox.Show(ex.ToString)
            End Try
        End Sub

    • Marcado como Resposta Pandox terça-feira, 24 de novembro de 2009 18:28
    terça-feira, 24 de novembro de 2009 18:25
  • Agradeço a ajuda de Todos, consegui assim
        Private Sub GerarRelatorio()
    
            'definir as variáveis de conexão
    
            Dim dsPc As New RelClientes
    
            'definir a string de conexão e as instruções sql para cada tabela
    
            Dim sqlCliente As String = "Select * From cadcli"
    
    
    
            Try
    
                'Criar os objetos dataadatper
    
                Conexao.Conectar()
    
                Conexao.da = New MySqlDataAdapter(sqlCliente, Conexao.Conexao)
    
                'Preenche as tabelas do dataset usando o dataadapter
    
                Conexao.da.Fill(dsPc, "cadcli")
    
                'Preencher o relatório e exibí-lo no visualizador
    
                Dim rptCliente As New RelxCliente
    
                rptCliente.SetDataSource(dsPc)
    
                CrystalReportViewer.ReportSource = rptCliente
    
            Catch ex As Exception
    
                MessageBox.Show(ex.ToString)
    
            End Try
    
        End Sub


    Valeu !!!!! Parabens

    Adérito
    www.alpconsultoria.com.br

    aderito
    • Sugerido como Resposta Adérito terça-feira, 24 de novembro de 2009 19:57
    terça-feira, 24 de novembro de 2009 18:38