Discussion :

[LeXo]

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 ??

[sovo]

Essai de mettre le cnx.provider en commentaire

Code :

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

1
2
'cnx.provider = "MSDatashape"
cnx.Open "DataProvider = Microsoft.Jet.OLEDB.4.0;DataSource = C:\Documents and Settings\pmouynet\Bureau\Facture 2006\Bdd\Facture.mdb"

Je c crois que la ca devrais aller.