Cómo pasar por referencia un recordset desde ASP

08/09/2003 - 05:24 por Felipe Araya | Informe spam
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.
 

Leer las respuestas

#1 Manuel Vera
08/09/2003 - 23:42 | Informe spam
¿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.

Preguntas similares