Insertion dans une base Access

Bonjour,

Je souhaite insérer mes données que je saisi sur un formulaire Excel dans une base de données Access, mon problème, c'est que j'ai toujours un message m'indiquant une erreur, cela fais plus de 2 heures que je cherche mais en vain.

Voici le code que j'ai écris (Dans ma base Access, date_seance est de type DATE, horaire_seance et de type TEXT, #id_cinema et de type NUMERIC, #id_film est en NUMERIC)

connexion = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source =" & ThisWorkbook.Path & "\TP_VBA.accdb"

Debug.Print connexion

Set commande = New ADODB.Command

commande.ActiveConnection = connexion

sql = "INSERT INTO Séance (date_seance, horaire_seance, #id_cinema, #id_film) VALUES('" & Ajouter_seance.TextBox21 & "', '" & Ajouter_seance.TextBox22 & "', '" & Sheets("Cinémas").Cells(ComboBox21.ListIndex + 2, 1) & "', '" & Sheets("Films").Cells(ComboBox22.ListIndex + 2, 1) & "); "

Debug.Print sql

commande.CommandText = sql

Set rs = commande.Execute

Voici ce que la commande d’exécution m'indique :

Provider=Microsoft.ACE.OLEDB.12.0; Data Source =C:\Users\Desktop\TP_VBA.accdb

INSERT INTO Séance (date_seance, horaire_seance, #id_cinema, #id_film) VALUES ('20/05/2016', '20h45', '2', '3');

Merci d'avance.

Bonjour Luigi,

Un rapide look sur google m'a donné ça:

Numeric values must not be quoted

Ton code devrait donc être:

INSERT INTO Séance (date_seance, horaire_seance, #id_cinema, #id_film) VALUES ('20/05/2016', '20h45', 2, 3); 

J'attends ton retour.

Merci à toi

Cependant, ce n'est pas mon premier test, et j'avais déjà essayé sans les quotes et ça ne fonctionné pas.

Tu as également testé en mettant les quotes autour du chemin du fichier?

C'est bon j'ai réussi merci