Bonjour,
je cherche à insérer plusieurs enregistrements dans une table :
Insérer tous les enregistrements de la table tblPanier dans la table tblInscription où le champ refGestionnaire correspond au champ refGestionnaire passé en paramètre.
La page me renvoi l'erreur suivante :
Voici le code de la page de traitement :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Microsoft VBScript compilation error '800a0401' Expected end of statement /FormInscription2Recherche-2.asp, line 15 req = INSERT INTO tblInscription (Organisme_Stagiaire) "SELECT Organisme_Stagiaire FROM tblPanier WHERE refGestionnaire='"&Request.form("refGestionnaire")&"'" -------------^
merci
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 <% Dim conn Dim rs Dim req Dim connstring Set conn = Server.CreateObject("ADODB.Connection") connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/admin/formations3.mdb" conn.Open connstring req = INSERT INTO tblInscription (Organisme_Stagiaire) "SELECT Organisme_Stagiaire FROM tblPanier WHERE refGestionnaire='"&Request.form("refGestionnaire")&"'" set rs=server.createObject("adodb.recordset") rs.Open req, conn, 3, 3 response.redirect ("ResultInscription3.asp") conn.close set conn=nothing %>
Partager