[RESOLVED] 3 same code

[met0555]

Hi,

I use the same code 3times for different buttoon , the code shows the SELECT statement in the datagrid view correctly, but it shows the report only for the 2nd code, not for the first or third. I don't know why.

Private Sub cibfnb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cibfnb.Click
        
 
        strcon = "Data Source=xxxx"
 
        icnnn = New SqlConnection()
 
       
        icnnn.ConnectionString = strcon
        Try
            'Open the connection
            icnnn.Open()
        Catch sqlExceptionErr As SqlException
            'Display the error
            MessageBox.Show(sqlExceptionErr.Message, "")
        Catch InvalidOperationExceptionErr As InvalidOperationException
            'Display the error
            MessageBox.Show(InvalidOperationExceptionErr.Message, "")
        End Try
        Me.clientinvoiceReportViewer1.RefreshReport()
        Dim Accesstring As String = ("SELECT     ResID, FirstName As [First Name], LastName As [Last Name], Company, DriverID, paymentamountt As [Payment Amount]  FROM reservation WHERE (FirstName = N'" & cibfn.Text & " ')")
     
        Dim DA As New SqlDataAdapter(Accesstring, icnnn)
        Dim DS As New DataSet
        DA.Fill(DS, "reservation")
        clientinvioiceDataGridViewX1.DataSource = DS.Tables("reservation")
        Dim report As New RptReservation
        report.SetDataSource(DS)
        clientinvoiceReportViewer1.ReportSource = report
 
    End Sub
 
    Private Sub ciblnb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ciblnb.Click
        
        strcon = "Data Source=xxxx"
 
        icnnn = New SqlConnection()
 
    
        icnnn.ConnectionString = strcon
        Try
            'Open the connection
            icnnn.Open()
        Catch sqlExceptionErr As SqlException
            'Display the error
            MessageBox.Show(sqlExceptionErr.Message, "")
        Catch InvalidOperationExceptionErr As InvalidOperationException
            'Display the error
            MessageBox.Show(InvalidOperationExceptionErr.Message, "")
        End Try
        Me.clientinvoiceReportViewer1.RefreshReport()
        Dim Accesstring As String = ("SELECT     ResID, FirstName, LastName, Company, DriverID, paymentamountt  FROM reservation WHERE (LastName = N'" & cibln.Text & " ')")
       
        Dim DA As New SqlDataAdapter(Accesstring, icnnn)
        Dim DS As New DataSet
        DA.Fill(DS, "reservation")
        clientinvioiceDataGridViewX1.DataSource = DS.Tables("reservation")
        Dim report As New RptReservation
        report.SetDataSource(DS)
        clientinvoiceReportViewer1.ReportSource = report
 
 
 
    End Sub
 
    Private Sub cibcnb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cibcnb.Click
       
 
        strcon = "Data Source=xxxx"
 
        icnnn = New SqlConnection()
 
        'Donner à la propriété ConnectionString les paramètres de connexion
        icnnn.ConnectionString = strcon
        Try
            'Open the connection
            icnnn.Open()
        Catch sqlExceptionErr As SqlException
            'Display the error
            MessageBox.Show(sqlExceptionErr.Message, "")
        Catch InvalidOperationExceptionErr As InvalidOperationException
            'Display the error
            MessageBox.Show(InvalidOperationExceptionErr.Message, "")
        End Try
        Me.clientinvoiceReportViewer1.RefreshReport()
        Dim Accesstring As String = ("SELECT     ResID, FirstName As [First Name], LastName As [Last Name], Company, DriverID, paymentamountt As [Payment Amount]  FROM reservation WHERE (Company = N'" & cibcn.Text & " ')")
    
        Dim DA As New SqlDataAdapter(Accesstring, icnnn)
        Dim DS As New DataSet
        DA.Fill(DS, "reservation")
        clientinvioiceDataGridViewX1.DataSource = DS.Tables("reservation")
        Dim report As New RptReservation
        report.SetDataSource(DS)
        clientinvoiceReportViewer1.ReportSource = report
    End Sub

[.paul.]

try it this way:

Private Sub ciblnb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ciblnb.Click
        showReport("SELECT ResID, FirstName, LastName, Company, DriverID, paymentamountt FROM reservation WHERE (LastName = N'" & cibln.Text & " ')")
    End Sub
 
    Private Sub cibcnb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cibcnb.Click
        showReport("SELECT ResID, FirstName, LastName, Company, DriverID, paymentamountt FROM reservation WHERE (Company = N'" & cibcn.Text & " ')")
    End Sub
 
    Private Sub cibfnb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cibfnb.Click
        showReport("SELECT ResID, FirstName, LastName, Company, DriverID, paymentamountt FROM reservation WHERE (FirstName = N'" & cibfn.Text & " ')")
    End Sub
 
    Private Sub showReport(ByVal Accesstring As String)
        strcon = "Data Source=xxxx"
        icnnn = New SqlConnection()
        icnnn.ConnectionString = strcon
        Try
            'Open the connection
            icnnn.Open()
        Catch sqlExceptionErr As SqlException
            'Display the error
            MessageBox.Show(sqlExceptionErr.Message, "")
        Catch InvalidOperationExceptionErr As InvalidOperationException
            'Display the error
            MessageBox.Show(InvalidOperationExceptionErr.Message, "")
        End Try
        Me.clientinvoiceReportViewer1.RefreshReport()
 
        Dim DA As New SqlDataAdapter(Accesstring, icnnn)
        Dim DS As New DataSet
        DA.Fill(DS, "reservation")
        clientinvioiceDataGridViewX1.DataSource = DS.Tables("reservation")
        Dim report As New RptReservation
        report.SetDataSource(DS)
        clientinvoiceReportViewer1.ReportSource = report
    End Sub

[met0555]

Hi,

As what should I declare showReport ?

thanks

[.paul.]

just use it as it is. theres no need to declare it as anything

[met0555]

Thanks, it's working perfectly.

Rated