Visual Basic

Function SearchForfiles (some params) as SomeType<br />
   <br />
     here is lot of code (recursive stuff, loops and what have you)<br />
<br />
     'here comes the thing I'm looking for:<br />
<br />
     If (user presses the button Stop) Then<br />
         Exit Function or Sub<br />
     End If<br />
<br />
End Function (End Sub)

Hi All

I have created a DAL using datasource and added few function and it accept from and to Date. Then added a Report Viewer control to my Windows application. After that I added new item Report1.rdlc. Then I dragged field from Dataset on to Report1 and organized and set the Datasource .rdlc to the Report Viewer control after that I executed my application working fine. Now I decided to added two datetime parameter to my Report1 and added. When I try to run the .SetParameters it thrown error as 'An error occured during local report processing'

Could you please help me how to solve.

<code>  Dim rsDataSource As New ReportDataSource("OT Applied Info", OverTimeEntryTable)

            Me.Reports.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local
            Me.Reports.LocalReport.EnableExternalImages = True
            Me.Reports.LocalReport.ExecuteReportInCurrentAppDomain(System.Reflection.Assembly.GetExecutingAssembly().Evidence)

            Me.Reports.LocalReport.DataSources.Clear()
            Me.Reports.LocalReport.ReportEmbeddedResource = "OTApplied.rdlc"
            Me.Reports.LocalReport.DataSources.Add(rsDataSource)

            Dim params(0) As Microsoft.Reporting.WinForms.ReportParameter            
            params(0) = New Microsoft.Reporting.WinForms.ReportParameter("SDate", Format(CDate(dtpSDate.Text), "MM-dd-yy"), True)
            params(1) = New Microsoft.Reporting.WinForms.ReportParameter("EDate", Format(CDate(dtpEDate.Text), "MM-dd-yy"), True)
            Me.Reports.LocalReport.SetParameters(params)
            
            Reports.LocalReport.DataSources.Add(rsDataSource)
            Reports.Visible = True

            Reports.LocalReport.Refresh()</code>

Thanks
Sonj<big></big><big></big> 

<br />
USE [ValRollClients]<br />
GO<br />
/****** Object:  StoredProcedure [dbo].[CheckExistance]    Script Date: 02/25/2008 08:40:08 ******/<br />
SET ANSI_NULLS ON<br />
GO<br />
SET QUOTED_IDENTIFIER ON<br />
GO<br />
ALTER Proc [dbo].[CheckExistance]<br />
(<br />
@username varchar(50),<br />
@OldPassword varchar(50),<br />
@OutRes int Output<br />
)<br />
as <br />
set @OutRes =(select count(*) FROM Login WHERE <br />
Username = @username And UPassword = @OldPassword)<br />
<br />

<br />
	declare @OutRes varchar(5)<br />
	Exec [CheckExistance] 'vuyiswa','5555',@OutRes Output<br />
	select @OutRes <br />
<br />

<br />
 con = New SqlConnection(strcon)<br />
<br />
        cmdselect = New SqlCommand<br />
<br />
        cmdselect.CommandTimeout = 0<br />
<br />
        cmdselect.CommandType = CommandType.StoredProcedure<br />
<br />
        cmdselect.CommandText = "CheckExistance"<br />
<br />
        cmdselect.Connection = con<br />
<br />
        cmdselect.Parameters.Add("@username", "Username")<br />
<br />
        cmdselect.Parameters.Add("@OldPassword", "strPassword")<br />
<br />
        cmdselect.Parameters.Add("@OutRes", SqlDbType.Int)<br />
<br />
        cmdselect.Parameters("@OutRes").Direction = ParameterDirection.Output<br />
<br />
        Dim bolres As Boolean<br />
<br />
        Dim intRes As Integer<br />
<br />
        Try<br />
            con.Open()<br />
<br />
<br />
            intRes = cmdselect.ExecuteScalar()<br />
<br />
            intRes = cmdselect.Parameters("@OutRes").Value<br />
<br />
<br />
            Select Case intRes<br />
                Case 1<br />
                    bolres = True<br />
                Case 0<br />
                    bolres = False<br />
<br />
            End Select<br />
            con.Close()<br />
<br />
        Catch ex As SqlClient.SqlException<br />
<br />
            MsgBox(ex.Message)<br />
<br />
        End Try<br />
<br />
        Return bolres<br />
<br />
<br />