Connection Base de donnée via ADO
Salut,
j'ai un soucis avec ma connection à ma base de donnée en ADO.
j'ai écrit ce code dans un module
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
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:
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...
