Requête et vbRésolu

Question

Voila je cherche à renvoyer tous les résultats de ma requetes dans une autre tables qui me servira de tempon dans mon projet. Cependant j'ai un petite erreur qui me turlupine " cette opération n'est pas autorisée si l'objet est fermé. "
Pourtant ma requête est bien ouverte ... 
J'ai mis la ligne ciblé par le débogueur en rouge
 Rst.Open "SELECT EnOfMAO.NUMEROOF, EnopeMAO.CODEAFFEC, EnOfMAO.COMPLAN, EnOfMAO.DELAIMAJ, EnOfMAO.TEMPSPREV, EnopeMAO.NUMEROPE, EnopeMAO.LIBELOPE, EnopeMAO.TUNIPREVU, EnappgamMAO.ARTICLE, EnappgamMAO.LIBAPPORT, EnappgamMAO.BESOIN, EnappgamMAO.UNITSTOK From EnOfMAO, EnopeMAO, EnappgamMAO Where EnOfMAO.NUMEROOF EnopeMAO.NUMEROOF And EnopeMAO.NUMEROPE EnappgamMAO.NUMEROPE;", Cxn, , adLockOptimistic

 
Db_VGP.Execute ("Create table EditStatCde (NUMEROOF varchar(50), CODEAFFEC varchar(50), COMPLAN varchar(50), DELAIMAJ varchar(50), TEMPSPREV varchar(50), NUMEROPE varchar(50), LIBELOPE varchar(50), TUNIPREVU varchar(50), ARTICLE varchar(50), LIBAPPORT varchar(50), BESOIN varchar(50), UNITSTOK varchar(50));")

If Rst.RecordCount <> 0 Then
    
    Rst.MoveFirst
    
    While Not (Rst.EOF)
    Rst.Close
    Wend
    
    Set Rst = Nothing
    Db_VGP.Close
    Set Db_VGP = Nothing
End If

Fabrice,

cs_Exploreur · Accepted Answer

Salut,

Ce n'est pas ta requête qui est fermée mais ta connection : Cxn, regrade bien que tu soit bien connecté à ta base...du moins que ta connection soit active/ouverte...

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

puis fait attention dans ta boucle While...le p'tit rst.Close qui se balade.... tu risques d'avoir des surprises...

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Décidement....avant ta requête fait : 

Msgbox Cnx.State
si le résultat 1 la connection est ouverte, si 0 Fermée

A+
Exploreur

 Linux a un noyau, Windows un pépin

fabricioliking · Answer

Ok super c'était bien la connection, merci exploreur 

Fabrice,

Requête et vb

4 réponses

Votre réponse