leer matriz de vb6

Hola,
tengo una dll en VB6 la cual contiene una funcion que me devuelve
variant()
function matriz() as variant()
Dim k1(2) As Variant
Dim k2(2) As Variant
Dim k() As Variant
k1(0) = "A"
k1(1) = "B"
k2(0) = "C"
k2(1) = "D"
k(0) = k1
k(1) = k2
matriz = k
end function

Quiero ver el contenido de esta matriz en asp pero me
da un error de tipos al intentar extraer sus elementos
el bucle que estoy usando para recorrer la matriz es el siguiente:
Mimatriz=obj.matriz()
For i = 0 To ubound ()
x = MiMatriz(i)
for j=0 to ubound(x)
response.write(x(j)) & "-"
next
next
¿Alguien puede decirme una forma alternativa de declarar o recorrer la
matriz ?

Muchas gracias

sin saber el error que te da es dificil pero puedes probar con "for each" en
vez de usar "for"

"Mariajose" escribió en el mensaje
news:
> Hola,
> tengo una dll en VB6 la cual contiene una funcion que me devuelve
> variant()
> function matriz() as variant()
> Dim k1(2) As Variant
> Dim k2(2) As Variant
> Dim k() As Variant
> k1(0) = "A"
> k1(1) = "B"
> k2(0) = "C"
> k2(1) = "D"
> k(0) = k1
> k(1) = k2
> matriz = k
> end function
>
> Quiero ver el contenido de esta matriz en asp pero me
> da un error de tipos al intentar extraer sus elementos
> el bucle que estoy usando para recorrer la matriz es el siguiente:
> Mimatriz=obj.matriz()
> For i = 0 To ubound ()
> x = MiMatriz(i)
> for j=0 to ubound(x)
> response.write(x(j)) & "-"
> next
> next
> ¿Alguien puede decirme una forma alternativa de declarar o recorrer la
> matriz ?
>
> Muchas gracias

Hola,
tengo una dll en VB6 la cual contiene una funcion que me devuelve

function matriz() as variant()
Dim k1(2) As Variant
Dim k2(2) As Variant
Dim k() As Variant
k1(0) = "A"
k1(1) = "B"
k2(0) = "C"
k2(1) = "D"
k(0) = k1
k(1) = k2
matriz = k
end function

Quiero ver el contenido de esta matriz en asp pero me
da un error de tipos al intentar extraer sus elementos
el bucle que estoy usando para recorrer la matriz es el siguiente:
Mimatriz=obj.matriz()
For i = 0 To ubound ()
x = MiMatriz(i)
for j=0 to ubound(x)
response.write(x(j)) & "-"
next
next
¿Alguien puede decirme una forma alternativa de declarar o recorrer la
matriz ?

Muchas gracias

Haz comprobado que esto te funcione desde visual basic?

Por aparentemente estas tratado de asignar un vector a una celda de una
matriz.

Y por otro lado K() no tiene valor especifico, por lo que tampoco deberia
aceptarte la introduccion de valores en este punto.

Saludos,

Matias Iacono
Microsoft MVP



"Mariajose" wrote in message
news:
> Hola,
> tengo una dll en VB6 la cual contiene una funcion que me devuelve
variant()
> function matriz() as variant()
> Dim k1(2) As Variant
> Dim k2(2) As Variant
> Dim k() As Variant
> k1(0) = "A"
> k1(1) = "B"
> k2(0) = "C"
> k2(1) = "D"
> k(0) = k1
> k(1) = k2
> matriz = k
> end function
>
> Quiero ver el contenido de esta matriz en asp pero me
> da un error de tipos al intentar extraer sus elementos
> el bucle que estoy usando para recorrer la matriz es el siguiente:
> Mimatriz=obj.matriz()
> For i = 0 To ubound ()
> x = MiMatriz(i)
> for j=0 to ubound(x)
> response.write(x(j)) & "-"
> next
> next
> ¿Alguien puede decirme una forma alternativa de declarar o recorrer la
> matriz ?
>
> Muchas gracias

Hola,
tengo una dll en VB6 la cual contiene una funcion que me devuelve

function matriz() as variant()
Dim k1(2) As Variant
Dim k2(2) As Variant
Dim k() As Variant
k1(0) = "A"
k1(1) = "B"
k2(0) = "C"
k2(1) = "D"
k(0) = k1
k(1) = k2
matriz = k
end function

Quiero ver el contenido de esta matriz en asp pero me
da un error de tipos al intentar extraer sus elementos
el bucle que estoy usando para recorrer la matriz es el siguiente:
Mimatriz=obj.matriz()
For i = 0 To ubound ()
x = MiMatriz(i)
for j=0 to ubound(x)
response.write(x(j)) & "-"
next
next
¿Alguien puede decirme una forma alternativa de declarar o recorrer la
matriz ?

Muchas gracias