Cogniza | Business-Intelligence Specialists

Nov/09

12

BusinessObjects SDK: Change a Universe's Data Connection

Change a Universe’s Data Connection without using the Universe COM SDK.


'get the Universe infoObjects
Dim universeInfoObject As InfoObject = infoStore.Query("SELECT SI_ID, SI_NAME, SI_DATACONNECTION FROM CI_APPOBJECTS WHERE SI_ID=" & )(1)

'cast InfoObject into a Universe
Dim universe As BusinessObjects.Enterprise.Desktop.Universe = CType(universeInfoObject, Universe)

With universe
'clear all data connections
.DataConnections.Clear()

'add new data connection
.DataConnections.Add()

'save to repository
.Save()
End With

· ·

No comments yet.

Leave a Reply

 

<<

>>

Theme Design by devolux.nh2.me