I am trying to change the server on all of our reports to a new server. The server name is the only item that need to be changed.
I am trying to change from orasrv1 to newOrasrv2. I have tried the document cr_rdc9_connectionproperties.pdf but cannot get any of that to work.
The report is using an identical package in the same schema and database name on the new server.
Any help would be greatly appreciated, as I need to deliver to the client by the end of the year.
Here is what I currently have:
<% 'open report
reportname = "Rpt_ListInit.rpt"
Set objFactory = CreateObject("CrystalReports.ObjectFactory"
path = Request.ServerVariables("PATH_TRANSLATED"
While (Right(path, 1) <> "\" And Len(path) <> 0)
iLen = Len(path) - 1
path = Left(path, iLen)
Wend
Set Session("oClientDoc" = objFactory.CreateObject("CrystalClientDoc.ReportClientDocument"
Session("oClientDoc".ReportAppServer = "localhost"
Session("oClientDoc".Open path & reportName
'Change server to new server
Set oDBInfo = Session("oClientDoc".DatabaseController.GetConnectionInfos().Item(0)
Set pbLevel1 = oDBInfo.Attributes
pbLevel1.Item("QE_ServerDescription" = "db1_newOrasrv2"
pbLevel1.Item("Server" = "db1_newOrasrv2"
oDBInfo.Attributes = pbLevel1
oDBInfo.UserName = "system"
oDBInfo.Password = "xxxxxxxxx"
Session("oClientDoc".databaseController.logon "system", "xxxxxxxxx"
'redirect to report
Response.Redirect "ActiveXViewer.asp"
%>
Thanks,
John
I am trying to change from orasrv1 to newOrasrv2. I have tried the document cr_rdc9_connectionproperties.pdf but cannot get any of that to work.
The report is using an identical package in the same schema and database name on the new server.
Any help would be greatly appreciated, as I need to deliver to the client by the end of the year.
Here is what I currently have:
<% 'open report
reportname = "Rpt_ListInit.rpt"
Set objFactory = CreateObject("CrystalReports.ObjectFactory"
path = Request.ServerVariables("PATH_TRANSLATED"
While (Right(path, 1) <> "\" And Len(path) <> 0)
iLen = Len(path) - 1
path = Left(path, iLen)
Wend
Set Session("oClientDoc" = objFactory.CreateObject("CrystalClientDoc.ReportClientDocument"
Session("oClientDoc".ReportAppServer = "localhost"
Session("oClientDoc".Open path & reportName
'Change server to new server
Set oDBInfo = Session("oClientDoc".DatabaseController.GetConnectionInfos().Item(0)
Set pbLevel1 = oDBInfo.Attributes
pbLevel1.Item("QE_ServerDescription" = "db1_newOrasrv2"
pbLevel1.Item("Server" = "db1_newOrasrv2"
oDBInfo.Attributes = pbLevel1
oDBInfo.UserName = "system"
oDBInfo.Password = "xxxxxxxxx"
Session("oClientDoc".databaseController.logon "system", "xxxxxxxxx"
'redirect to report
Response.Redirect "ActiveXViewer.asp"
%>
Thanks,
John