none
Relatorio em crystal não carrega. RRS feed

  • Pergunta

  • Boa noite.

    Amigos estou executando uma rotina que salva os dados no banco e ao mesmo tempo vai gerar relatorio.

    Mas tenho um problema o mesmo exporta para C: em meu pc só que vai em txt e ainda em branco.

    Segue código abaixo.

    Protected Sub Salvar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Salvar.Click

            Try

                Dim strcon As New SqlClient.SqlConnection("Data Source=FERNANDO-PC\SQLEXPRESS;Initial Catalog=CadSoft;Integrated Security=True")
                strcon.Open()
                Dim strSql As String = "INSERT INTO Orcamento ([Id_vendedor], [Nm_vendedor], [Dt_orcamento], [Nm_produto], [Descricao], [Quantidade], [Total_estoque], [Preco_venda], [Total]) VALUES (' " & Id_vendedor.Text & " ',' " & Nm_vendedor.Text & " ',' " & Dt_orcamento.Text & " ',' " & Nm_produto.Text & " ',' " & Descricao.Text & " ',' " & Quantidade.Text & " ',' " & Total_estoque.Text & " ', ' " & Preco_venda.Text & " ', ' " & Total.Text & " ')"
                Dim conm As New SqlClient.SqlCommand(strSql, strcon)
                Dim Id_orcamento = Convert.ToInt32(conm.ExecuteScalar())

                MsgBox("Dados Incluido com Sucesso.", MsgBoxStyle.Information)

                Dim cryRpt As New ReportDocument
                Dim CrExportOptions As ExportOptions
                Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions()
                Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
                cryRpt.Load("C:\Users\Fernando\Documents\Visual Studio 2010\WebSites\CadSoft")

                strSql = "SELECT [Id_vendedor], [Nm_vendedor], [Dt_orcamento], [Nm_produto], [Descricao], [Quantidade], [Total_estoque], [Preco_venda], [Total] FROM Orcamento"


                CrDiskFileDestinationOptions.DiskFileName = "c:\crystalExport.pdf"
                CrFormatTypeOptions.FirstPageNumber = 1
                CrFormatTypeOptions.LastPageNumber = 3
                CrFormatTypeOptions.UsePageRange = True
                CrExportOptions = cryRpt.ExportOptions
                With CrExportOptions
                    .ExportDestinationType = ExportDestinationType.DiskFile
                    .ExportFormatType = ExportFormatType.PortableDocFormat
                    .DestinationOptions = CrDiskFileDestinationOptions
                    .FormatOptions = CrFormatTypeOptions

                End With

                cryRpt.Export()

            Catch ex As Exception
                Response.Write(ex.Message)


            End Try


        End Sub


    Fernando Henrique Mendes Diogo Programador Asp.net,Dba Sql Server

    sábado, 7 de julho de 2012 00:44