Que hacer si no hay registro

[hexbin]

Saludos

Anteriormente había preguntado como checar si no existe registro a la consulta, y la solución fue un If Ob_RS.BOF and Ob_RS.EOF.

Pero eso funciona cuando abres normalmente la consulta. Pero mi ASP maneja GetRows, y no funciona.

Que puedo hacer para que si no haiga contenido en el GetRows pueda enviar un error??

Gracias

[Lynx]

Tan sencillisimo como:

If Not oRs.Eof Then
vRs = oRs.GetRows
End If

[Hereje]

Hola, mirá:

<%
Dim oRs, oConn, MiGetRows, Datos
Datos = False
'... conexion y consulta a la bd
If oRs.EOF Then
'no se han encontrado registros
Else
MiGetRows = oRs.GetRows
Datos = True
End If

oRs.Close
oConn.Close

If Datos Then

Cantidad = UBound(MiGetRows, 2) + 1
Response.Write("Registros: " & Cantidad)
For I = LBound(MiGetRows, 2) To UBound(MiGetRows, 2)
'mostrá los resultados
Next

End If
%>

Espero que te haya servido de algo !!

Sergio Flores<br>La Rioja, Argentina.<br><a href="http://www.lamatufia.com.ar">La Matufia</a>

[hexbin]

Muchas gracias

[hexbin]

Saben no me funciono, creo que tengo que abrir la conexión de la sentencia, cosa que que no quiero realizar, por que estoy utilizando GetRows

Set Ob_Conn = Server.CreateObject (&quot;ADODB.Connection&quot;)
Set Ob_RS = Server.CreateObject (&quot;ADODB.RecordSet&quot;)
Ob_Conn.Open &quot;Hibridos&quot;
if linea &lt;&gt; &quot;&quot; then
slt = &quot;Select * from hibridos where distrito='&quot;&amp;distrito&amp;&quot;' AND linea='&quot;&amp;linea&amp;&quot;'&quot;
else
slt = &quot;Select * from hibridos where distrito='&quot;&amp;distrito&amp;&quot;'&quot;
end if
set rs = Ob_Conn.Execute(slt)

If Ob_RS.EOF Then
'no se han encontrado registros
Else
Tabla = rs.GetRows
Datos = True
End If

Set Ob_Conn = Nothing
Set Ob_RS = Nothing

Este es el código, y como ven Ob_RS.EOF es nulo porque nunca se abre. Lo que necesito más que nada es saber si el GetRow esta vacío o no.

[hexbin]

ya lo resolvi