Bonjour à tous ,
SVP, j'essaie d'importer dans un fiichier Excel de données d'une base de donnée Access, le résultat est bon...
pour la requête Update, le résultat est bon
mais si je veux inserer de données dans la table, le code VBA bogue...
pouvez vous SVP m'aider.
merci beaucoup


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
Private Sub btn_Click()
 
' declaration des variables
Dim cnx As ADODB.Connection 
Dim rst As ADODB.Recordset
 
'Instanciation des variables
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
 
'Définition du pilote de connexion
cnx.Provider = "Microsoft.Jet.Oledb.4.0"
 
'Définition de la chaîne de connexion
cnx.ConnectionString = "C:\DEV\Pré allocation.mdb"
 
'Ouverture de la base de données
cnx.Open
 
'Exécution de la requête
 
'Requête Selection : OK
 
'Requete Update : OK
' rst.Open "Update Data_pré_allocation set Name_Broker1 = ""OK"" where ISIN = ""FR22333"";", cnx
 
'Requête INSERT : Problème
rst = "INSERT INTO Data_pré_allocation (Type_Maché,Instrument_Name) VALUES (""OK"" , ""OKOK"")"
dbBase.Execute rst, dbFailOnError
End Sub