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.