Bonjour,
Voila lorsque j'ai une erreur "impossible d'utiliser cette connexion pour effectuer cette opération.
Elle est fermée ou non valide dans ce contexte." Lorsque je compile avec VB6
Je n'arrive pas à comprendre d'ou viens cette erreur ... même si il me met en jaune la ligne ou je fais ma requête, je présume que cela ce passe lors des paramètres de ma requêtes, mais je ne suis pas habitué à mettre autres choses.
Voici mon 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
Option Explicit
Dim bd As New ADODB.Connection
 
Dim tb As New ADODB.Recordset
Dim tb1 As New ADODB.Recordset
Dim tb2 As New ADODB.Recordset
 
Dim msg1, msg2 As String
 
Private Sub Form_Load()
 
        bd.Provider = "microsoft.jet.oledb.4.0"
        bd.ConnectionString = App.Path & "\VGP_GMAO.mdb"
 
        tb.Open "select EnOfMAO.NUMEROOF,CODEAFFEC,COMPLAN,LIBPLAN,DELAIMAJ,TEMPSPREV,NUMEROOP,LIBELOPE,TUNIPREVU,*TYPAPPORT,ARTICLE,LIBAPPORT,BESOIN,UNISTOCK from EnappgamMAO, EnOfMAO, EnopeMAO", bd, adOpenDynamic, adLockOptimistic
 
       ' tb.MoveFirst
 
End Sub
Eva, à bientôt