Discussion :

[jouf]

bonjour,
j'essaye de creer une connection OLEDB pour enregistré mes données sur un complément de ma base de données.
j'ai essayé par ce code

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
 
Sub Renseigner_Click()
Dim Table As String
Dim Thème As String
Dim Cn As New ADODB.Connection
Dim R As New ADODB.Recordset
 
Table = Me![Table]
Thème = Me![Thème]
Réf = Null
 
 
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\Archives\" & Thème & ".mda"
 
    SQLText = "SELECT * FROM [" & Table & "] WHERE [Désignation] = '" & Réf & "';"
    R.Open SQLText, Cn, adOpenStatic
 
    R.AddNew
    R![Désignation] = Me![Désignation]
    R![Unité] = Me![Unité]
    R![Prix de vente] = Me![Prix de vente]
    R![Date] = Me![Date]
    R![Réference Fournisseur] = Me![Réference Fournisseur]
    R![TypeAffaire] = Me![TypeAffaire]
    R![TypeTravaux] = Me![TypeTravaux]
    R![Source] = Me![Source]
    R.Update
 
End Sub

mais je recoit le message d'erreur "objet requis"au niveau de l'ouverture de la connection "cn.open"
si quelqu'un avait une suggestion,

merci d'avance,

jouf

[pgz]

Bonjour,

Puis-je te suggérer de faire un MsgBox sur les arguments de ton instruction open, avant de l'exécuter?
Ce pour vérifier que ThisWorbook et Thème contiennent bien ce que tu attends , et qu'il ne manque pas d'apostrophes pour délimiter le nom de ta data source.

Bon courage,

pgz

[jouf]

merci pgz, tu as vu juste: effectivement mon Workbook etait à coté de la plaque.

Mais j'ai de nouveau un problème. une erreur se produit au niveau du "R.addnew".
il me donne l'erreur 3251 soit:

"le jeu d'enregistrement suivant ne prend pas en charge la mise à jour. Il s(agit peut etre d'une limitation du fournisseur ou du type de verrou selectionné."

s'il quelqu'un a deja rencontré se type d'erreur...

merci d'avance,
jouf