Syntax

expression.ADOConnection

expression A variable that represents a PivotCache object.

Remarks

The ADOConnection property is available only for sessions with an OLE DB data source. When there is no ADO session, the query will result in a run-time error.

The ADOConnection property can be used for any OLE DB-based cache with ADO. The ADO Connection object can be used with ADO MD for finding information about OLAP cubes on which the cache is based.

Example

This example sets an ADO DB Connection object to the ADOConnection property of the PivotTable cache. The example assumes that a PivotTable report exists on the active worksheet.

Visual Basic for Applications 
Sub UseADOConnection() Dim ptOne As PivotTable Dim cmdOne As New ADODB.Command Dim cfOne As CubeField Set ptOne = Sheet1.PivotTables(1) ptOne.PivotCache.MaintainConnection = True Set cmdOne.ActiveConnection = ptOne.PivotCache.ADOConnection ptOne.PivotCache.MakeConnection ' Create a set. cmdOne.CommandText = "Create Set [Warehouse].[My Set] as '{[Product].[All Products].Children}'" cmdOne.CommandType = adCmdUnknown cmdOne.Execute ' Add a set to the CubeField. Set cfOne = ptOne.CubeFields.AddSet("My Set", "My Set") End Sub
This example adds a calculated member, assuming that a PivotTable report exists on the active worksheet.
Visual Basic for Applications 
Sub AddMember() Dim cmd As New ADODB.Command If Not ActiveSheet.PivotTables(1).PivotCache.IsConnected Then ActiveSheet.PivotTables(1).PivotCache.MakeConnection End If Set cmd.ActiveConnection = ActiveSheet.PivotTables(1).PivotCache.ADOConnection ' Add a calculated member. cmd.CommandText = "CREATE MEMBER [Warehouse].[Product].[All Products].[Drink and Non-Consumable] AS '[Product].[All Products].[Drink] + [Product].[All Products].[Non-Consumable]'" cmd.CommandType = adCmdUnknown cmd.Execute ActiveSheet.PivotTables(1).PivotCache.Refresh End Sub

See also: