[VB6] Recordset

Bonjour à tous,

J'essaye de créer en VB6 une fonction qui exécute une requête Sql et qui me retourne le recordset associé.

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Function ConnectionBd() As ADODB.Recordset Dim ConnectionString As String Dim adoConnection As ADODB.Connection Dim adoRec As ADODB.Recordset   Set adoRec = New ADODB.Recordset Set adoConnection = New ADODB.Connection   // J'éxécute ensuite ma requête // je veux ensuite retourner le recordset   Set Connection = adoRec   End

---

J'aimerais appeler cette fonction dans un autre module, mais je n'y arrive pas. Quelqu'un peut-il m'aider?

Merci

Salut!
Déjà, je te conseillerais de passer ta requête SQL en paramètre d'entrée de ta fonction.
Ensuite, à la fin, "Set Connection = adoRec ", ça ne devrait pas être
"Set ConnectionBd = adoRec", par hasard?

Voilà le code que je viens de modifier et qui ne marche toujours pas.
J'ai crée dans un premier temps une classe (de type ConnectionBaseDeDonnees) qui gère l'éxécution de la requête :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

'variables locales de stockage des valeurs de propriétés Public NomDuFichierDeLaBaseDeDonnees As String Public connectString As String Public adoConnection As ADODB.Connection Public adoRecordset As ADODB.Recordset Public SQLRequete As String     Public Sub ConnecterBD() Set adoConnection = New ADODB.Connection Set adoRecordset = New ADODB.Recordset SQLRequete = "Select * from 985422" 'Jointure des tables NomDuFichierDeLaBaseDeDonnees = App.Path & "\BDbourse\sicovam3.mdb" connectString = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & NomDuFichierDeLaBaseDeDonnees adoConnection.Open connectString adoRecordset.Open SQLRequete, adoConnection, adOpenKeyset, _ adLockOptimistic, adCmdText MsgBox adoRecordset!datecotation // il m'affiche bien la valeur que je souhaite adoConnection.Close End Sub

---

La connection a la Base marche très bien.

Dans une autre classe, j'instancie un objet de type ConnectionBaseDeDonnees :

Code:

---

1 2 3 4 5 6

Dim dd As ConnectionBaseDeDonnees Set dd = New ConnectionBaseDeDonnees dd.ConnecterBD Debug.Print dd.adoRecordset!datecotation

---

Là il me met une erreur, en m'indiquant qu'il ne connait pas l'objet. Quelqu'un voit-il une erreur dans mon code?

Merci

et... comment la 2ème "class" est-elle informée de la base à traiter :?:

(à moins qu'il ne manque un bout de code, je ne vois pas !....)

Citation:

---

Envoyé par jmfmarques

et... comment la 2ème "class" est-elle informée de la base à traiter :?:

(à moins qu'il ne manque un bout de code, je ne vois pas !....)

---

Toutes les informations sont dans la procédure ConnecterBD(), non?

salut,;
je pense que le pb est le faite de fermer la connection adoConnection sans déconnecté le curseur.
essai dans la foction ConnecterBD

Citation:

---

adoRecordset.ActiveConnection=nothing
adoConnection.Close

---

Citation:

---

Envoyé par Amri_Daly

salut,;
je pense que le pb est le faite de fermer la connection adoConnection sans déconnecté le curseur.
essai dans la foction ConnecterBD

Citation:

---

adoRecordset.ActiveConnection=nothing
adoConnection.Close

---

---

Je viens de rajouter ceci, et apparamment ça marche.
Merci.