Borrar registros

[Rocio Acevedo Medina]

Hola, soy nueva en ASP's y estoy trabajando con bases de datos, (insertando, borrando y actualizando registros) pero necesito hacer una validacion a la hora de borrar, quero que cuando se de un nombre que no exista en la BD aparezca el mensaje de que esa persona no existe, ¿¿como le hago??.

Les agradeceria mucho me ayudaran.

Saludos

[mamon]

primero haces el select, osea...
<%
sql = "select * from usuarios where usuario = '"&request.form("usuario")& "'"
set oRS = Server.CreateObject("ADODB.Recordset")
set oRS = oCN.execute(sql)

if oRS.eof then
response.write "El usuario "& request.form("usuario")& " no existe"
else
'lo borras
end if
%>
espero que te sirva

<center><font face="verdana" size="1" color="black">Muy pronto no más aburrimiento en internet, siempre abrá algo nuevo para ver...[/CODE]
</center>

[Rocio Acevedo Medina]

gracias pero de esa forma es como lo estoy haciendo y no funciona, cuando doy un nombre que no existe, me saca el mensaje de nombre borrado, te pongo el codigo para que lo veas

***************

Set rsdel = Server.CreateObject (&quot;ADODB.Recordset&quot;)

strSQL = &quot;SELECT * FROM empleados WHERE Nombre ='&quot; &amp;nombre&amp; &quot;' and Apellido ='&quot; &amp;apellido&amp; &quot;'&quot;

Set rs = Server.CreateObject (&quot;ADODB.Recordset&quot;)
rs.Open strSQL, oConn

if (rs.EOF) Then
Response.Write (&quot;No existe nadie con el nombre &quot;&amp; Nombre)
else
strSQL = &quot;DELETE FROM empleados WHERE Nombre='&quot;&amp;nombre&amp;&quot;' and Apellido='&quot;&amp;apellido&amp;&quot;'&quot;
rsdel.Open strSQL, oConn
Response.Write (&quot;&lt;p&gt; Nombre borrado: &quot; &amp; Nombre &amp; &quot; &quot; &amp; Apellido &amp; &quot; &quot; &amp; &quot;&lt;br&gt;&quot;)
rsdel.Close
end if

rs.Close
oConn.Close

:) Gracias

[bakanzipp]

prueba asi

Código:

  
Set rs = Server.CreateObject ("ADODB.Recordset")
strSQL = "SELECT * FROM empleados WHERE Nombre ='" & nombre & "' and Apellido ='" & apellido & "'" 

Set rs=oConn.execute(strSQL)

fijate tb que es lo que viene en nombre y apellido

;)

[Rocio Acevedo Medina]

Ya vi lo que trae nombre y apellido y si es el que le estoy tecleando, ya lo hice tambien de esa forma y no quedaaaa, ¿como le hago????

Gracias

[bakanzipp]

entonces quiere decir que si te trae registros y supuestamente ese registro no existe...es raro...prueba con esto y dinos que te imprime

Código:

  
Set rs = Server.CreateObject ("ADODB.Recordset")
strSQL = "SELECT * FROM empleados WHERE Nombre ='" & nombre & "' and Apellido ='" & apellido & "'" 

response.write strSQL

Set rs=oConn.execute(strSQL)

if not(rs.eof) and not(rs.bof) then

response.write "Nombre : "&rs("nombre")&"<br>"
response.write "Nombre : "&rs("apellido")&"<br>"

end if

veamos que tira..cuentanos

[Rocio Acevedo Medina]

ya lo probe y si me trae el nombre y apellido de la persona que quiero borrar, entonces???

[bakanzipp]

ya po'h si te trae el nombre y apellido de la persona quiere decir que el registro si existe en la base de datos..entonces tienes que borrarlo...

pon tu sql de delte en el if que te puse y en el else el mensaje de que no existe el registro...

[Rocio Acevedo Medina]

asi lo tengo y cuando le doy a una persona que si existe sí me trae el nombre y lo borra, pero me saca el mensaje de que la persona no existe, y cuando la persona no existe, no me trae nombre y si me trae el mensaje de que no existe, esta raro no???

[bakanzipp]

¿¿¿????...huuaa...ke raro...estas segura que probaste asi?

Código:

  
Set rs = Server.CreateObject ("ADODB.Recordset")
strSQL = "SELECT * FROM empleados WHERE Nombre ='" & nombre & "' and Apellido ='" & apellido & "'" 

response.write strSQL

Set rs=oConn.execute(strSQL)

if not(rs.eof) and not(rs.bof) then
strSQL = "DELETE FROM empleados WHERE Nombre='"&nombre&"' and Apellido='"& apellido &"'"
rsdel=Set oConn.execute(strSQL)
Response.Write ("<p> Nombre borrado: " & Nombre & " " & Apellido & " " & "<br>")
rsdel.Close
else
 response.write "No existe el Registro"
end if

[Rocio Acevedo Medina]

siiiii, asi lo estoy haciendo, te pongo todo mi codigo para que lo veas, el problema es que exista o no el nombre siempre me manda el mensaje de que no existe nadie con ese nombre ¿como vez???

*****************

Set oConn=Server.CreateObject(&quot;ADODB.Connection&q uot;)
oConn.Open strConnectionString

Set rsdel = Server.CreateObject (&quot;ADODB.Recordset&quot;)
Set rs = Server.CreateObject (&quot;ADODB.Recordset&quot;)
strSQL = &quot;SELECT * FROM empleados WHERE Nombre ='&quot; &amp;nombre&amp; &quot;' and Apellido ='&quot; &amp;apellido&amp; &quot;'&quot;
Response.Write strSQL &amp; &quot;&lt;BR&gt;&quot;
rs.Open strSQL, oConn

if not(rs.eof) and not(rs.bof) then
strSQL = &quot;DELETE FROM empleados WHERE Nombre='&quot;&amp;nombre&amp;&quot;' and Apellido='&quot;&amp;apellido&amp;&quot;'&quot;
set rsdel= oConn.execute(strSQL)
Response.Write (&quot;&lt;p&gt; Nombre borrado: &quot; &amp; Nombre &amp; &quot; &quot; &amp; Apellido &amp; &quot; &quot; &amp; &quot;&lt;br&gt;&quot;)
rsdel.close
else
Response.Write (&quot;No existe nadie con el nombre &quot;&amp; Nombre)
end if
rs.Close
oConn.Close
%&gt;

[bakanzipp]

es ke en mi vida de usar el if nunca me ha pasado eso..

si se mete al primer if por ke se mete al else?..

if x then

'se mete aqui

else

'se mete aca

end if

si tienes este postulado no veo como...a menos que tengas un ciclo dentro del if (for,while,etc)...pero no veo ninguno



todavia no lo creo...

[bakanzipp]

pare..pare..pare

ahora estoy leyendo bien...me dices que nunca borra el registro...o sea el if funciona bien...lo malo es que nunca se mete donde tu quieres.

ah..y no me grite :-p ke no soy tu novio :P

[Rocio Acevedo Medina]

no te grito, solo estoy un poquito desesperada porque esto no queda, pero perdon perdon, y si borra los registros, solo que siempre me saca el mensaje de que ese nombre no existe, osea que lo borra y despues me dice que no existe, ¿y ahora?
;)

[bakanzipp]

una salida al cine podria ser ;)

no se po'h...la verdad es que no ligo como puede meterse al if y al else a la vez..en visual yo usaba un exit if para que no siguiera con la ejecucion del if pero la logica dice que no puede realizar lo que tu me dices...estoy igual de impresionado que tu

ayudandote a sentir

[Rocio Acevedo Medina]

ok, me agrada lo de la salida al cine, ya que esto no queda pues que mas dá, pues voy a seguir revisandolo haber que mas le puedo hacer para que jale, y muchas gracias :)

[bakanzipp]

ejaleee....encontre acompañante para el cine...jejje...seria bueno que existiera un foro de cupido o algo asi

sabes lo mejor cuando uno esta enfrascado con un problema es:

1. recordar algun cancion relajada en tu mente
2. tararearla
3. start--&gt;shut down te computer
4. levantarse de la silla
5. abrir la puerta y salir a tomar un poco de aire
6. relajarse un rato
7. volver y prender el pc y tratar de nuevo

Código:

  
if not(funciona) then
  
  SQL="Destrozar el PC a Palos"
  set rs=response.execute(SQL)
   :molesto:  :ojotes:  :roto:  :golpeado:   :prohibido  :censura:  :-p 

else

    :P ;)  :)  :cantar:  :decabeza: 
end if

suerte y ojala te funcione

[Rocio Acevedo Medina]

jajaja al menos ya me hiciste reir, eso voy a hacer y pues muchas gracias por todo


bye

[forastero]

prueba con este codigo:

Set Conn = Server.CreateObject(&quot;ADODB.Connection&quot;)
Conn.Open(&quot;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&quot; &amp; Server.MapPath(&quot;tubase.mdb&quot;))
set rs=createobject(&quot;ADODB.Recordset&quot;)
set rs1=createobject(&quot;ADODB.Recordset&quot;)

set rs=Conn.execute (&quot;select * from empleados where nombre=&quot; &amp;nombre&amp; &quot;' and Apellido ='&quot; &amp;apellido&amp; &quot;'&quot;)
if rs.eof=true then
response.write(&quot;el tipo no existe&quot;)
else
set rs1=Conn.execute (&quot;DELETE * FROM empleados WHERE Nombre='&quot;&amp;nombre&amp;&quot;' and Apellido='&quot;&amp;apellido&amp;&quot;'&quot;)
response.write(&quot;el bicharrako ha sido eliminado&quot;)

si funciona...
jaja naaaaaaaaaaaaaaaaaaa

salu2