INSERT INTO
Alexheyt
Messages postés
4
Date d'inscription
lundi 7 juin 2004
Statut
Membre
Dernière intervention
4 septembre 2004
-
15 juin 2004 à 15:05
IvanTheBlackDog
Messages postés
39
Date d'inscription
mardi 15 mars 2005
Statut
Membre
Dernière intervention
31 juillet 2006
-
31 mai 2005 à 13:05
Bonjour J'ai un énorme problème avec l'insertion de mes données dans ma DB.
chaque fois que j'exécute mon code il m'affiche comme erreur
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/proffr/frame/inscripttest.asp, line 149
Voici mon code qqun peut-il m'aider parce que là je suis pômée.
<code>
<html>
<head>
<title>Document sans titre</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<form name="form" method="post" action="inscripttest.asp">
Nom
</form>
<!--boutonclick=Request.Form("Submit")
If boutonclick="Envoyer" then//-->
<%'Server.ScriptTimeout=120
'------------------------------------------------------------------------------------
'Définir les var schamp
'------------------------------------------------------------------------------------
nom=request.form("nom")
prenom=request.form("prenom")
prof=request.form("prof")
adrprof=request.form("adrprof")+", "+request.form("boite")+" _ "+request.form("num")+" - "+request.form("cp")+" "+request.form("ville")
adrprof=Replace(adrprof,">",">")
adrprof=Replace(adrprof,"<","<")
adrprof=Replace(adrprof,"'","''")
adrprof=Replace(adrprof,"-","_")
adrprof=Replace(adrprof,",",";")
adrprof=Replace(adrprof,vbCrLf,"
")
tel=request.form("tel")
fax=request.form("fax")
mail=request.form("mail")
inami=request.form("un")
login=Request.Form("login")
pass=Request.Form("pass")
'------------------------------------------------------------------------------------
'Créer un connection
'------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------
'Ouvrir la base sans DSN avec chaîne de connexion
'------------------------------------------------------------------------------------
chnCon ="DRIVER={Microsoft Access Driver (*.mdb)};" _
& " DBQ=" & server.mappath("../../../") & "\scripts\inscriptions.mdb"
SET objCon = Server.CreateObject("AdoDB.Connection")
objCon.open chnCon
'------------------------------------------------------------------------------------
'Créer les requêtes SQL
'------------------------------------------------------------------------------------
'SQLsc = "SELECT inami FROM inscript"
SQL = "INSERT INTO inscript (nom, prenom, prof, adrprof, tel, fax, mail, inami, login, pass)"_
&"select '"&cstr(nom)&"' as nom, '"_
&cstr(prenom)&"' as prenom, '"_
&cstr(prof)&"' as prof, '"_
&cstr(adrprof)&"' as adrprof, '"_
&cstr(tel)&"' as tel, '"_
&cstr(fax)&"' as fax, '"_
&cstr(mail)&"' as mail, '"_
&cstr(inami)&"' as inami, '"_
&cstr(login)&"' as login, '"_
&cstr(pass)&"' as pass;"
objCon.Execute(SQL)
'RS.addnew
' RS.nom='"&&"'
'RS("prenom")=
'RS("prof")=
'RS("adrprof")=
'RS("tel")=
'RS("fax")=
'RS("amil")=
'RS("inami")=
'RS("login")=
'RS("pass")=
'RS.update
'
'SET objRs = Server.CreateObject ("ADODB.RecordSet")
'objRs.open SQLs2,chnCon,"ID_inscript" Next
'ObjRs.execute(SQLs2)
'objRs.close
'Set objRs = Nothing
'Voici les opérateurs possibles :
'+ Addition
'- Soustraction
'* Multiplication
'/ Division
'< Plus petit que
'<= Plus petit ou égal à
'= Égal à
'!= ou <> N'est pas égal à
'>= Plus grand ou égal à
'and ET
'or OU
'not Négation
objCon.close
Set objCon=nothing
response.Redirect "../login1.asp"
%>
</html>
AlexH