No borra el registro

Rriveros · #1 (**permalink**) 18/05/2003, 19:26

Hola, tengo el código siguiente que al ejecutarlo confirma el borrado de un registro pero no lo borra, me faltará alguna instrucción?

<HTML>
<HEAD>
<TITLE>Borrar2.asp</TITLE>
</HEAD>
<BODY>
<%
'Recogemos los valores del formulario
nombre=Request.Form("Idmensaje")

'Instanciamos y abrimos nuestro objeto conexion
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./foro.mdb")

'Ahora creamos la sentencia SQL
SQL="Delete From discusion Where IdMensaje='" & IdMensaje & "'"

'Ejecutamos la orden
'set RS = conn.execute(SQL)
%>

<h1><div align="center">Registro Borrado</div></h1>
<div align="center"><a href="foro.asp">Visualizar el contenido de la base</a></div>

<%
'Cerramos el sistema de conexion
Conn.Close

%>

</BODY>
</HTML>

Gracias.

Fr@Nc3$c0 · #2 (**permalink**) 18/05/2003, 19:39

Hola:

Me he tomado la libertad de tocarte un poco el código, haciéndolo así mas corto para una sentencia de borrado.
A la vez creo haber corregido el fallo:
<%
' Recogemos el dato del anterior formulario.
NOMBRE = Request.Form("Idmensaje")

' Instanciamos y abrimos nuestro objeto conexion
' utilizando el último driver de conexión
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("./foro.mdb")

' Ahora ejecutamos el borrado.
Conn.Execute(" DELETE * FROM discusion Where IdMensaje= ' "&NOMBRE & " ' ")
Conn.Close
Set Conn = nothing
%>
<html><body>
<h1><div align="center">Registro Borrado</div></h1>
<div align="center"><a href="foro.asp">Visualizar el contenido de la base</a></div>
</BODY></HTML>

Prueba y avisame.
Espero haberte ayudado

maestro · #3 (**permalink**) 18/05/2003, 19:44

A ver Rriveros, una cosilla antes de que te vuelvas loco y nos vuelvas a nosotros.

Por lo que veo estas empezando con ASP, por tanto lo primero que debrias hacer es leerte algun manual de ASP y las FAQ de este foro.
Tambien puedes buscar respuestas a problemas concretos con la herramienta de busquedas.

Lo que quiero decirte es que no tienes que abrir 5 posts como los de hoy, los 5 con el mismo tema una conexion a una base de datos que no sabes ni como va ni porque falla y hace que te falle el resto de la aplicacion, algo totalmente logico si estas empezando en ASP.

Usa pequeños ejemplos de los que hay disponibles en FAQSDELWEB:

http://faqsdelweb.com

ASPFACIL:
http://aspfacil.com

ASPTUTOR:
http://www.asptutor.com/

Y lo mas importante, entender lo que haces, sino cuando algo te falle no sabes por donde puede estar el error.
A los demas tambien nos ha pasado, por eso te lo digo asi de claro.
Si no funciona leete las FAQ, usa la herramienta de busquedas y si no encuentras nada o no lo entiendes, entonces si, pregunta lo que sea necesario, pero no preguntes por sistema cada vez que algo no te va, estudialo primero.

Bienvenido y animo.

Rriveros · #4 (**permalink**) 18/05/2003, 20:27

no me resulto, quizas si ves el borrar1.asp se te puede aclarar este tema, aquí va:

<% if session("autorizacion")<>1 then
response.redirect "login.asp"
end if%>
<HTML>
<HEAD>
<TITLE>Borrar1.asp</TITLE>
</HEAD>
<BODY>
<div align="center">
<h1>Borrar un registro</h1>
<br>
<%
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./foro.mdb")
%>

<FORM METHOD="POST" ACTION="borrar2.asp">
Escoja el ID Mensaje<br>
<%
'Creamos la sentencia SQL y la ejecutamos
SQL="Select IdMensaje From discusion order by IdMensaje"
set RS = conn.execute(SQL)
%>
<select IdMensaje="IdMensaje">
<%

'Generamos el menu desplegable
Do While not RS.eof%>
<option><%=RS("IdMensaje")%>
<% RS.movenext
Loop
%>
</select>
<br>
<INPUT TYPE="SUBMIT" value="Borrar">
</FORM>
</div>

</BODY>
</HTML>

Maestro, creo que en cierto modo tienes razon, pero tengo que entregar un foro mañana y necesito soluciones rápidas por eso es que posteo varias veces, así es más facil que lo vean.