Discussion :

[Melvine]

Salut,

Pour me connecter à une base access je fait cela
Dans un module je fait sa

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Public cn As New ADODB.Connection
 
Public rsass As New ADODB.Recordset
 
 
Public rsemp As New ADODB.Recordset
 
Public rsproj As New ADODB.Recordset

Puis sur ma feuille principale je met cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Load()
cn.Open "dsn=gestion1"
'''''on met cursorlocation pour que les find marche
'''''comme on pourra se deplacer ou on veu dans le recordset
rsass.CursorLocation = adUseClient
rsass.Open "Assignement", cn, adOpenDynamic, adLockOptimistic
rsemp.CursorLocation = adUseClient
rsemp.Open "Employee", cn, adOpenDynamic, adLockOptimistic
rsproj.CursorLocation = adUseClient
rsproj.Open "Project", cn, adOpenDynamic, adLockOptimistic
 
End Sub

Et j'aurai aimé savoir si vous procedier comme cela pour vous connecter à une base de donnée Access ?

Merci d'avance à tous.