Error recordset

[movil]

Tengo esta linea de codigo:

RS.Close

RS lo tengo declarado de la siguiente manera:

Set RS=Server.CreateObject("ADODB.Recordset")

y me da el siguiente error:

El objeto no acepta esta propiedad o método: 'Close'

Me podrian decir el motivo?
Gracias

Aprobecho para deciros otro error(espero no abusar mucho), el siguiente codigo estaria bien:

<%if RS.EOF then%>
<script language="JavaScript">
alert("No hay datos de administrador.");
</script>
<%End if%>

Me da el siguiente error:

El objeto no acepta esta propiedad o método: 'EOF'

Gracias otra vez

[mariano_donati]

Hola, no se si estarás poniendo tu código completo, pero si tu código original es tal cual como lo pusiste el error que tienes es que no le indicas al objeto RecordSet que conexión usarás, y tampoco le estás indicando cual es la tabla que debe abrir para extraer los registros. Prueba con esto:

set conn = Server.CreateObject("ADODB.Connection") 'te conectas a la base de datos
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("tu_base.mdb")

set RS = Server.CreateObject("ADODB.RecordSet") 'creas el RS
RS.ActiveConnection = conn
RS.Open "tu_tabla"

Otra forma sería reemplazando la linea RS.Open "tu_tabla" por RS.Open("una_sentencia_SQL"), que podría ser "SELECT * FROM tu_tabla" o la que se te acomode a tus necesidades.

Luego de todo esto si tienes que poner las siguientes lineas:

RS.Close 'cierra el RS
set RS = nothing 'Limpia el RS para liberar recursos
conn.Close 'cierra la conexion
set conn = nothing 'Limpia la conexion para liberar recursos


Eso es lo que tendrías que modificar en tu código, no debería darte error.
Lo otro que pusiste en tu mensaje, lo dejas como está, tampoco debería darte error.
Bueno espero que te haya ayudado y te mando saludos.

[trasgukabi]

no tendrás dos rs.close en la misma página? (es sólo por probar opciones)

[movil]

El codigo que tengo es el siguiente:

Set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "colegio"
Set RS=Server.CreateObject("ADODB.Recordset")
RS=Conn.Execute("SELECT nombre, clave FROM accesoadm")

Para realizar la conexion a la base de datos y para realizar la consulta, despues de esto tengo una serie de comparaciones que no me dan error y por ultimo el cierre de la conexion que lo tengo de la siguiente manera:

RS.Close
RS = Nothing
Conn.Close
Conn = Nothing

Asi que no se lo que me puede fallar.

[u_goldman]

No estoy muy seguro que esto funcione así:

Set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "colegio"

Set RS=Server.CreateObject("ADODB.Recordset")
RS=Conn.Execute("SELECT nombre, clave FROM accesoadm")


Trata así:

Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open "SELECT nombre, clave FROM accesoadm", Conn, 3, 3


Salú!

[Neuron_376]

Mira, no se si siempre pase, o es solo a veces, pero no puedes usar Close sobre un Recordset que esta vacio, o bien, que aun no se ha hecho nada, tampoco el EOF, y por los errores que te aparecen quiere decir que el RS que tienes jamás hizo una consulta valida y que ademas regresara datos.

Revisa que tengas bien la consulta que realizas con el RS.

[movil]

Para comprobar que funciona he hecho lo siguiente:

Response.Write(RS("nombre"))
Response.Write(RS("clave"))

y me escribe el nombre y la clave que tengo almacenada en la base de datos.

Los consejos que me habeis dado ahora no los he probado, pero los probare, por cierto que son los dos ultimos parametros que se ponen en la consulta?

[Neuron_376]

A lo que tienes arriba...

Set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "colegio"
'Set RS=Server.CreateObject("ADODB.Recordset") 'Esta linea no creo que la necesites, aqui puede ser el error.
set RS=Conn.Execute("SELECT nombre, clave FROM accesoadm")

Para realizar la conexion a la base de datos y para realizar la consulta, despues de esto tengo una serie de comparaciones que no me dan error y por ultimo el cierre de la conexion que lo tengo de la siguiente manera:

RS.Close
RS = Nothing
Conn.Close
Conn = Nothing

Asi que no se lo que me puede fallar.

[u_goldman]

Todos lo pasamos, pero el compilador lo encontró

RS = Nothing

Para destruir un objeto, necesitas anteponer la instrucción Set

Set RS = Nothing

[Neuron_376]

Faltaba arriba y tambien abajo hace falta, entonces quedaria asi finalmente...

Set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "colegio"
'Set RS=Server.CreateObject("ADODB.Recordset") 'Esta linea no creo que la necesites, aqui puede ser el error.
set RS=Conn.Execute("SELECT nombre, clave FROM accesoadm")

Para realizar la conexion a la base de datos y para realizar la consulta, despues de esto tengo una serie de comparaciones que no me dan error y por ultimo el cierre de la conexion que lo tengo de la siguiente manera:

RS.Close
set RS = Nothing
Conn.Close
set Conn = Nothing

Buen trabajo !!

[movil]

Muchas gracias a todos, habeis sido de mucha ayuda.
Hasta la proxima (espero que pase mucho tiempo hasta eso)
Gracias otra vez

[oooriii]

Iniciado por movil

Para comprobar que funciona he hecho lo siguiente:

Response.Write(RS("nombre"))
Response.Write(RS("clave"))

y me escribe el nombre y la clave que tengo almacenada en la base de datos.

Los consejos que me habeis dado ahora no los he probado, pero los probare, por cierto que son los dos ultimos parametros que se ponen en la consulta?

LOs 2 ultimos parametros creo k son el LockType y el CursorType


Salu2