Help : Bases de données

Signaler
Messages postés
7
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
10 juin 2002
-
Messages postés
7
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
10 juin 2002
-
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

10 réponses

Messages postés
155
Date d'inscription
vendredi 2 novembre 2001
Statut
Membre
Dernière intervention
19 mai 2011

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
Messages postés
7
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
10 juin 2002

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>

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

Enregistrement effectué.

[main2.html

]

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

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

[main2.html

]

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

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

[main2.html

]

</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...
Messages postés
403
Date d'inscription
dimanche 12 août 2001
Statut
Membre
Dernière intervention
3 septembre 2012
2
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...."
Messages postés
7
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
10 juin 2002

Merci, j'ai modifier mon code , mais a ne foncionne toujours pas...
Messages postés
7
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
10 juin 2002

Merci, j'ai modifier mon code , mais cela ne fonctionne toujours pas...J'ai toujours les meme erreurs...
Messages postés
7
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
10 juin 2002

Merci, j'ai modifier mon code , mais cela ne fonctionne toujours pas...J'ai toujours les meme erreurs...
Messages postés
403
Date d'inscription
dimanche 12 août 2001
Statut
Membre
Dernière intervention
3 septembre 2012
2
essaie ca
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>

<%
rs.Open "select * from Mac", conncellule, 1,2
rs.AddNew
rs("NOM") = NOM & ""
rs("BUREAU") = BUREAU & ""
rs("PRISE") = PRISE & ""
rs("ADRESSE_IP") = ADRESSE_IP &""
rs("ADRESSE_MAC") = ADRESSE_MAC & ""
rs("NOM_NOVELL") = NOM_NOVELL & ""
rs.Update
rs.Close
set rs = nothing
conncellule.Close
set conncellule = nothing
%>

Enregistrement effectué.

[main2.html

]

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

<%

rs.Open "SELECT MAC WHERE Numéro LIKE '"&Numero&"'" , conn, 1, 2
while not rs.EOF
rs("NOM") = NOM
rs("BUREAU") = BUREAU
rs("PRISE") = PRISE
rs("ADRESSE_IP") = ADRESSE_IP
rs("ADRESSE_MAC") = ADRESSE_MAC
rs("NOM_NOVELL") = NOM_NOVELL
rs.Update
rs.MoveNext
wend
rs.Close
set rs = nothing
conn.Close
set conn = nothing
%>

L'utilisateur a été modifié.

[main2.html

]

</HTML>

Suppr.asp
je suppose que tu as du faire une erreur la c'est modifier
et pas supprimer
donc on va mettre le code de supression
<!-- DATE DE CREATION: 29/05/2002 -->
<!-- <%@ LANGUAGE="VBSCRIPT"%> -->
<%
Numero=Request.form("Numéro")

DSN_BASE = "DBQ=" & Server.Mappath("prise.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"

Set conn=Server.CreateObject("ADODB.Connection")
conn.open DSN_BASE

conn.Execute "DELETE * FROM MAC WHERE NUMERO like '" & Numero & "'"
conn.Close
set conn = nothing
%>
<HTML>
<HEAD>
<TITLE></TITLE>
<META NAME="Description" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Author" CONTENT="cle">
<META NAME="Generator" CONTENT="WebExpert">
</HEAD>

<%
%>

L'utilisateur a été supprimer.

[main2.html

]

</HTML>
Messages postés
7
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
10 juin 2002

J'ai essayé, pour ajout, il me met l'erreur "la base de données ou l'objet est en lecture seule".
Pour modifier, il valide correctement, me met que l'enregistrement est modifié, mais ne le modifie pas dans la base de données.
Pour supprimer, "Impossible de supprimer dans les tables spécifiées".

J'ai installé I2S a partir du CD de Windows 2000 pro et fait les liens des tables avec ODBC.
Dois-je installé I2S avec 2000 server.

Merci
Messages postés
403
Date d'inscription
dimanche 12 août 2001
Statut
Membre
Dernière intervention
3 septembre 2012
2
si le site est en local, il faut que tu ailles sur proprité du dossier ou il y a la bdd et dans securité tu cherche compte invité internet ou IUSR_....
et tu coche controle et sit ut a tjrs le pb tu fais pareil sur la bdd
Messages postés
7
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
10 juin 2002

Merci, :big) Mcjo, grace a toi, les parties ajout et suppression fonctionnent correctement.
La partie modifier ellle par contre ne fonctionne toujours pas.
Il n'y a pas de messages d'erreurs, il dit que la modif est effectué mais rien n'est modifié dans la base...