Imports System.Data
Imports System.Data.SqlClient

Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine

Partial Class Statistica1
Inherits System.Web.UI.Page

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("Button1_Click")

''''''''''''''''''''''''''''''''''''''''''''
' Modificare un Report a RunTime
''''''''''''''''''''''''''''''''''''''''''''
Dim con As New SqlConnection
Dim com As New SqlCommand
Dim adp As New SqlDataAdapter
Dim ds As New DataSet

ds.Clear()

con.ConnectionString = "..."
com.CommandText = "select UserId, 3 from Richiesta Group By UserID"
com.CommandType = CommandType.Text
com.Connection = con
adp.SelectCommand = com

Try
adp.Fill(ds)
Catch ex As Exception
MsgBox(ex.Message)
End Try

Try
Dim myreport As New ReportDocument()
myreport.Load(Server.MapPath("CrystalReport2.rpt"))

myreport.SetDataSource(ds)
CrystalReportViewer1.ReportSource = myreport
Catch ex As Exception
MsgBox(ex.Message)
End Try
''''''''''''''''''''''''''''''''''''''''''''
End Sub
End Class