module .bas et connection

Version imprimable

Bonjour,

Je souhaite déclarer dans mon module.bas la chaine de connection pour l'utiliser dans les feuilles de mon projet, j'ai l'erreur suivante :
Source de données introuvable et pilote non spécifié; comme si mon module1.bas n'était pas lu, pourtant le projet y démarre dessus.

Module1.bas

Code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Option Explicit
Public fMainForm As FrmPrincipale
_________________________________________________________
Sub main()
Set fMainForm = New FrmPrincipale
fMainForm.Show
End Sub
 
Public rst As ADODB.Recordset
_________________________________________________________
Public Function InitConnStruct()
 
'Déclaration des variables
Dim cnx As ADODB.Connection
'Instanciation des variables
Set cnx = New ADODB.Connection
'Définition du pilote de connexion
cnx.Provider = "Microsoft.Jet.Oledb.3.51"
'Définition de la chaîne de connexion
cnx.ConnectionString = App.Path & "\structures.mdb"
End FunctionForm1
 
Code :
Private Sub Form_Load()
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
Call InitConnStruct
'Ouverutre connection
cnx.Open
'Exécution de la requête
rst.Open "SELECT * FROM structures", cnx
End SubMerci de votre aide

__________________

12/07/2006, 12h59
jmfmarques

le titre de ton sujet est :

Citation:

module .bas et connection

ce qui donnerait à entendre que le problème résulte de l'utilisation d'un module.

Question : as-tu essayé, avant de décider d'un tel titre, de le faire sans utilisation de module, juste "pour voir" si le problème vient de l'utilisation d'un module ou s'il a une autre raison ?

Je t'invite donc à le faire et à modifier ton titre en cas de découverte autre ...
12/07/2006, 13h39
repié

est tu sûr de bien vouloir le provider

Code:

Microsoft.Jet.Oledb.3.51

et non pas le dernier

Code:

Microsoft.Jet.Oledb.4.0

tu devrais bien déclarer ton objet cnx public

Code:

public cnx as ADODB.connection

dans la partie du module dédié aux déclarations

Je viens de faire le test sans module la j'ai pas d'erreur;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Private Sub Form_Load()
'Déclaration des variables
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
 
'Instanciation des variables
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
 
'Définition du pilote de connexion
cnx.Provider = "Microsoft.Jet.Oledb.3.51"
'Définition de la chaîne de connexion
cnx.ConnectionString = App.Path & "\Structures.mdb"
'Ouverture de la base de données
cnx.Open
 
'Exécution de la requête
rst.Open "SELECT RAISON_SOCIALE FROM T_Structures", cnx
Do While Not rst.EOF
MsgBox rst("RAISON_SOCIALE")
rst.MoveNext
Loop
Set rst = Nothing
Set cnx = Nothing
 
End Sub

Dès que je veux utiliser le module j'ai tjs la même erreur.
Merci de votre aide

12/07/2006, 13h58
jmfmarques

Bien, totoche,

Alors maintenant mets-nous en rouge (edite) la partie de ce dernier code que tu voudrais mettre dans un module ...
12/07/2006, 13h58
totoche

C'est bon merci repié,
fallait déclarer en public cnx;
:mouarf:
12/07/2006, 14h09
repié

c'est cool!
Mais je maintient quand même mon idée que tu devrais travailler avec

Code:

Microsoft.Jet.Oledb.4.0

Il a de nombreuses fonctionnalités en plus...