Foros del Web » Programando para Internet » ASP Clásico »

Mensaje error si registro no existe

Estas en el tema de Mensaje error si registro no existe en el foro de ASP Clásico en Foros del Web. hola!!! Tengo un pequeño problema en un formulario que elimina registros de la base de datos. Tengo un cuadro de texto y botones enviar y ...
  #1 (permalink)  
Antiguo 13/07/2007, 03:36
 
Fecha de Ingreso: abril-2007
Mensajes: 32
Antigüedad: 17 años, 1 mes
Puntos: 0
Mensaje error si registro no existe

hola!!! Tengo un pequeño problema en un formulario que elimina registros de la base de datos. Tengo un cuadro de texto y botones enviar y borrar

Quiero que me aparezca un mensaje de error cuando le doy a borrar y el texto a borrar en la base de datos no está. Lo que ocurre es que no se donde ponerlo porque donde lo haga no me sale lo que quiero.


El código del mensaje de error es este:

If ACCION2="Baja" and EMAIL <> RS2("EMAIL") then

TEXTO1="ERROR"

Dónde meto esta sentencia If??

Este es el código de dónde da la baja:
If CODIGO <> "" And DIRECCION <> "" Then

ElseIf ACCION1="Alta" Then

If Not Rs.Eof Then
TEXTO1="ERROR"

Else
Rs.AddNew

End IF

ElseIf ACCION2="Baja" Then
Rs.delete

Rs("I_SUSCRIPCION")=ID
RS("EMAIL")=EMAIL Rs.Update

End If

TEXTO1="BAJA HECHA CORRECTAMENTE"

End If

Else

TEXTO1="ACCIÓN DESCONOCIDA"

End If
  #2 (permalink)  
Antiguo 13/07/2007, 09:40
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
Re: Mensaje error si registro no existe

Podrías poner el código funcional encerrado entre etiquetas de código? lo que me interesa es ver la consulta y donde abres el primer recordset.

Saludos
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #3 (permalink)  
Antiguo 16/07/2007, 01:39
 
Fecha de Ingreso: abril-2007
Mensajes: 32
Antigüedad: 17 años, 1 mes
Puntos: 0
Re: Mensaje error si registro no existe

aqui dejo el código:

Cita:
If CODIGO <> "" And DIRECCION <> "" Then

CrearRS dbi,rs,sSQL,

If Rs.Eof Then
TEXTO1="ERROR"

ElseIf dato="B" Then
TEXTO1="BAJA"

ElseIf dato="A" Then
TEXTO1="ALTA"

End If

CerrarObj(RS)

ElseIf EMAIL <> "" Then

CrearRS dbi2,rs,sSQL,0

CerrarObj(RS)
CerrarObj(dbi2)

If X_Error<>"" Or X_Error2<>"" Then
TEXTO1="ERROR"

ElseIf ACCION1="Alta" Then

CrearRS dbi,rs,sSQL,0

If Not Rs.Eof Then
TEXTO1="ERROR"

Else

Rs.AddNew
TEXTO1="ALTA"
End IF

CerrarObj(RS)

ElseIf ACCION2="Baja" Then

CrearRS dbi,rs,sSQL,0

IF not Rs.Eof Then
Rs.delete

End If

CerrarObj(RS)

TEXTO1="BAJA"

End If

Else

TEXTO1="ERROR"

End If

CerrarObj(dbi)
  #4 (permalink)  
Antiguo 17/07/2007, 10:36
Avatar de Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 4 meses
Puntos: 146
Re: Mensaje error si registro no existe

No me lo tomes a mal, pero lo mejor que pudieras hacer es volver a hacer el programa.

En algún lado deberías de hacer la validación de si el texto no esta, esto se puede hacer de varias formas: lanzando la sentencia DELETE y revisando cuantos registros se afectaron o buscando el registro antes de borrar. Esta última es la más simple.

sql = "Delete from table where campo = '" & tuTexto & "'"
rs.Open sql, objConexion
if rs.EOF Then
Response.Write "El dato no existe": Response.End
End If

Te pudiera sugerir donde puedes poner algo como esto, pero a tu código no le entiendo un ápice

Última edición por Myakire; 18/07/2007 a las 09:10
  #5 (permalink)  
Antiguo 18/07/2007, 01:38
 
Fecha de Ingreso: abril-2007
Mensajes: 32
Antigüedad: 17 años, 1 mes
Puntos: 0
Re: Mensaje error si registro no existe

La verdad q sí q es un poco lioso, pero al final pude hallar el lugar exacto donde colocar el código que quería
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:54.