Discussion :

[jbkkz]

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

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"

L'erreur se passe à la dernière ligne et la connexion à la base de données semble fonctionné..
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

[Jean-Philippe André]

SAlut,

un peu de lecture sur ADO
http://vb.developpez.com/bidou/recordset-ado/

A noter que lorsque tu utilises un Recordset, il faut preciser la connexion que tu utilises

Code :

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

reqGraph.Open "select * from XXXX", cnx

serait une premiere etape =]

[jbkkz]

Oui en effet j'ai oublié d'écrire ça sur le code que j'ai copié!!

Merci pour la réponse rapide, j'ai résolu mon problème (qui était en fait une mauvaise déclaration du cnx dans ma fonction...)

Jb