Discussion :

[Alixe80]

Salut,

j'ai un soucis avec ma connection à ma base de donnée en ADO.

j'ai écrit ce code dans un module

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Public cnxADO As New ADODB.Connection
Public cmdADO As New ADODB.Command
Public rsADO As New ADODB.Recordset
Public Erreur As Boolean
 
' Ouverture et Connexion avec la base.
'--------------------------------------
Public Sub ouvrirBD()
 
   Erreur = False
   cnxADO.Provider = "Microsoft.Jet.OLEDB.4.0" 
   cnxADO.ConnectionString = App.Path & "\BD.mdb"
   cnxADO.Open 'Puis, ouvrir la connexion
   On Error GoTo ErreurDeConnexion
   cmdADO.ActiveConnection = cnxADO
 
ErreurDeConnexion:
   Erreur = True
 
End Sub
 
 
' Ouverture Requetes
'--------------------
Public Sub ouvrirRs(Sql As String)
 
  cmdADO.CommandText = Sql
  rsADO.CursorLocation = adUseClient 
  rsADO.CursorType = adOpenDynamic 
  rsADO.LockType = adLockPessimistic 
  rsADO.Open cmdADO   
 
End Sub
 
' Fermeture Requetes
'--------------------
Public Sub FermerRs()
 
    rsADO.Close
    Set rsADO = Nothing
 
End Sub
 
'Fermetur de la BD
'-------------------
Public Sub FermerBD()
 
    cnxADO.Close
    Set cnxADO = Nothing
 
End Sub

Et ce code dans une form

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Private Sub Form_Load()
 
    compacterBD
    ouvrirBD
    If Erreur = True Then
         MsgBox "Ouverture de la base de données impossible !", vbCritical, Me.Caption
    End If
 
End Sub

Le problème c'est que il me met tout le temps le message Ouverture de la base de données impossible et je ne vois pas ce qui cloche. Tout devrait etre bon...

[SfJ5Rpw8]

à premiére vue manquerai un exit sub ...

Code :

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

1
2
3
4
5
6
7
8
9
10
 
...
cmdADO.ActiveConnection = cnxADO
 
exit sub   
 
ErreurDeConnexion:
   Erreur = True
 
End Sub

[Alixe80]

Oh et bien merci pour la réponse.
Effectivement c'était bien le problème. J'avais rien remarqué