en sql on ne doit pas faire de rs.open "insert into...
pour les requette de mise a jour il faut utiliser
conncellule.execute "INSERT INTO...."
conncellule.execute "DELETE *...."
conncellule.execute "UPDATE *...."
utiliser seulement pour
rs.open "SELECT * FROM...."
-------------------------------
Réponse au message :
-------------------------------
Ajout.asp
<%
NOM=request.form("NOM")
BUREAU=request.form("BUREAU")
PRISE=request.form("PRISE")
ADRESSE_IP=request.form("ADRESSE_IP")
ADRESSE_MAC=request.form("ADRESSE_MAC")
NOM_NOVELL=request.form("NOM_NOVELL")
'-------déclaration de la base-----------------------------------------------------
'---------(opération qu'il suffit de faire une seule fois en début de fichier)-------
DSN_BASE = "DBQ=" & Server.Mappath("prise.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
'-------création des connection--------------------------
Set conncellule=Server.CreateObject("ADODB.Connection")
conncellule.open DSN_BASE
'-------création des recordsets--------------------------
set rs = Server.CreateObject("ADODB.Recordset")
%>
<HTML>
<HEAD>
<TITLE>AJOUT DE <%=NOM%></TITLE>
</HEAD>
<BODY>
<P>
<%
rs.Open "INSERT INTO MAC (NOM,BUREAU,PRISE,ADRESSE_IP,ADRESSE_MAC,NOM_NOVELL) VALUES ('"&NOM&"', '"&BUREAU&"' , '"&PRISE&"', '"&ADRESSE_IP&"' , '"&ADRESSE_MAC&"' , '"&NOM_NOVELL&"'); " , conncellule
%>
<BR><BR>
Enregistrement effectué.
<BR><BR><BR>
<DIV ALIGN="center">
<A HREF="main2.html" ALT="retour au menu 'Adresse IP/MAC'">
<IMG SRC="images/sitehome.gif" BORDER=0 WIDTH=44 HEIGHT=32>
</A>
</DIV>
</BODY>
</HTML>
Modif.asp
<!-- DATE DE CREATION: 29/05/2002 -->
<!-- <%@ LANGUAGE="VBSCRIPT"%> -->
<%
Numero=Request.form("Numéro")
NOM=Request.form("NOM")
BUREAU=Request.form("BUREAU")
PRISE=Request.form("PRISE")
ADRESSE_IP=Request.form("ADRESSE_IP")
ADRESSE_MAC=Request.form("ADRESSE_MAC")
NOM_NOVELL=Request.form("NOM_NOVELL")
DSN_BASE = "DBQ=" & Server.Mappath("prise.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
Set conn=Server.CreateObject("ADODB.Connection")
conn.open DSN_BASE
Set rs=Server.createObject("ADODB.Recordset")
%>
<HTML>
<HEAD>
<TITLE></TITLE>
<META NAME="Description" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Author" CONTENT="cle">
<META NAME="Generator" CONTENT="WebExpert">
</HEAD>
<BODY BACKGROUND="images/font3.jpg">
<%
rs.open "UPDATE MAC SET NOM='"&NOM&"', BUREAU='"&BUREAU&"', PRISE='"&PRISE&"', ADRESSE_IP='"&ADRESSE_IP&"', ADRESSE_MAC='"&ADRESSE_MAC&"', NOM_NOVELL='"&NOM_NOVELL&"' WHERE ((MAC.Numéro) LIKE '"&Numero&"') ", conn
%>
L'utilisateur a été modifié.
<BR><BR><BR>
<DIV ALIGN="center">
<A HREF="main2.html" ALT="retour au menu 'Adresse IP/MAC'">
<IMG SRC="images/sitehome.gif" BORDER=0 WIDTH=44 HEIGHT=32>
</A>
</DIV>
</BODY>
</HTML>
Suppr.asp
<!-- DATE DE CREATION: 29/05/2002 -->
<!-- <%@ LANGUAGE="VBSCRIPT"%> -->
<%
Numero=Request.form("Numéro")
NOM=Request.form("NOM")
BUREAU=Request.form("BUREAU")
PRISE=Request.form("PRISE")
ADRESSE_IP=Request.form("ADRESSE_IP")
ADRESSE_MAC=Request.form("ADRESSE_MAC")
NOM_NOVELL=Request.form("NOM_NOVELL")
DSN_BASE = "DBQ=" & Server.Mappath("prise.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
Set conn=Server.CreateObject("ADODB.Connection")
conn.open DSN_BASE
Set rs=Server.createObject("ADODB.Recordset")
%>
<HTML>
<HEAD>
<TITLE></TITLE>
<META NAME="Description" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Author" CONTENT="cle">
<META NAME="Generator" CONTENT="WebExpert">
</HEAD>
<BODY BACKGROUND="images/font3.jpg">
<%
rs.open "UPDATE MAC SET NOM='"&NOM&"', BUREAU='"&BUREAU&"', PRISE='"&PRISE&"', ADRESSE_IP='"&ADRESSE_IP&"', ADRESSE_MAC='"&ADRESSE_MAC&"', NOM_NOVELL='"&NOM_NOVELL&"' WHERE ((MAC.Numéro) LIKE '"&Numero&"') ", conn
%>
L'utilisateur a été modifié.
<BR><BR><BR>
<DIV ALIGN="center">
<A HREF="main2.html" ALT="retour au menu 'Adresse IP/MAC'">
<IMG SRC="images/sitehome.gif" BORDER=0 WIDTH=44 HEIGHT=32>
</A>
</DIV>
</BODY>
</HTML>
Pour ajout et Modif, les messages d'erreurs sont "l'opération doit utiliser une requete qui peut etre mise a jour", et pour suppr, le message est "Impossible de supprimer dans les tables spécifiés"
Merci de m'aider...
-------------------------------
Réponse au message :
-------------------------------
donne nous du code, les messages d'erreur etc, sinon je risque de tenter ma chance et dire des conneries...
*********************************
A+
Seb
http://www.programmez.org
-------------------------------
Réponse au message :
-------------------------------
Help! Je n'arrive ni à ajouter, ni à modifier,ni à supprimer des données dans une base access sur mon site asp.
J'ai pourtant fait tout comme sur les autres sites que j'ai visité mais il ne veut rien savoir!
Les erreurs sont les suivantes :
pour Ajouter et Modifier :
objet requis 'rs' (alors qu'il est présent et du type rs.open sql, conn)
pour Supprimer:
impossible de supprimer dans les tables specifiées
Merci d'avance