Private Sub BindReport()
Dim myConnection As New SqlClient.SqlConnection()
myConnection.ConnectionString = "Server=localhost;database=pubs;uid=sa;pwd=sa"
Dim myCommand As New SqlClient.SqlCommand()
myCommand.Connection = myConnection
‘您可以在如下的SQL语句中动态添加条件,包括Where子句
myCommand.CommandText = "Select * from Stores Where ……"
myCommand.CommandType = CommandType.Text
Dim myDA As New SqlClient.SqlDataAdapter()
myDA.SelectCommand = myCommand
'注意以下为你创建xsd文件的dataSet1;
Dim myDS As New Dataset1()
myDA.Fill(myDS, "Stores")
Dim oRpt As New CrystalReport1()
oRpt.SetDataSource(myDS)
CrystalReportViewer1.ReportSource = oRpt
End Sub