Still changing the data connection fo untyped report

[khairihusseini]

I have following code:

Private Sub SetDataBaseLoca tion(ByVal Report As ReportDocument)
For Each oConnectionInfo As [Shared].IConnectionInf o In
Report.DataSour ceConnections
oConnectionInfo .SetConnection( _Servername, _DatabaseName,
_Username, _Password)
oConnectionInfo .SetLogon(_User name, _Password)
Next

Try
For Each SubReport As ReportDocument In Report.Subrepor ts
SetDataBaseLoca tion(SubReport)
Next
Catch ex As Exception
'Do nothing
End Try
End Sub

Private Sub AuthenticateAcc ess()
'Creates a class in order to store the login info
Dim loConnInfo As New CrystalDecision s.Shared.Connec tionInfo
loConnInfo.Type = ConnectionInfoT ype.Query
loConnInfo.Allo wCustomConnecti on = True
loConnInfo.Serv erName = _Servername
loConnInfo.Data baseName = _DatabaseName
loConnInfo.User ID = _Username
loConnInfo.Pass word = _Password

Dim loTables As CrystalDecision s.CrystalReport s.Engine.Tables
Dim loTable As CrystalDecision s.CrystalReport s.Engine.Table
Dim loTableLogonInf o As CrystalDecision s.Shared.TableL ogOnInfo

'Loops in each table of the report and applies the login
information
For Each loTable In Me.Database.Tab les
loTableLogonInf o = loTable.LogOnIn fo
loTableLogonInf o.ConnectionInf o = loConnInfo
loTable.ApplyLo gOnInfo(loTable LogonInfo)
loTable.Locatio n = _Username & "." &
loTable.Locatio n.Substring(loT able.Location.L astIndexOf(".") + 1)
Next
'End If

For Each Report As ReportDocument In Me.Subreports
AuthenticateAcc ess(Report)
Next

'Search for other subreports in case they were ommited
Dim crSections As Sections = Me.ReportDefini tion.Sections
For Each crSection As Section In crSections
Dim crReportObjects As ReportObjects =
crSection.Repor tObjects
For Each crReportObject As ReportObject In crReportObjects
If crReportObject. Kind =
ReportObjectKin d.SubreportObje ct Then
Dim crSubReportObje ct As SubreportObject =
DirectCast(crRe portObject, SubreportObject )
Dim subRepDoc As ReportDocument =
crSubReportObje ct.OpenSubrepor t(crSubReportOb ject.SubreportN ame)
AuthenticateAcc ess(subRepDoc)
End If
Next
Next
End Sub

These two subs are there to change the data source for an oracle
connection for the report. I have searched in numerous forums and blogs
and knowledge pases about this and everywhere i found that theabove
code is the optimum with exception that it doesn't work.

The report is saved without data. I have two tablespaces that are
completely identical with the exception of the data reiding in their
tables. The company I work in today decided to switch the tablespace
and we found that although we changed all the login credentials for the
old tablespace, supplying the above subs with the credentials of the
new tablespace, the report still connects to the old tablespace.
We tried to change the given credentials to invalid ones, and it gave
as it should a login error.

Now we have the report connecting as user2 but getting data from user1.

Any idea?

Here some system info:
Versions used:

ASP.NET Framework 1 (localhost WinXP SP 2)
Oracle 9i (residing on Linux Red Hat 9 box)
Crystal Reports 10