Excel des Données de Connexion Verrouille l'Accès DB, Empêche la Deuxième Connexion de Rafraîchissement de

J'ai deux connexions de données à différentes requêtes dans le même Accès DB. Le second échoue toujours (peu importe lequel je le lance en premier).

Quand je regarde la base de données, je remarque qu'il a un fichier de verrouillage, ce qui je pense est à l'origine du problème. Il reste verrouillé jusqu'à ce que je ferme le fichier Excel. Quelqu'un peut m'aider à débloquer la db dès que ma importation est terminée?

Informations supplémentaires:

Je suis à l'aide d'Excel et d'Access 2010.

L'erreur:

"Le texte de spécification de fichier 'MyQuery Lien Spécification " n'existe pas. Vous ne pouvez pas importer, d'exporter, ou d'un lien à l'aide de la spécification."

Chaîne de connexion (note: je suis l'aide de la Commande type: Table):

Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin
;Data Source=A:\folder\folder\My Database.accdb
;Mode=Share Deny None
;Extended Properties=""
;Jet OLEDB:System database=""
;Jet OLEDB:Registry Path=""
;Jet OLEDB:Engine Type=6
;Jet OLEDB:Database Locking Mode=0
;Jet OLEDB:Global Partial Bulk Ops=2
;Jet OLEDB:Global Bulk Transactions=1
;Jet OLEDB:New Database Password=""
;Jet OLEDB:Create System Database=False
;Jet OLEDB:Encrypt Database=False
;Jet OLEDB:Don't Copy Locale on Compact=False
;Jet OLEDB:Compact Without Replica Repair=False
;Jet OLEDB:SFP=False
;Jet OLEDB:Support Complex Data=False
;Jet OLEDB:Bypass UserInfo Validation=False

Enfin, en se fondant sur ce post, j'ai essayé de changer mon Mode de "Partager Refuser Aucun" à "Lire", mais il n'a pas aidé. Je ne comprends pourquoi il aurait, mais j'ai essayé.

Edit: j'ai continué à la recherche de cette question, mais impossible de trouver une solution. Depuis, j'ai essayé d'ajouter dans une déclaration supplémentaire dans ma chaîne de connexion, ReadOnly = True mais pas de chance.

Fruther recherches sont un Excel Hot Fix et un Accès de mise à Jour pour les erreurs que j'ai été receveuse. A ces deux installé, mais il ne résout pas le problème.

OriginalL'auteur Aaron Contreras | 2013-10-02

6

J'ai été confronté à une autre question concernant les connexions de données, et la solution qu'elle a effectivement fini par fixer ce problème de longue date!

Ma conjecture est que le secret réside dans "MaintainConnection = False":
```
Dim i As Integer
Dim awc As WorkbookConnection
Dim c As OLEDBConnection

For i = 0 to ActiveWorkbook.Connections.Count
    Set awc = ActiveWorkbook.Connections.Item(i)
    Set c = awc.OLEDBConnection
    c.EnableRefresh = True
    c.BackgroundQuery = False
    c.Reconnect
    c.Refresh
    c.MaintainConnection = False
Next i
```
Je me demande si cela peut être fait avec les paramètres au lieu de dans le code?
Certainement laissez-moi savoir si vous trouvez un moyen de le faire!

OriginalL'auteur Aaron Contreras
2

Votre réponse m'a vraiment aidé. J'ai eu le même problème, mais avec des fichiers Excel: un fichier Excel accès à un autre Excel (à l'ouverture) avec Microsoft.ACE.OLEDB.12.0 et cette source de données fichier ne s'enferment (en cours d'utilisation).

Donc, j'ai enlevé le "actualiser les données lors de l'ouverture du fichier", puis-je le remplacer par du code VBA dans l'événement "Workbook_Open". Mais j'ai amélioré un peu ton code, parce que j'ai été faire des erreurs, car j'ai une autre connexion ODBC (pas OLEBD) dans mon classeur, j'ai dû ajouter cette SI. Maintenant que tout fonctionne bien.
```
Private Sub Workbook_Open()
    Dim i As Integer
    Dim awc As WorkbookConnection

    For i = 1 To ActiveWorkbook.Connections.Count
        Set awc = ActiveWorkbook.Connections.Item(i)
        If awc.Type = xlConnectionTypeOLEDB Then
            With awc.OLEDBConnection
                .EnableRefresh = True
                .BackgroundQuery = False
                .Reconnect
                .Refresh
                .MaintainConnection = False
            End With
        ElseIf awc.Type = xlConnectionTypeODBC Then
            With awc.ODBCConnection
                .EnableRefresh = True
                .BackgroundQuery = False
                .Refresh
            End With
        End If
    Next i
End Sub
```
Génial! Je suis content que cela a aidé à vous, et merci pour l'ajout de votre code mis à jour pour la postérité 🙂

OriginalL'auteur Matt Roy
1

Ce que vous pouvez faire est d'essayer de changer le Mode dans votre chaîne de connexion à

Mode=Lire

au lieu de

Mode=Partager Refuser Aucun

J'ai essayé dans mon poste, mais en vain. Toutefois, ce problème a été résolu quelques années en arrière avec la solution ci-dessus. Merci 🙂

OriginalL'auteur Harry Duong

Vous devez vous connecter pour publier un commentaire.