borrado de registros asp-access

[juanes31516]

ayuda por favor el siguiente codigo me borra un registro de una base de datos, si borro un registro la base de datos que tenga en el campo nombre_evento una palabra sin espacios, me la elimina. pero si en el campo nombre_evento tengo una cadena de caracteres con espacios y ese registro es el que quiero borrar, no me la borra, ---creo que es por lo de los esapacios--- alguien me puede ayudar???

<%
Dim ID
ID = Request.Form("id")
if ID="" then
Response.Write "No ha seleccionado ningun item.!"
Else
Dim Conn
Dim Rs
Dim sql
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bdhomeromanzi.mdb")
sql= "Delete tabeventos FROM tabeventos WHERE nombre_evento='"&id&"'"

Rs.Open sql, Conn
Conn.Close
Set Conn = Nothing

response.redirect "bor_even_ok.asp"





End If
%>

[juanes31516]

este es el codigo "delete.asp" que es el llamante de "deletecomment.asp" (el codigo anterior)
gracias, suerte
<%
Dim Conn, Rs, sql
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bdhomeromanzi.mdb")
sql= "SELECT * FROM tabeventos;"
Rs.Open sql, Conn
Response.Write "<FORM name='Delete' method='post' action='deletecomment.asp'>"

Response.Write "<font face=verdana><CENTER><table border=1 cellspacing=0>"

Response.Write "<tr>"&"<td colspan='6' align='center'><font size=1>"&"<font color=red><B>SELECCIONE UN EVENTO Y DE CLICK EN BORRAR para eliminar un evento</B></font>"&"</font></td>"&"</tr>"



Response.Write "</table></center>"
Response.Write "<br><br><br><br>"


Response.Write "<center><table border=1 cellspacing=0>"

Response.Write "<tr>"&"<th align='center' colspan='1'>"&"<font size=1 COLOR=RED>BORRAR</font>"&"</th>"&"<th align='center' colspan='1'>"&"<font size=1>Nombre Evento</font>"&"</th>"&"<th align='center' colspan='1'>"&"<font size=1>Descripciòn</font>"&"</th>"&"<th align='center' colspan='1'>"&"<font size=1>Fecha</font>"&"</th>"&"<th align='center' colspan='1'>"&"<font size=1>Lugar</font>"&"</th><th align='center' colspan='1'>"&"<font size=1>Hora</font>"&"</th></tr>"






Do While not Rs.EOF
Response.Write ("<tr>")
Response.Write ("<td>"&"<center><input type='radio' name='id' value="&Rs("nombre_evento")&"></center>"&"</td>")
Response.Write ("<td><font size=1>"&Rs("nombre_evento")&"</font></td>")
Response.Write ("<td><font size=1>"&Rs("descripcion")&"</font></td>")
Response.Write ("<td><font size=1>"&Rs("fecha")&"</font></td>")
Response.Write ("<td><font size=1>"&Rs("lugar")&"</font></td>")
Response.Write ("<td><font size=1>"&Rs("hora")&"</font></td>")
Response.Write ("</tr>")
Rs.MoveNext
Loop
Response.Write("<tr>"&"<td colspan='6' align='center'>"&"<input type ='submit' name='submit' value='Borrar' onClick='return validate();'>"&"</td>"&"</tr>")
Response.Write "</table></center></font>"
Response.Write "</form>"
Rs.Close
Set Rs = Nothing
Set Conn = Nothing
%>

[juanes31516]

este es el codigo "delete.asp" que es el llamante de "deletecomment.asp" (el codigo anterior)
gracias, suerte
<%
Dim Conn, Rs, sql
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bdhomeromanzi.mdb")
sql= "SELECT * FROM tabeventos;"
Rs.Open sql, Conn
Response.Write "<FORM name='Delete' method='post' action='deletecomment.asp'>"

Response.Write "<font face=verdana><CENTER><table border=1 cellspacing=0>"

Response.Write "<tr>"&"<td colspan='6' align='center'><font size=1>"&"<font color=red><B>SELECCIONE UN EVENTO Y DE CLICK EN BORRAR para eliminar un evento</B></font>"&"</font></td>"&"</tr>"



Response.Write "</table></center>"
Response.Write "<br><br><br><br>"


Response.Write "<center><table border=1 cellspacing=0>"

Response.Write "<tr>"&"<th align='center' colspan='1'>"&"<font size=1 COLOR=RED>BORRAR</font>"&"</th>"&"<th align='center' colspan='1'>"&"<font size=1>Nombre Evento</font>"&"</th>"&"<th align='center' colspan='1'>"&"<font size=1>Descripciòn</font>"&"</th>"&"<th align='center' colspan='1'>"&"<font size=1>Fecha</font>"&"</th>"&"<th align='center' colspan='1'>"&"<font size=1>Lugar</font>"&"</th><th align='center' colspan='1'>"&"<font size=1>Hora</font>"&"</th></tr>"






Do While not Rs.EOF
Response.Write ("<tr>")
Response.Write ("<td>"&"<center><input type='radio' name='id' value="&Rs("nombre_evento")&"></center>"&"</td>")
Response.Write ("<td><font size=1>"&Rs("nombre_evento")&"</font></td>")
Response.Write ("<td><font size=1>"&Rs("descripcion")&"</font></td>")
Response.Write ("<td><font size=1>"&Rs("fecha")&"</font></td>")
Response.Write ("<td><font size=1>"&Rs("lugar")&"</font></td>")
Response.Write ("<td><font size=1>"&Rs("hora")&"</font></td>")
Response.Write ("</tr>")
Rs.MoveNext
Loop
Response.Write("<tr>"&"<td colspan='6' align='center'>"&"<input type ='submit' name='submit' value='Borrar' onClick='return validate();'>"&"</td>"&"</tr>")
Response.Write "</table></center></font>"
Response.Write "</form>"
Rs.Close
Set Rs = Nothing
Set Conn = Nothing
%>

[tomchat]

Tanto codigo para nada....

Solamnente trabaja con una sentencia SQl. Te aconsejo que borres los registros dependiendo del id o codigo. Asi no tendras problemas con los espacions que dices

[juanes31516]

tomchat, es que no los puedo borrar a mi gusto, nos asignaron ese trabajo, borrarlo de esa forma,
sabes algo?
gracias.

[sjam7]

A ver asi:

Código:

<% 
Tabla2 = Server.MapPath("bdhomeromanzi.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & tabla2 & ";"
Set Tabla2 = Server.CreateObject("ADODB.Recordset")

Temp="Delete tabeventos FROM tabeventos WHERE nombre_evento='"&id&"'"
set tabla2 = conexion.Execute(Temp)
%>