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

Sentencia para que le sea igual si no hay ningun registro

Estas en el tema de Sentencia para que le sea igual si no hay ningun registro en el foro de ASP Clásico en Foros del Web. Necesito modificar este codigo, para que cuando no haya ningún registro, no me muestre ningún error. mi codigo es el siguiente: Código: Dim Comentaris Dim ...
  #1 (permalink)  
Antiguo 04/06/2005, 08:13
Avatar de TCL_ZIP  
Fecha de Ingreso: noviembre-2003
Ubicación: Esporles, Mallorca, España
Mensajes: 690
Antigüedad: 20 años, 6 meses
Puntos: 4
Sentencia para que le sea igual si no hay ningun registro

Necesito modificar este codigo, para que cuando no haya ningún registro, no me muestre ningún error.

mi codigo es el siguiente:
Código:
Dim Comentaris
Dim Comentaris_numRows

Set Comentaris = Server.CreateObject("ADODB.Recordset")
Comentaris.ActiveConnection = MM_Esporlesbc_STRING
Comentaris.Source = "SELECT *  FROM Comentaris_nov  WHERE id_coment=" & Trim(Request.QueryString("noticia")) & ""
Comentaris.CursorType = 0
Comentaris.CursorLocation = 2
Comentaris.LockType = 1
Comentaris.Open()

Comentaris_numRows = 0
Código:
<%
			If Comentaris.RecordCount <> 0 Then
			%>
			<table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">
              <tr>
                <td bgcolor="#FF9900"><div align="center">
                  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td><% Response.Write(Comentaris.Fields("Nick")) %></td>
                      <td><div align="right">
                            <% Response.Write(Comentaris.Fields("Data")) %>
                      </div></td>
                    </tr>
                    <tr>
                      <td colspan="2"><div align="center">
                            <% Response.Write(Comentaris.Fields("Comentari")) %>
                      </div></td>
                    </tr>
                  </table>
                  </div></td>
              </tr>
            </table><% Else %>
		      <table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">
                <tr>
                  <td bgcolor="#FF9900">&nbsp;</td>
                </tr>
              </table><% End if%>
i el error que me da es:
ADODB.Field error '80020009'

El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.

/seccions/nov_coment.asp, línea 0
  #2 (permalink)  
Antiguo 04/06/2005, 09:15
 
Fecha de Ingreso: marzo-2005
Mensajes: 1.418
Antigüedad: 19 años, 2 meses
Puntos: 9
If comentaris.EOF or comentaris.BOF then
Response.Write("No hay registros")
else
' Haces algo con el RecordSet
end if

Saludos.
  #3 (permalink)  
Antiguo 04/06/2005, 10:50
Avatar de TCL_ZIP  
Fecha de Ingreso: noviembre-2003
Ubicación: Esporles, Mallorca, España
Mensajes: 690
Antigüedad: 20 años, 6 meses
Puntos: 4
cual es el efecto de este codigo?

If comentaris.EOF or comentaris.BOF then
  #4 (permalink)  
Antiguo 04/06/2005, 11:15
 
Fecha de Ingreso: marzo-2005
Mensajes: 1.418
Antigüedad: 19 años, 2 meses
Puntos: 9
EOF y BOF son dos propiedades del objeto RS que devuelven un valor boleano indicando si se ha llegado al final de los registros o si se esta al principio de los registros que arroja el RS, respectivamente. El efecto de este código es comprobar el estado de esas dos propiedades, si alguna de las dos arroja "True", entonces quiere decir que no existen registros en el RS que creaste.
Te funcionó con esa linea? o te sigue dando error?
Espero que te haya ayudado en algo.
Saludos TCL_ZIP.
  #5 (permalink)  
Antiguo 05/06/2005, 14:19
Avatar de TCL_ZIP  
Fecha de Ingreso: noviembre-2003
Ubicación: Esporles, Mallorca, España
Mensajes: 690
Antigüedad: 20 años, 6 meses
Puntos: 4
Nop sigue sin funcionar, lo que he echo ha sido cambiar la linea que ponia:
If Comentaris.RecordCount <> 0 Then
Por:
If Comentaris.EOF or Comentaris.BOF then

.... i sigue dandome el mismo error
  #6 (permalink)  
Antiguo 05/06/2005, 15:11
 
Fecha de Ingreso: marzo-2005
Mensajes: 1.418
Antigüedad: 19 años, 2 meses
Puntos: 9
Hiciste asi?

if Comentaris.EOF or Comentaris.BOF then
'Aca realizas la accion cuando no hay registros

else

'como hay registros, aca comienzas a mostrarlos

End if

O nomás cambiaste una linea por otra sin agragarle nada?
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:51.