"connection fermée ou non valide"Résolu

Question

bonjour, 
voila mon probleme (en vb6) , pour remplir une combobox avec des donn&#233;es venant d'une base de donn&#233;es sql server, je fais ce code la : 
Dim Rst_Sql As ADODB.Recordset
         Set Cmd_PSSql = New ADODB.Command
         Cmd_PSSql.ActiveConnection = Cls_Db_Me.Connexion----> l'erreur est ici
         Cmd_PSSql.CommandType = adCmdStoredProc
         Cmd_PSSql.CommandText = "PS_GET_ALL_ETAPES_ISO"
         Set Rst_Sql = Cmd_PSSql.Execute
         Set Cmd_PSSql = Nothing
         If Not Rst_Sql.EOF Then
             While Not Rst_Sql.EOF
                 Cbo_Etapes.AddItem Rst_Sql("ID_ETI"), Rst_Sql("LIBELLE_ETI")
                 Rst_Sql.MoveNext
             Wend
         End If
         Rst_Sql.Close
         Set Rst_Sql = Nothing
sachant que cls_db est d&#233;clar&#233; dans option explicit en tant que module de classe pour la connection, et que je dois utiliser des proc&#233;dures stock&#233;e (je suis en stage...  ) et lorsque je lance mon appli, quand je clik sur ma combo, il me mlets cette erreur la : "impossible d'utiliser cette connexion pour effectuer cette op&#233;ration, elle est ferm&#233;e ou non valide pour ce contexte"
Et pourtant j'ai fais un copier coll&#233; de ce qui existait deja dans d'autres feuilles! 
je ne comprends pas mon erreur, qqn peut -il m'aider??? 
merci d'avance.... 
sabrina

Pierre_faucon · Accepted Answer

Bonsoir Sabrina,

J'ai l'impression que tu te m&#233;langes un peu les pinceaux  ( Ne le prends pas mal...)
> Cls_Db_Me.Connexion = Cls_Db_Me.OpenDb
Lorsque tu affectes une valeur objet &#224; une variable objet, tu dois utiliser Set ...
De plus, il faut que les objets soient de m&#234;me type, sinon cela ne peut pas fonctionner. Ici, tu essaies d'affecter je ne sais trop quoi ( opendb n'est pas un objet mais une m&#233;thode ) &#224; un objet connection... Donc probl&#232;me

Je ne sais pas ce que repr&#233;sente Cls_Db_Me, mais si c'est un module de classe, je pense que c'est "du bricolage" que d'essayer d'externaliser un objet connection d'une classe.

Pour ma part, je reprendrais les choses &#224; z&#233;ro et envisagerais deux possibilit&#233;s :
1. Travailler avec un objet ADODB.Connection
Dans ce cas, tu peux travailler avec un objet connection g&#233;n&#233;rique, cr&#233;&#233; dans un module standard et initialis&#233;, souvent, dans sub Main qui se lance au lancement de l'application ( le plus souvent, ...)
Pour cela, dans un module standard, dimensionne ton objet
Public MaConnexion as ADODB.Connection

Sub Main
   Set MaConnexion = New ADODB.Connection
   MaConnexion.Open "..." ' remplace les ... par la cha&#238;ne de connexion appropri&#233;e
   ...
End Sub

Lorsque tu veux remplir ton combobox, tu cr&#233;es alors ton recordset comme dans le code de ton premier message, en mettant pour ta commande
.ActiveConnection = MaConnexion

2. Utilisation de DataEnvironnment
En utilisant un concepteur DataEnvironnement, tu peux cr&#233;er une connexion, puis cr&#233;er une commande pour cette connexion que tu lies &#224; ta proc&#233;dure stock&#233;e.
En utilisant des datacombo, tu auras la possiblit&#233; de les lier &#224; la connexion et &#224; la commande du dataenvironnment cr&#233;&#233;, et tu ne devras alors pas remplir ton combo par une boucle.

Cela te convient-il?

Pierre Fauconnier

Pierre_faucon · Answer

Bonjour

En plus de d&#233;clarer ta connection, tu dois l'ouvrir avec une ligne du genre
Cls_Db_Me.Connexion.Open Cha&#238;neDeConnexion

Cherche dans cls_db_me si tu trouves cette ligne ( chaineDeConnexion est une variable, tu dois donc cherche cls_db_me_connexion.open ) et recopie cette ligne avant la ligne
Cmd_PSSql.ActiveConnection = Cls_Db_Me.Connexion

A toi d'adapter pour que ta connexion soit ouverte avant d'y faire r&#233;f&#233;rence lors de l'utilisation d'une commande.

Ok?

Pierre Fauconnier

sabou94 · Answer

merci mais ca n'a pas resout mon probleme! ca me met une autre erreur maintenant : 
         Cls_Db_Me.Connexion = Cls_Db_Me.OpenDb
"cet argument n'est pas facultatif" 
j'ai mis ca car le connexion.open n'exite pas.... est il possible que l'erreur vienne du fait que la connexion soit mal ferm&#233;e dans la feuille precedente? 
merci. 
sabrina

sabou94 · Answer

Ok merci j'ai compris, ca marche nickel maintenant! 
MERCI!
sabrina

"connection fermée ou non valide"

4 réponses

Discussions similaires