Porque no borra??

[Mara]

Me puede explicar alguien por que no borra
Primero hago una busqueda y luego lo selecciono para borrar el primer paso me lo hace sin problemas pero en el segundo me dice registro no encontrado
Gracias
<%

Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "pidcompleta"
Tabla.Open "Select * From PID Where [PID]=Trim('" & Request("Registro") & "')",Conexion,2,3,1
If Tabla.BOF And Tabla.EOF Then
%>
<p><font face="Arial">El registro <strong>NO</strong> ha sido encontrado
<%
Else
Tabla.Delete
%>
</p>
<p><font face="Arial">El registro ha sido <strong>eliminado</strong>
satisfactoriamente
<%
End If
Tabla.Close
Conexion.Close
%>
</font></font></body>
</html>

[urjose]

Código:

<%

Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "pidcompleta"
Tabla.Open "Select * From PID Where [PID]=Trim('" & Request("Registro") & "')",Conexion,2,3,1
If Tabla.BOF And Tabla.EOF Then
%>
<p><font face="Arial">El registro <strong>NO</strong> ha sido encontrado
<%
Else
Tabla.Delete
Tabla.Update
%>
</p>
<p><font face="Arial">El registro ha sido <strong>eliminado</strong>
satisfactoriamente
<%
End If
Tabla.Close
Conexion.Close
%>
</font></font></body>
</html>

[Mara]

Me sigue diciendo lo mismo registro no encontrado

[Vitorino]

Podrias hacer algo de este estilo

strSQL = "DELETE FROM PID Where [PID]=Trim('" & Request("Registro") & "')"

conexion.execute strSQL

ASI SEGURO QUE LO BORRA....ta luego

[Henry Zapata]

Hola:

Si abres un recordset que no tiene registros entonces BOF y EOF son seteados a TRUE.

Según tu lógica,

- "Si lo encuentras entonces ha sido eliminado" ?
- No deberia ser "Si no lo encuentro entonces fue eliminado"

saludos!!

[Mara]

Gracias

[Mai]

Si lo que quieres hacer es encontrarlo y borrarlo has esto
<%

Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "pidcompleta"
Tabla.Open "Select * From PID Where [PID]=Trim('" & Request("Registro") & "')",Conexion,2,3,1
If Tabla.BOF And Tabla.EOF Then
%>
<p><font face="Arial">El registro <strong>NO</strong> ha sido encontrado
<%
Tabla.Delete
Else
%>
</p>
<p><font face="Arial">El registro ha sido <strong>eliminado</strong>
satisfactoriamente
<%
End If
Tabla.Close
Conexion.Close
%>
</font></font></body>
</html>

dentro del ELSE no puedes hacer nada con el registro porque no existe el registro.

Espero que te sirva.
Mai