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
