Discussion :

[MaxAttila]

Bonjour,

Ma requete INSERT depuis Excel vers Access 2003 via VBA, me renvoye une erreur :

Run-time error '3709':
The connection cannot be used to perform this operation. it is either closed or invalid in this context

Le but est de saisir une donnée saisie par l'utilisateur dans une boite de dialogue et de l'enregister dans la base de donnée.

Voici le code avec les 3 procédures impliquées :

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
Dim Cnn1 As ADODB.Connection
 
Public Sub DBaccess()
 
Set Cnn1 = New ADODB.Connection
Cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Project\Implementation\db1.mdb;User Id=Admin; Password="
 
End Sub
 
 
Sub insertBPUQuery(BPUname As String, ByRef Cnn1 As Connection)
Dim str As String
 
str = "INSERT INTO BPU(nameBPU,numBookkeeping) VALUES('" & BPUname & "',001)"
 
Dim MyRequest As ADODB.Recordset
Set MyRequest = New ADODB.Recordset
  With MyRequest
       .ActiveConnection = Cnn1
      .Open str
  End With
 
End Sub
 
 
Sub MaincreateBPU_Click()
 
Dim newBPUName As String
 
newBPUName = InputBox("Enter your new BPU name", "Create BPU")
insertBPUQuery newBPUName, Cnn1
 
End Sub

Est-ce une erreur relative a l 'objet RecordSet ou a la connection, ou à la requête ?

Merci d'avance

Max

[kiki29]

Salut,voir sur http://access.developpez.com/faq/?page=SQL#DiffRstSQL ou via http://www.google.fr/#sclient=psy&hl...w=1014&bih=727