Sujet Précédent Sujet Suivant

Help : Bases de données

cs_carine Messages postés 7 Date d'inscription mardi 4 juin 2002 Statut Membre Dernière intervention 10 juin 2002 - 4 juin 2002 à 16:09
cs_carine Messages postés 7 Date d'inscription mardi 4 juin 2002 Statut Membre Dernière intervention 10 juin 2002 - 10 juin 2002 à 12:58
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

Réponse 1 / 10
Seb_d_angers Messages postés 155 Date d'inscription vendredi 2 novembre 2001 Statut Membre Dernière intervention 19 mai 2011
4 juin 2002 à 18:42
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
0
Réponse 2 / 10
cs_carine Messages postés 7 Date d'inscription mardi 4 juin 2002 Statut Membre Dernière intervention 10 juin 2002
5 juin 2002 à 11:30
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...
0
Réponse 3 / 10
cs_Mcjo Messages postés 403 Date d'inscription dimanche 12 août 2001 Statut Membre Dernière intervention 3 septembre 2012 2
6 juin 2002 à 01:45
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...."
0
Réponse 4 / 10
cs_carine Messages postés 7 Date d'inscription mardi 4 juin 2002 Statut Membre Dernière intervention 10 juin 2002
6 juin 2002 à 11:50
Merci, j'ai modifier mon code , mais a ne foncionne toujours pas...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 10
cs_carine Messages postés 7 Date d'inscription mardi 4 juin 2002 Statut Membre Dernière intervention 10 juin 2002
6 juin 2002 à 12:47
Merci, j'ai modifier mon code , mais cela ne fonctionne toujours pas...J'ai toujours les meme erreurs...
0
Réponse 6 / 10
cs_carine Messages postés 7 Date d'inscription mardi 4 juin 2002 Statut Membre Dernière intervention 10 juin 2002
6 juin 2002 à 12:48
Merci, j'ai modifier mon code , mais cela ne fonctionne toujours pas...J'ai toujours les meme erreurs...
0
Réponse 7 / 10
cs_Mcjo Messages postés 403 Date d'inscription dimanche 12 août 2001 Statut Membre Dernière intervention 3 septembre 2012 2
6 juin 2002 à 15:14
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>
0
Réponse 8 / 10
cs_carine Messages postés 7 Date d'inscription mardi 4 juin 2002 Statut Membre Dernière intervention 10 juin 2002
7 juin 2002 à 08:04
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
0
Réponse 9 / 10
cs_Mcjo Messages postés 403 Date d'inscription dimanche 12 août 2001 Statut Membre Dernière intervention 3 septembre 2012 2
8 juin 2002 à 16:12
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
0
Réponse 10 / 10
cs_carine Messages postés 7 Date d'inscription mardi 4 juin 2002 Statut Membre Dernière intervention 10 juin 2002
10 juin 2002 à 12:58
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...
0
Rejoignez-nous