requete ADO INSERT depuis Excel vers Access
Bonjour,
Ma requete INSERT depuis Excel vers Access 2003 via VBA, me renvoye une erreur :
Citation:
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:
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
