Listar Información de la DB y Eliminar Registro Hola, quiero listar la información de la tabla en este caso solo la ID y al elegir una ID me de la opción de eliminar, alguien tiene el código por ahí? ( estoy trabajando con Acces y ADODB)
Gracias.,
tengo esto, me da un error de que se necesita un objeto, solo deseo listar Id Mensaje.
<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")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./foro.mdb")
%>
<FORM METHOD="POST" ACTION="borrar2.asp">
Nombre<br>
<%
'Creamos la sentencia SQL y la ejecutamos
SQL="SELECT IdMensaje FROM discusion WHERE IdMensaje="&IdMensaje&""
set RS = conn.execute(SQL)
'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>
y el siguiente es borrar2.asp
<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")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./foro.mdb")
'Ahora creamos la sentencia SQL
sSQL="Delete From discusion Where IdMensaje='" & IdMensaje & "'"
'Ejecutamos la orden
set RS = Conn.Execute(sSQL)
%>
<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>
Le agradezco a quien me ayude.
