Visual Basic.NET - Arreglo de objetos

 
Vista:

Arreglo de objetos

Publicado por Caros Reyes (15 intervenciones) el 23/07/2007 01:19:40
Hola amigos que tal
Veran, me encuentro desarrollando un ERP en .NET, Me encuentro diseñando la capa de Data Access pero me he topado que la declaracion de arrays de arrays cambio drasticamente de visual 6 a .NET.
En un ERP que trabajo en visual 6 para hacer esto pues solo basta asignarle los datos a un variant y listo, ejemplo:

dim varDato as variant
varDato= ARRAY(ARRAY("@param1",AdVarchar, 100, param1), & _
ARRAY("@param2",AdVarchar, 100, param2), & _
ARRAY("@param3",AdVarchar, 100, param3))

y pues de esta manera simplemente asignaba arrays dentro de un variant y pues automaticamente me generaba un arreglo dentro de otro arreglo.

Necesito hacer exactamente lo mismo pero en .NET,segun se se deberia de hacer con un objto dentro de otro objeto, pero no me funciona, me marca un error.

objColParam = New Object(
New Object( {"@strUser", OleDb.OleDbType.VarChar, 100, strUser} ), & _
New Object( {"@strUser", OleDb.OleDbType.VarChar, 100, strUser} ))

en .NET asigno valores del array con { } y se supone que con new creas uno nuevo, pero algo me esta fallando, podrian darme una orientada, pues lo que pretendo hacer es dinamicamnete agregar los parametros de un Stored Procedure y mandarselos a otro componente para que el realize la ejecucion del Stored Procedure.

Se los agradecere de antemano

Carlos Reyes
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Arreglo de objetos

Publicado por Harold V. (411 intervenciones) el 23/07/2007 21:20:26
Esto te funcionara........

Dim StrArray1 As Object() = {"@strUser", OleDb.OleDbType.VarChar, 100, struser}
Dim StrArray2 As Object() = {"@strUser", OleDb.OleDbType.VarChar, 200, struser}

Dim MyPrincipalArray As Object() = {StrArray1, StrArray2}

'convertimos a array a strarray1
Dim my2array As Array = CType(MyPrincipalarray(0), Array)

'Por ejemplo Aqui te muestra todo lo que hay en strArray1
For x As Int32 = 0 To my2array.GetUpperBound(0) - 1
MsgBox(my2array.GetValue(x).ToString())
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar