Discussion :

[Identifiant]

C'est un simple formulaire avec un login et un password. Lorsque j'insère des
valeurs dans ces 2 champs, ils seront insérés dans une table access Users.

Erreur :

Code :

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

1
2
3
4
 
 Microsoft JET Database Engine (0x80040E14)
 Syntax error in INSERT INTO statement.
 /cre/verif.asp, line 12

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
<%@LANGUAGE="VBSCRIPT"%>
<%
vlogin=Request.Form("login")
vpassword=Request.Form("password")
filePath=Server.MapPath("BDUsers.mdb")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&filePath

sql="INSERT INTO Users(nom,password) VALUES ('"&vlogin&"','"&vpassword&"')"

Set obj_RecordSet=Server.CreateObject("ADODB.Recordset")
Set obj_RecordSet=Connection.Execute(sql)



Connection.close
Set Connection=nothing
%>

[Invité]

Fais un response.write de ta chaine "sql", qu'on voie d'où vient l'erreur.

[Identifiant]

La requête sql marche bien. L'erreur provient donc du reste du code :

Code :

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

1
2
3
4
5
6
7
 
Set obj_Recordset=Server.CreateObject("ADODB.Recordset")
Set obj_Recordset=Connection.Execute(sql)
 
Connection.close
Set Connection=nothing
%>

[kaiser59]

Salut,

A tout hasard se serait pas plutot ton

Code :

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

<%@LANGUAGE="VBSCRIPT"%>

qui le fait planter perso je ne met jamais et j'ai pas de problème de syntaxe.

++

[Identifiant]

Je peux ne pas l'écrire (language="vsbcript" ...).
Y a-t-il un autre code qui me permet d'exécuter l'insertion ?

[kaiser59]

Salut,

Tu enlève tout simplement la ligne

Code :

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

<%@LANGUAGE="VBSCRIPT"%>

de ta page, et tu laisses le reste. Essaye ça


++

[Invité]

Désolé du réveil tardif, j'aurais du voir l'erreur tout de suite. Ceci suffira largement :

Code :

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

1
2
3
sql="INSERT INTO Users(nom,password) VALUES ('"&vlogin&"','"&vpassword&"')"
 
Connection.Execute(sql)

Tu éxécute une commande, tu ne crée pas un recordset.

[Identifiant]

J'ai modifié mon code en éliminant l'objet Recordset. ça ne marche pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
<%@LANGUAGE="VBSCRIPT"%>
<%
vlogin=Request.Form("login")
vpassword=Request.Form("password")
filePath=Server.MapPath("BDUsers.mdb")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&filePath
sql="INSERT INTO Users(nom,password) VALUES('" & vlogin & "','" & vpassword & "')"
Set obj_RecordSet=Server.CreateObject("ADODB.Recordset")
Connection.Execute(sql)
%>

L'erreur donné est:

Error Type:
Microsoft JET Database Engine (0x80040E14)
Syntax error in INSERT INTO statement.
/insert_into_database/verif.asp, line 10

[Immobilis]

Et avec la connexion que je t'ai donné?
Response.write(SQL) donne quoi?

[Identifiant]

Code :

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

1
2
3
4
...
sql="INSERT INTO Users(nom,password) VALUES('" & vlogin & "','" & vpassword & "')"
Response.Write(sql)
%>

avec Response.Write, la page asp est accessible et elle affiche :
INSERT INTO Users(nom,password) VALUES('Identifiant','whatever')

donc ça marche

[Immobilis]

Et tu as vraiment changé la chaine de connexion comme je te l'ai indique?

[Identifiant]

Et finalement mon problème est résolu. Je vous remercie beaucoup pour votre
temps. Merci tout le monde.


C'est le code correct pour insérer des informations dans une table Access :

Code :

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

1
2
3
4
5
6
7
8
9
10
<%@LANGUAGE="VBSCRIPT"%>
<%
vlogin=Request.Form("login")
vpassword=Request.Form("password")
strProvider = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\insert_into_database\BDUsers.mdb;"
set objConn = server.createobject("ADODB.Connection")
objConn.Open strProvider
sql="INSERT INTO Users(login,password) VALUES('" & vlogin & "','" & vpassword & "')"
objConn.Execute(sql)
%>