Visual Basic

Private Function reconnectreport(ByVal report As ReportDocument, ByVal servernaam As String, ByVal dbnaam As String, ByVal dbLogin As String, ByVal dbPass As String) As ReportDocument
        Try
            Dim connection As IConnectionInfo
            Dim oldServerName As String = report.DataSourceConnections(0).ServerName
            Dim newServerName As String = servernaam
            Dim oldDatabaseName As String = report.DataSourceConnections(0).DatabaseName
            Dim newDatabaseName As String = dbnaam
            Dim userID As String = dbLogin
            Dim password As String = dbPass
            report = report
            ' Change the server name and database in main reports
            For Each connection In report.DataSourceConnections
                If (String.Compare(connection.ServerName, oldServerName, True) = 0 _
                    And String.Compare(connection.DatabaseName, oldDatabaseName, True) = 0) Then
                    ' SetConnection can also be used to set new logon and new database table
                    report.DataSourceConnections(oldServerName, oldDatabaseName).SetConnection( _
                    newServerName, newDatabaseName, userID, password)
                End If
            Next
            ' Change the server name and database in subreports
            Dim subreport As ReportDocument
            For Each subreport In report.Subreports
                For Each connection In subreport.DataSourceConnections
                    If (String.Compare(connection.ServerName, oldServerName, True) = 0 _
                        And String.Compare(connection.DatabaseName, oldDatabaseName, True) = 0) Then
                        ' SetConnection can also be used to set new logon and new database table
                        subreport.DataSourceConnections(oldServerName, oldDatabaseName).SetConnection( _
                        newServerName, newDatabaseName, userID, password)
                    End If
                Next
            Next
            Return report
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Return Nothing
        End Try
    End Function

gjx_junxian1989 wrote:

Am i doin things the right way?

gjx_junxian1989 wrote:

where i placed the codes in my program?

gjx_junxian1989 wrote:

How do i define or declare the SMSEngine in the codes?