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

No entiendo este error en un Recordset

Estas en el tema de No entiendo este error en un Recordset en el foro de ASP Clásico en Foros del Web. Hola Gente!!! Estoy haciendo un simple Recordset (De los que he hecho miles) y me sale este error por pantalla al cargar una de las ...
  #1 (permalink)  
Antiguo 11/11/2004, 08:51
Avatar de verinchi  
Fecha de Ingreso: septiembre-2004
Ubicación: Buenos Aires
Mensajes: 647
Antigüedad: 20 años, 7 meses
Puntos: 2
Pregunta No entiendo este error en un Recordset

Hola Gente!!!
Estoy haciendo un simple Recordset (De los que he hecho miles) y me sale este error por pantalla al cargar una de las paginas
ADODB.Recordset error '800a0bb9'

Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.

/sistema/equipos/mas_usuarios.asp, line 16


En el documento, lo que está escrito es esto:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" LCID = 11274 %>
<!--#include file="../Connections/INFO_SQL.asp" -->
<%'------------------------------------ DEFINICION DE VARIABLES ----------------------------------

dim RsUsu, RsUsuRows, SqlUsu
dim Sucursal, Nombre
if (Request.Form("Sucurs")<>"") Then Scursal=Request.Form("Sucurs") else Sucursal=NULL end if
Nombre=Request.QueryString("Usuario")
Cliente=Request.Form("Cliente")

'------------------- DECLARACIÓN DE SENTENCIA SQL -------------------------------------------------
SqlUsu="SELECT NOMBRE FROM USUARIOS_CLIEN WHERE NOMBRE='"&Nombre&"' "


'--------------------------ARMADO DE VERIFICACIÓN DE ABREVIATURA---------------------------
SET RsUsu=SERVER.CreateObject("ADODB.Recordset")
RsUsu.ActiveConnection = MM_INFO_SQL_STRING
RsUsu.Source=SqlUsu
RsUsu.CursorType=0
RsUsu.CursorLocation=2
RsUsu.LockType=1
RsUsu.Open()
RsUsurRows=0

Y la Línea 16 es... Chan Chan Chan Chan!!!....
La que está coloreada en Rojo.

Alguien tiene una idea de qué es lo que está pasando???

Agradezco muchísimo la molestia de prestarme atencion!
__________________
Why can't we not be sober?
www.partitorium.com.ar
  #2 (permalink)  
Antiguo 11/11/2004, 09:02
 
Fecha de Ingreso: octubre-2003
Mensajes: 49
Antigüedad: 21 años, 6 meses
Puntos: 0
Puede ser que ya este definido el objeto o ya lo hayas utilizado con anterioridad y no lo hayas cerrado RsUsu=SERVER.CreateObject("ADODB.Recordset"), acostumbra a cerrarlos despues de utilizarlos.

... no veo que otro problema pueda ser

SUERTE

Última edición por fallen_angel; 11/11/2004 a las 09:04
  #3 (permalink)  
Antiguo 11/11/2004, 09:23
Avatar de verinchi  
Fecha de Ingreso: septiembre-2004
Ubicación: Buenos Aires
Mensajes: 647
Antigüedad: 20 años, 7 meses
Puntos: 2
fallen_angel!
Primero gracias por tu respuesta.
Te comento: No es posible que esté definido con anterioridad principalmente porque he cerrado todos los juegos de registros de la pagina anterior, además, me he preocupado por no utilizar el mismo nombre de juego de registros para las consultas en las distintas paginas que cargo, menos si son consecutivas.
Son temas heredados de la programación procedural que me han quedado...

Ya le he cambiado el nombre cerca de 3 veces de todas formas por si acaso, pero nada funciona.
Puede tener algo que ver la línea de conexión, que no encuentre la ruta o algo asi????
Porque realmente ya no se me ocurre!!!!

Gracias!!
__________________
Why can't we not be sober?
www.partitorium.com.ar
  #4 (permalink)  
Antiguo 11/11/2004, 09:45
 
Fecha de Ingreso: octubre-2003
Mensajes: 49
Antigüedad: 21 años, 6 meses
Puntos: 0
Pero el error que te despliega es un poco raro, revise la sintaxis y esta correta, mira te adjunto el codigo que utilizo yo para esate tipo de recordset.

Cita:
SQL2="SELECT SUM(TOT_NET) AS RESULTADO1, SUM(TOT_BRU) AS RESULTADO2 FROM monitor WHERE (fec_vta >= CONVERT(DATETIME, '"&PERIODO1&"', 102)) AND (fec_vta <= CONVERT(DATETIME, '"&PERIODO2&"', 102)) AND COD_LOC="&COD_LOC&" AND TIP_DOC=25 "
SET RS2=Server.CreateObject("ADODB.Recordset")
RS2.Open SQL2, CONN2, 1, 2
IF NOT RS2.EOF THEN
TOT_BOL_NET=CDBL(RS2.FIELDS("RESULTADO1"))+TOT_BOL _NET
TOT_BOL_BRU=CDBL(RS2.FIELDS("RESULTADO2"))+TOT_BOL _BRU
END IF
RS2.CLOSE
donde conn2 es la conexion y rs2 el recordset, espero que sea de utilidad
  #5 (permalink)  
Antiguo 11/11/2004, 14:24
 
Fecha de Ingreso: octubre-2004
Mensajes: 104
Antigüedad: 20 años, 6 meses
Puntos: 0
Quita los parentesis en:

RsUsu.Open()

Si lo pones asi, es como si no le estuvieras pasando parametros al metodo.

  #6 (permalink)  
Antiguo 12/11/2004, 12:12
Avatar de verinchi  
Fecha de Ingreso: septiembre-2004
Ubicación: Buenos Aires
Mensajes: 647
Antigüedad: 20 años, 7 meses
Puntos: 2
PosDon Hola!
Siempre utilizo los recordset asi, voy a probar a ver que sucede, de todos modos agradezco a todos y tengo que hacer una aclaración que hará que muchos piensen que soy idiota.
El tema es que no trabajo sola, y parece que a mi compañero le divierten las bromas.
como trabajo con ODBC me cambió el include de la pagina que tiene la información de conexión y no me di cuenta que estaba cambiado. Tenía el DNS de otra base en la que estubo alojado antes mi proyecto, en access.
Tonterías que no se me ocurrió verificar y que son la clave de horas perdidas!!!
Gracias a todos por todo!!!
__________________
Why can't we not be sober?
www.partitorium.com.ar
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 12:44.