HypUpdateConnection
Describes the Oracle Smart View for Office VBA function, HypUpdateConnection.
Data provider types: Oracle Essbase, Planning, Planning Modules, Financial Consolidation and Close, Tax Reporting
Description
HypUpdateConnection updates the existing connection.
Note:
When updating a connection in an existing multiple-grid sheet, only use HypUpdateConnection if the old connection name exists. If the connection name given in HypUpdateConnection does not exist, then the multiple-grid sheet becomes a single-grid ad hoc sheet.
Syntax
Public Declare PtrSafe Function HypUpdateConnection Lib "HsAddin" (ByVal vtProviderType As Variant,
ByVal vtServerName As Variant
ByVal vtApplicationName As Variant
ByVal vtDatabaseName As Variant
ByVal vtProviderURL As Variant
ByVal vtFriendlyName As Variant
ByVal vtUserName As Variant
ByVal vtPassword As Variant
ByVal vtDescription As Variant
ByVal bCreateNewIfConnectionDoesnotExist As Boolean) As Long
Parameters
vtServerName: Server name
vtApplicationName: The name of the application
vtDatabaseName: The name of the database
vtProviderURL: The URL of the data provider
vtFriendlyName: The connection name of the data provider
vtUserName: User name
vtPassword: Password
vtDescription: A description of the data provider
Return Value
Returns 0 if successful; otherwise, returns the appropriate error code.
Example 1
Connection does not exist and the new connection creation is False, resulting in error code -43.
Sub UpdateConnection()
sts = HypUpdateConnection("Essbase", "EssbaseCluster-1", "Sample", "Basic",
"http://<server>:<port>/aps/SmartView", "NonExistingConnection", "<username>", "<password>", "test", False) 'will return -43, connection not found
Example 2
Connection exists but new connection creation is True. Result is successful and returns code 0
(if all parameters are correct).
sts = HypUpdateConnection("Essbase", "EssbaseCluster-1", "Sample", "Basic",
"http://<server>:<port>/aps/SmartView", "NewConnection","<username>", "<password>", "test", True)'will return 0 as it will internally create
a new connection if it does not exist as last parameter is true
sts = HypUpdateConnection("Essbase", "EssbaseCluster-1", "Sample", "Basic","<server>:<port>/aps/SmartView", "NewConnection","<username>", "<password>", "newTestConnection", False)
End Sub
Example 3
Connection exists but new connection creation is True. Result is successful and returns code 0
(if all parameters are correct).
Public Const serverName = "EssbaseCluster-1"
Public Const ProviderURL = "http://<server>:<port>/aps/SmartView"
Public Const HWL_application = "Sample"
Public Const HWL_db = "Basic"
Sub Test()
HWL_Connection = "test_Ess"
sts = HypDisconnectAll()
'X = HypRemoveConnection(HWL_Connection)
UserId = "<username>"
UserPwd = "<password>"
'X = HypCreateConnection(Empty, UserId, UserPwd, HYP_ESSBASE,
ProviderURL, _
serverName, HWL_application, HWL_db, HWL_Connection,
"User_Description")
X = HypUpdateConnection("Essbase", serverName, HWL_application, HWL_db,
ProviderURL, HWL_Connection, UserId, UserPwd, "test", True)
z1 = HypConnect("Sheet1", UserId, UserPwd, HWL_Connection) 'To login
End Sub