UDT en VBA.Collection

26/04/2006 - 17:10 por Cristian Rosa | Informe spam
Hola, tengo un problema con dlls COM.
Tengo una serie de clases de negocio escritas en VB6 que necesito utilizar
de VB2005. El problema es que en estas clases tienen un metodo que devuelve
una colección con datos de typ UDT. Ejemplo

Public Type typCons
ID As Long
Fecha As Date
Descripcion As String
End Typ

Public Function Consulta(ByVal Fecha As String) As Collection
Dim oCol As New Collection
Dim recCons As typCons

...
'Obtengo resultado de la Base de datos
while ...
oCol.Add recCons
...
Set Consulta = oCol
End Function

El siguiente codigo de VB2005 da error en la línea "recCons = oCol(x)"

Dim recCons as typCons
Dim oCol as VBA.Collection
Dim objCons As objCons
Dim x As long

oCol = objCons.Consulta("01/01/2006")
For x = 1 to oCol.Count
recCons = oCol(x)
msgbox recCons.Descripcion
Next

Hay alguna forma de resolver este problema o tengo que reescribir mis clases
de negocio?

Muchas gracias
 

Leer las respuestas

#1 Eduardo A. Morcillo [MS MVP VB]
26/04/2006 - 19:16 | Informe spam
El siguiente codigo de VB2005 da error en la línea "recCons = oCol(x)"



¿Que error?
Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
http://mvp.support.microsoft.com/pr...4EF5A4191C

Preguntas similares