'CrystalReport3' is not defined
Public Sub BindReport() Dim myConnection As New SqlClient.SqlConnection() myConnection.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\TrainingPlanDatabase.mdf;Integrated Security=True;User Instance=True" Dim MyCommand As New SqlClient.SqlCommand() MyCommand.Connection = myConnection MyCommand.CommandText = "Select * from tblTrainingPlan" MyCommand.CommandType = CommandType.Text Dim MyDA As New SqlClient.SqlDataAdapter() MyDA.SelectCommand = MyCommand Dim myDS As New db1() MyDA.Fill(myDS, "tblTrainingPlan") Dim oRpt As New CrystalReport3() oRpt.SetDataSource(myDS) CrystalReportViewer1.ReportSource = oRpt End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)