Cómo pasar por referencia un recordset desde ASP

¿No has pensado pasarlo como arreglo (matriz)?
lBUS.WebConpers oRs.getrows() , "p1", "p2", "p3"

¿Probaste esa DLL desde VisualBasic?

Saludos
MV

Felipe Araya wrote in message
news:
Hola amigos,


Cómo hago para pasar un recorset por referencia desde una pagina ASP
a un objeto COM+?

Tengo este codigo ASP:

dim oRs

set oRs =Server.CreateObject("ADODB.Recordset")

Set lBUS = Server.CreateObject("GW.clsNegocio")

lBUS.WebConpers oRs, "p1", "p2", "p3"

El código ASP me arroja este error:

Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: 'WebConpers'


La función WebConpers (Que esta definida en un componente
debidamente registrado en COM+) es:

Public Function WebConPers( _
ByRef rsConpers As ADODB.Recordset, _
ByVal sPaterno As String, _
Optional ByVal sMaterno As String, _
Optional ByVal sNombres As String) _
As Boolean

...
...
...


Alguna idea para solucionar el problema??

Muchas gracias.

Si, la probe desde VB y funciona.

Descubri el origen del problema en la MSDN, segun la documentación, VB
Script solo soporta tipos de datos variant para los parametros pasados por
referencia.

Asi es que cambie la definicion de la funcion por:

Public Function WebConPers( _
ByRef rsConpers As Variant, _
ByVal sPaterno As String, _
Optional ByVal sMaterno As String, _
Optional ByVal sNombres As String) _
As Variant

y funciona!

Gracias.



"Manuel Vera" escribió en el mensaje
news:
Mostrar la cita

¿No has pensado pasarlo como arreglo (matriz)?
lBUS.WebConpers oRs.getrows() , "p1", "p2", "p3"

¿Probaste esa DLL desde VisualBasic?

Saludos
MV

Felipe Araya wrote in message
news:
Hola amigos,


Cómo hago para pasar un recorset por referencia desde una pagina

ASP
Mostrar la cita

a un objeto COM+?

Tengo este codigo ASP:

dim oRs

set oRs =Server.CreateObject("ADODB.Recordset")

Set lBUS = Server.CreateObject("GW.clsNegocio")

lBUS.WebConpers oRs, "p1", "p2", "p3"

El código ASP me arroja este error:

Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: 'WebConpers'


La función WebConpers (Que esta definida en un componente
debidamente registrado en COM+) es:

Public Function WebConPers( _
ByRef rsConpers As ADODB.Recordset, _
ByVal sPaterno As String, _
Optional ByVal sMaterno As String, _
Optional ByVal sNombres As String) _
As Boolean

...
...
...


Alguna idea para solucionar el problema??

Muchas gracias.