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=" &
'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
Selecting SI_DATACONNECTION returns nothing. The code is wrong.