Discussion :

[joquetino]

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 :

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

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

[Megaxel]

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?

[joquetino]

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 :

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
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 :

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

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

[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 !....)

[joquetino]

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?

[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

adoRecordset.ActiveConnection=nothing
adoConnection.Close

[joquetino]

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

adoRecordset.ActiveConnection=nothing
adoConnection.Close

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