Business Objects 7008038 Manuale Utente

Crystal Reports Server XI

Upgrading Crystal Enterprise 10 Embedded Edition Applications

‘====================================================

‘Get the collection of tables in the main report

Set Tables = RptClientDoc.DataDefController.Database.Tables

For Each table in Tables

'clone the table object

Set newTable = Table.Clone

‘set the table's connectionInfo to the current
‘connection info

newTable.ConnectionInfo = oDBInfo

‘set the table object qualified name to include

‘the new database name

‘That is, original = 'db1.dbo.myTable', new
='db2.dbo.myTable'

newTable.QualifiedName = Database & ".dbo." &

Table.Name

‘put this newly modified table object back into the
‘report client doc

RptClientDoc.DatabaseController.SetTableLocation table,
newTable

Next

‘Create the Crystal Reports Viewer

Dim viewer

Set viewer =
CreateObject("CrystalReports.CrystalReportViewer")

‘IMPORTANT NOTE:

‘For a complete list of properties of the Page Viewer look
‘in the RAS "COM Viewer SDK" Help file

With viewer

.Name = "Crystal Reports Viewer"

.IsOwnForm = true

.IsOwnPage = true

.IsDisplayGroupTree = False

.HasToggleGroupTreeButton = True

3/30/2007 10:15 AM

Page

crserver_xi_upgrading_from_ce10_embedded.pdf