A ver si alguien SABE!!
Publicado por Anibal Canelon (1 intervención) el 19/09/2001 21:20:23
Salu2
Fijense en esto..tengo una dll en visual basic q me retorna un objeto variant.. q es realmente un arreglo de objetos..
osea tengo un arreglo donde cada posicion es un objetoX.
cuando lo llamo desde una forma en visual basic excelente..fijense..
Dim X As cva_reglas.cvaProyect
Set X = CreateObject("cva_reglas.cvaProyect")
Dim C
c = X.FindByUser("1")
For i = 0 To UBound(c)
MsgBox "codPro=" & c(i).codProyecto & ", nombrePro=" & c(i).Proyecto
Next i
Set X = Nothing
Pero en ASP no me funciona :(
set proyect=Server.CreateObject("cva_reglas.cvaProyect")
ap=proyect.FindByUser("1")
Response.Write(ubound(ap)) ' Si me imprime la cantidad de datos..
s="<center><table>\n"
Set oProyect = Server.CreateObject("cva_domain.proyecto")
for i=0 to ubound(ap)
s=s & "<tr bgcolor=blue>"
set oProyect= ap(i)
s="<td>"+oProyect.codProyecto+"</td><td>"+oProyect.Proyecto+"</td>\n"
s=s+"</tr>\n"
next
s=s+"</table></center>\n"
Fijense en esto..tengo una dll en visual basic q me retorna un objeto variant.. q es realmente un arreglo de objetos..
osea tengo un arreglo donde cada posicion es un objetoX.
cuando lo llamo desde una forma en visual basic excelente..fijense..
Dim X As cva_reglas.cvaProyect
Set X = CreateObject("cva_reglas.cvaProyect")
Dim C
c = X.FindByUser("1")
For i = 0 To UBound(c)
MsgBox "codPro=" & c(i).codProyecto & ", nombrePro=" & c(i).Proyecto
Next i
Set X = Nothing
Pero en ASP no me funciona :(
set proyect=Server.CreateObject("cva_reglas.cvaProyect")
ap=proyect.FindByUser("1")
Response.Write(ubound(ap)) ' Si me imprime la cantidad de datos..
s="<center><table>\n"
Set oProyect = Server.CreateObject("cva_domain.proyecto")
for i=0 to ubound(ap)
s=s & "<tr bgcolor=blue>"
set oProyect= ap(i)
s="<td>"+oProyect.codProyecto+"</td><td>"+oProyect.Proyecto+"</td>\n"
s=s+"</tr>\n"
next
s=s+"</table></center>\n"
Valora esta pregunta
0