ayuda con funcion que devuelve un recordset

[debspain]

hola!
a ver necesito asignar un recordset como resultado de una función. Lo estoy intentando y no se porqué no funciona.. si alguien m echa una mano lo agradeceré eternamente. Gracias

Bueno el codigo q utilizo es el siguiente, a ver si alguien m dice donde me equivoco...

<%

Function BuscarInmuebles()

Set Conexion = Server.Createobject("ADODB.Connection")
Set Rs = Server.Createobject("ADODB.Recordset")
CadenaConexion = "..."
Conexion.Open CadenaConexion
SQL = "..."
Rs.Open SQL,Conexion
set BuscarInmuebles = Rs
set Conexion = nothing

End Sub
%>
...
<%
set RsInmuebles = Server.Createobject("ADODB.Recordset")
set RsInmuebles = BuscarInmuebles
%>

ahmm... he omitido ciertos datos pero tened en cuenta q son correctos.. la consulta funciona, pero lo de devolver el recordset me da el error: Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: 'BuscarInmuebles'

[mariano_donati]

Hola, la función la tenés que terminar con End Function, no End Sub. Lo segundo que veo es que si bien vos estás creando el RS, no le estás devolviendo nada a la función, porque no lo estás recorriendo, ni estás ejecutando ninguna acción sobre el mismo. Lo que podrías hacer es con el método getRows, hacer que la función te devuelva el array correspondiente que guarda los registros del RS. Sería algo así:


Function BuscarInmuebles()

Dim RSArray 'Aca va guardado el array del RS

set conexion = Server.CreateObject("ADODB.Connection")
set RS = Server.CreateObject("ADODB.RecordSet")
conexion.Open strConn
RS.Open SQL, conexion
RSArray = RS.getRows()
RS.Close
conexion.Close()
set RS = Nothing
set conexion = Nothing

Return RSArray

End Function

Saludos, y espero que alguien abunde más en esto.
Suerte!.

[debspain]

gracias por responder mariano!
lo de end function ya lo arreglé, ni m había fijado.. pero sigue dando el mismo error. Me extraña que de error aunque no haga nada sobre el recordset despues de abrirlo... esto lo he hecho en visual basic muchas veces y nunca he tenido ningun problema. En cuanto a que me devuelva un array.... necesito tener un recordset, porque lo recorro en diferentes lugares de la web.
como lo ves?

[mariano_donati]

Hola, lo veo bien lo que quieres hacer, o mejor dicho, queda a tu criterio. Si me preguntas que haría yo personalmente, yo siempre prefiero utilizar getRows, ya que me permite por un lado cerrar la conexion con la base, cerrar el RS y limpiar ambos objetos, al instante de haberlos creado, mientras que de la otra forma, el recorrido de los registros del RS se hace con la conexion abierta, con el RS abierto, para luego cerrarlos y limpiarlos al final del recorrido. Pero eso, como dije antes, es una visión particular.
Y en cuanto al error, la verdad que no se en donde puede estar. Probaría tu código a ver que resulta, pero hace unos cuantos dias ya que no puedo hacer funcionar las paginas ASP en mi computadora porque ni siquiera me deja conectarme a la base de datos ya.
Te dejo un saludo y espero que lo soluciones, ya sea con uan respuesta desde aquí o por otro lado.
Suerte!.

[debspain]

Hola mariano! Pues ya que no he encontrado la manera devolviendo el recordset, he probado con getrows, que en serio ni lo conocia, y si ocupa menos recursos, mejor que mejor. El caso es que me sigue dando el mismo error, asi que ya no se que hacer...

hola! he modificado el código tal y como indico a continuación, y me sigue dando el mismo error... ya no se que hacer.. alguien puede ayudarme please?

<%
dim MatrizBusqueda
MatrizBusqueda = BuscarInmuebles("w","ws","ss")
...
%>
...
<%
Function BuscarInmuebles(IdCategoria,IdSubcategoria,IdLocal idad)

dim Conexion,Rs,SQL,ResBusqueda
Set Conexion = Server.Createobject("ADODB.Connection")
Set Rs = Server.Createobject("ADODB.Recordset")
CadenaConexion = "..."
Conexion.Open CadenaConexion
SQL = "SELECT * FROM Immuebles "
Rs.open SQL,Conexion
ResBusqueda = Rs.getRows
Rs.close
Conexion.close
set Rs= nothing
set Conexion = nothing
Return ResBusqueda

End Function
%>


He probado con Return ResBusqueda, y BuscarInmuebles = ResBusqueda, pero no hay manera.... da el mismo error --> No coinciden los tipos: 'BuscarInmuebles'
Alguien sabe que está pasando?

[u_goldman]

La linea que devuelve una funcion debe ser

Function BuscarInmuebles()
BuscarInmuebles = algun_valor
End Function

salu2,

[debspain]

buenas otra vez...
en el mensaje anterior ya puse que tb habia sustituido Return resBusqueda por BuscarInmuebles = ResBusqueda, y tampoco va!


.... toy perdiendo la paciencia... que estará pasando?