Sof?R.
26 de Noviembre del 2003

Hola! Espero que alguien me pueda ayudar.

Estoy haciendo una consulta para la cual necesito crear una tabla temporal. Cuando corro el query que me devuelve el navegador en el "Query Analizer" todo funciona a la perfección y me devuelve como 100 registros, pero cuando lo quiero ejecutar me marca el error 800a0e78 y me dice que no puedo utilizar el objeto sin antes abrirlo...¡pero si está abierto!...¿alguna idea de por qué pasa esto?

Aquí les mando el código que causa el problema:

Cnx = Session("cnv")
Set rs = Server.CreateObject("ADODB.Recordset")

Sql = ""
Sql = Sql & " SELECT envio.id_sucursal, "
Sql = Sql & " envio.fechayhora, "
Sql = Sql & " envio.id_sucursal1, "
Sql = Sql & " envio.paquete, "
Sql = Sql & " recibo.paquete as paq_recibo "
Sql = Sql & " INTO #PASO "
Sql = Sql & " FROM actividad as envio LEFT JOIN actividad as recibo "
Sql = Sql & " ON envio.id_sucursal1 = recibo.id_sucursal "
Sql = Sql & " and envio.id_sucursal =
recibo.id_sucursal1 "
Sql = Sql & " and envio.paquete = recibo.paquete "
Sql = Sql & " and recibo.tipo = 'recibo' "
Sql = Sql & " WHERE envio.id_sucursal ='cedis trc' "
Sql = Sql & " and envio.tipo ='envio' "
Sql = Sql & " and envio.fechayhora <= ' " & fecha1 & "' "
Sql = Sql & " and envio.fechayhora >= ' " & fecha3 & "' "
Sql = Sql & " GROUP BY envio.fechayhora, envio.id_sucursal1, envio.id_sucursal, envio.paquete, recibo.paquete "
Sql = Sql & " ORDER BY envio.id_sucursal1, envio.paquete "

Sql = Sql & " "
Sql = Sql & " SELECT * "
Sql = Sql & " FROM #PASO "
Sql = Sql & " WHERE paq_recibo is NULL "

rs.Open Sql, Cnx

'AQUI MARCA EL ERROR
IF (rs.EOF AND rs.BOF) THEN

Response.Write "No se encontraron registros"

ELSE
...

Mario Parada
26 de Noviembre del 2003

La verdad es que no se pero ocupa este código, que verifica que no este cerrada la conexión,

Do Until rs.State = adStateOpen
Set rs = rs.NextRecordset
Loop

si te funciona, quere decir que al hacer la consulta de alguna manera te cierra la conexión


rs.Open Sql, Cnx

'Usa aquí este codigo
Do Until rs.State = adStateOpen
Set rs = rs.NextRecordset
Loop

'AQUI MARCA EL ERROR
IF (rs.EOF AND rs.BOF) THEN

Response.Write "No se encontraron registros"

ELSE
...


PD: Espero que te sirva, saludos