Onde esta o Crystal Reports no VB 2008 Express

[.NetProgrammer 0]

Instalei o Visual Basic 2008 Express em conjunto com o SQL Server 2005 express Edition e desenvolvi toda interface gráfica do meu aplicativo, agora que só faltam os relatórios, descobri que o Crystal Reports não vem junto, é possivel baixar e instalar ou alguem sugere outra forma de gerar relatórios ...

 

Cheguei até na parte que seleciono o que quero imprimir e jogo em um DATAREADER ... falta imprimir e agora?

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Atualizar cabeçalho do orçamento ... 

        Dim conn As New SqlClient.SqlConnection
        Dim comando As New SqlClient.SqlCommand
        Dim pedido As String
        Dim inclui As String
        Dim cad As String = "N"
        Dim reg As Integer

        conn.ConnectionString = My.Settings.SisvenConnectionString

        Try
            conn.Open()
            comando.Connection = conn
            'Localiza o pedido no arquivo cabeçalho de orçamentos
            comando.Parameters.AddWithValue("@Pedven", numorc)
            comando.Parameters.AddWithValue("@observ", TextBox7.Text)
            comando.Parameters.AddWithValue("@conpag", TextBox4.Text)
            comando.Parameters.AddWithValue("@entreg", TextBox5.Text)
            comando.CommandText = "Select *FROM Vendas_cab where pedven=@pedven"
            pedido = comando.ExecuteScalar
            If Trim(pedido) = Trim(numorc) Then
                cad = "S"
                inclui = "UPDATE Vendas_cab SET observ=@observ,conpag=@conpag,entreg=@entreg Where pedven=@pedven"
                comando.CommandText = inclui
            End If
            reg = comando.ExecuteNonQuery()
            If cad = "S" Then
               'Aqui eu preciso inserir a geração do relatorio
               comando.CommandText = "Select Vendas_det.codigo,Vendas_det.qdeped,Vendas_det.valven,Cadmer.desmer FROM Vendas_det INNER JOIN Cadmer ON Vendas_det.codigo = Cadmer.codigo Where pedven=@pedven"
                dr_iteped = comando.ExecuteReader()
                If (dr_iteped.HasRows) Then
                    While dr_iteped.Read
                        [b]'Aqui eu preciso inserir a geração do relatorio
                        'Percorrer itens do pedido e gerar relatorio ... [/b]
                    End While
                End If
                dr_iteped.Close()
            End If
        Catch ex As Exception
            MessageBox.Show("Erro ao efetuar a conexão com a base de dados :" + ex.Message)
        Finally
            conn.Close()
            conn.Dispose()
        End Try
        Me.Close()
    End Sub

[scorpio 7]

Visual Basic http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Plataforma .Net >> Windows Application

[quintelab 91]

Terá que adquirir o Crystal separadamente.

 

Abraços...