Bonjour,
J'ai un problème depuis aujourd'hui et malheureusement aucun sujet ne répond complétement à ma question...
Donc voici l'erreur qui m'est affiché (voir PJ) :
Erreur d'exécution '3709':
Impossible d'utiliser cette connexion pour effectuer cette opération.
Elle est fermée ou non valide dans ce contexte
Voice mon code, qui fonctionnait jusqu'à ce matin
L'erreur se passe à la dernière ligne et la connexion à la base de données semble fonctionné..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Dim reqGraph As New ADODB.Recordset Dim cnx As New ADODB.Connection Dim s As String Dim d As String s = "DBQ=" & adress d = "Microsoft Access Driver (*.mdb)" DBEngine.RegisterDatabase "MonDSN", d, True, s cnx.ConnectionString = "MonDSN" cnx.Open reqGraph.Open "select * from XXXX"
Savez-vous d'où cela peut venir ?
Ps : je suis pas un expert en VBA, j'utilise seulement depuis 1 mois
Merci d'avance pour vos réponses
JB
Partager