Propriété PivotCache.ADOConnection (Excel)

Retourne un objet Ado Connection si le cache de tableau croisé dynamique est connecté à une source de données OLE DB. La propriété ADOConnection expose la connexion Microsoft Excel au fournisseur de données, ce qui permet à l'utilisateur d'écrire du code dans le contexte de la même que celle qu'utilise Excel avec ADO (source relationnelle) ou ADO MD (source OLAP). En lecture seule.

Syntaxe

expression. ADOConnection

Expression Variable qui représente un objet PivotCache .

Remarques

La propriété ADOConnection est disponible uniquement pour les sessions avec une source de données OLE DB. Lorsqu'il n'existe pas de session ADO, la requête renvoie une erreur d'exécution.

La propriété ADOConnection peut être utilisée pour n’importe quel cache OLE DB avec ADO. L'objet ADO Connection peut être utilisé avec ADO MD pour la recherche d'informations sur les cubes OLAP sur lesquels repose le cache.

Exemple

Cet exemple montre comment définir un objet ADO DB Connection sur la propriété ADOConnection du cache de tableau croisé dynamique. Pour cet exemple, la feuille de calcul active contient un rapport de tableau croisé dynamique.

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

Cet exemple montre comment ajouter un membre calculé, ce qui suppose que la feuille de calcul active contient un rapport de tableau croisé dynamique.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.