Discussion :

[nicolasferraris]

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 :

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")&"'"
-------------^

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
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
%>

merci

[pc75]

Bonjour,

Tes guillemets sont mals placés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
req = "INSERT INTO tblInscription (Organisme_Stagiaire) SELECT Organisme_Stagiaire FROM tblPanier  WHERE refGestionnaire='"&Request.form("refGestionnaire")&"'"

[nicolasferraris]

nickel, je te remercie

[debutantasp]

Bonjour,
Tu dois commencer ta requête Insert Par des guillemets.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
req = "INSERT INTO tblInscription (Organisme_Stagiaire)...

Mais pour la requête que tu as fait déjà, je vois quelle est incorrecte il te manque la valeur a inserer.
Syntaxe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
requete="INSERT INTO TABLE(Champ1,Champ2,ChampN)Values(Valeur1,Valeur2,ValeurN)"
Conn.Execute(requete)

Récupère le "refGestionnaire" dans une requête et dans une autre requête tu fais l'insertion.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
req1="SELECT Organisme_Stagiaire FROM tblPanier  WHERE refGestionnaire='"&Request.form("refGestionnaire")&"'"
set rs=server.createObject("adodb.recordset")
rs.Open req1, conn, 3, 3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
req2="INSERT INTO tblInscription (Organisme_Stagiaire)Values('" & Rs("refGestionnaire") & "')"
conn.Execute(req2)

Bonne chance.

[debutantasp]

Tu veux faire quoi au juste?