Questo riassume un po' tutto quello che ci siamo detti.
codice:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
Dim cnn As New SqlConnection("Data Source=localhost;Initial Catalog=northwind;User ID=sa;Password=;Persist Security Info=True")
Dim cmd As New SqlCommand("Select * from categories", cnn)
Dim da As New SqlDataAdapter
Dim ds As New DataSet
Dim dt As New DataTable("Pippo")
cnn.Open()
da.SelectCommand = cmd
da.Fill(dt)
cnn.Close()
ds.Tables.Add(dt)
'ds.WriteXmlSchema("c:\test\test.xml")
Dim c As New CrystalReport1
c.Load()
c.SetDataSource(dt)
c.SetParameterValue("pippo", "test")
'Me.CrystalReportViewer1.ReportSource = c
'Me.CrystalReportViewer1.DataBind()
Dim oStream As IO.MemoryStream
oStream = c.ExportToStream(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat)
Response.Clear()
Response.Buffer = True
Response.ContentType = "application/pdf"
Response.BinaryWrite(oStream.ToArray())
Response.End()
End Sub
Ciao
K