Thank u Lock for ur reply iv reach a point where am trying to load my report bt i cant its givng me an error sayng report load failed and here is the code i have:
Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load
Dim rpt As New CrystalReport1() 'My report created.
Dim myConnection As New SqlClient.SqlConnection(My.Settings.EvapcoDBConnectionString.ToString)
Dim MyCommand As New SqlClient.SqlCommand()
Dim myDA As New SqlClient.SqlDataAdapter()
Dim myDS As New CoilDataSet() 'My DataSet created.
Dim oRpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
Try
myConnection.open()
oRpt.Load("\D:EvapcoDB\EvapcoDB\CrystalReport1.rpt)
oRpt.SetDataSource(myDS.Tables("coil"))
MyCommand.Connection = myConnection
MyCommand.CommandText = "SELECT * FROM Coil"
MyCommand.CommandType =
CommandType.Text
myDA.SelectCommand = MyCommand
myDA.Fill(myDS, "Coil")
rpt.SetDataSource(myDS)
CrystalReportViewer1.ReportSource = rpt
CrystalReportViewer1.RefreshReport()
Catch Ex As Exception
MessageBox.Show(Ex.Message, "Error", MessageBoxButtons.OK,
MessageBoxIcon.Error)
Finally
If myConnection.State = ConnectionState.Open Then
myConnection.Close()
End If
myConnection.Dispose()
End Try
End Sub
IP Logged
