16/07/2007, 01:39
|
| | | Fecha de Ingreso: abril-2007
Mensajes: 32
Antigüedad: 18 años 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)
|