BonJour

J'ai lu un tuto sur la modification

et j'ai fait ça

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
 
Option Explicit
Public cnx As ADODB.Connection
Public rst As ADODB.Recordset
 
Private Sub Form_Load()
Dim SQL As String
Dim provider As String
Dim source As String
 
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
 
'************************
'       Requete         *
'************************
 
cnx.provider = "MSDatashape"
cnx.Open "DataProvider = Microsoft.Jet.OLEDB.4.0;DataSource = C:\Documents and Settings\pmouynet\Bureau\Facture 2006\Bdd\Facture.mdb"
 
 
 
'-----------------------------------
End Sub
 
Private Sub Grille_Recordset()
Dim SQL As String
 
Set rst = New ADODB.Recordset
 
SQL = "SELECT factPrest.id, factPrest.idsociete, factPrestContient.idtitre, factPrestContient.idopPrest, factPrestContient.quantite FROM factPrest INNER JOIN factPrestContient ON factPrest.id = factPrestContient.idfactPrest where factPrest.id=14 order by factPrestContient.idtitre, factPrestContient.idopPrest;"
 
rst.Open SQL, cnx, adOpenDynamic, adLockOptimistic, adCmdText
mais j'ai un message d'erreur sur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
cnx.Open "DataProvider = Microsoft.Jet.OLEDB.4.0;DataSource = C:\Documents and Settings\pmouynet\Bureau\Facture 2006\Bdd\Facture.mdb"
qui est :

[microsoft][OBDC Driver Manager] Data Source name and no default driver specified
pouvez vous m'aider ??