ejecutar accion si no encuentra datos en la DB

[th3r0rn]

Hola, me gustaria saber si existe alguna manera y como se hace para tomar una determinada accion si no se encuentran datos en una base de datos mediante ASP, es decir si no encuentro datos entonces mostrar "no hay datos en la base de datos" u otra accion.
Gracias y Saludos

[u_goldman]

Asumiendo que ya existe una conexión activa llamada ObjConn.

Código ASP:

Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT campos FROM tabla"
rs.Open strSQL, ObjConn, 3, 3
 
 
if not rs.EOF then
   Response.Write("No se encontraron registros")
else
   ' Haz algo con tus datos
end if
 

Este es uno de los requerimientos mas comunes, el buscador es tu amigo

Saludos

[manolo572]

bueno namas para rellenar y que tengas mas clara la idea de como hacerlo

Código ASP:

<%      
        Set rs1= Server.CreateObject("ADODB.Recordset")
            selectSQL1 ="select * from Tabla"
 
        Set rs1=prycxn.execute(selectSQL1)
         
        if rs1.EOF then
%>
            <script>
                alert("No hay información")
            </script>
<% 
else
   ' Haz algo conotra tabla por ejemplo'
end if
 

[th3r0rn]

Hola, pero supongamos que yo llamo a los registros con un do while, tengo que sustituir mi code por eso?. mi code es este:

Código ASP:

registros15s.open"EXEC monitor '"&fecha&"','"&linea15n&"','"&horamia&"'",conexion15s
do while not registros15s.eof
etc...
 

saludos

[th3r0rn]

No púes no me funciona :(

Código ASP:

SET conexion9S=Server.CreateObject("ADODB.Connection")
    conexion9s.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MESSRV02;UID=sa;PWD=messrv;DATABASE=wasp "
            SET registros9s=Server.CreateObject("ADODB.RecordSet")
         registros9s.open"EXEC monitor '"&fecha&"','"&linea09s&"','"&horamia&"'",conexion9s
         
         SET conexionAVG9s=Server.CreateObject("ADODB.Connection")
    conexionAVG9s.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MESSRV02;UID=sa;PWD=messrv;DATABASE=wasp "
            SET registrosAVG9s= Server.CreateObject("ADODB.RecordSet")
        
        registrosAVG9s.open"SELECT AVG(PESO)as promedio,o.linea from Optimas as o INNER JOIN pesos as p on o.codigo =p.codoptima WHERE fecha >='"&fecha&"' AND hora='"&horamia&"' AND o.linea='L09S' GROUP BY LINEA",conexionAVG9s
        do while not registrosAVG9s.eof
        promedio=cint(registrosAVG9s.fields("promedio"))
            if registros9s.eof then
                Response.Write("no hay data")
                else
                    Response.write("si hay data")
                    end if
 

[u_goldman]

A ver, a ver, vamos a pensar que de esto se trata la programación.

Un ciclo do...while tiene por fuerza que comenzar con una condición verdadera -el ciclo se ejecuta al menos una vez- por ende, si la condición no es verdadera, nunca entrará.

Ahora, para lo que pretendes hacer, la condición tiene que estar primero y dentro de la porción que corresponde a la condición verdadera, deberías tener tu ciclo.

Código:

if condicion then
  do
      algo
  loop
else
  imprime "no se encontraron registros"
fin si

Saludos