Discussion :

[totocasagrandi]

bonjour à tous,
je viens de créer un objet pivot table dans mon formulaire et je veux parametrer la connection à la source de données dès le chargement de mon formulaire :
voic le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Form_Load()
 
  Dim strProvider As String
   Dim view As PivotView
   Dim fsets As PivotFieldSets
   Dim c As Object
   Dim newtotal As PivotTotal
 
    strProvider = "Microsoft.Jet.OLEDB.4.0"
 
   'Create an ADO object
  Set cnnConnection = CreateObject("ADODB.Connection")
 
  ' Set the provider and open the connection to the database
  cnnConnection.Provider = strProvider
 
cnnConnection.Open "cheminDeMaBase\maDataBase.mdb"
   ' Set the pivot table's connection string to the cnnConnection's connection string
 
 
 
     PivotTable1.ConnectionString = cnnConnection.ConnectionString

mais lorsque je lance le formulaire contenant mon objet pivot_Table (tableau croisé dynamique) access me dis que la base de donnees "maDataBase.mdb"
( celle ou est d'ailleurs mon formulaire) est verouillé sachant que c'est moi qui a créer cette base et c'est moi qui developpe le formulaire . voici l'erreur qui s"'affiche:



est ce des droits d'accès à la base ou c'est un problème de répértoire contenant la base ou c'est un problème avec ado?
merci infiniment pour votre aide

[Arkham46]

bjr,

pour utiliser la connexion en cours, utilisez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

currentproject.Connection

ou alors en DAO (ADO est-il utile?):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CurrentDB

[totocasagrandi]

merci infiniment,
tu as raison ,ca marche avec currentproject.Connection.
Mais je me demandais si j'aurai le même problème si la base de données sur laquel repose mon pivot est distance