Temas

Buenas tardes

Tengo este código en VBS y necesito pasarlo a Java
He intentado varias soluciones para poder realizar Redim y Redim Preserve, pero no me ha funcionado ninguna
Alguien me presta una ayuda
Muchas gracias por adelantado

Dim cControls
set cControls = New controles

' As long as there are entries in the recordset
   NumFilas = 0
   Do While iStatus = 0
              'Joan 15/05/2007 Quito todos los resume Next
      'On Error Resume Next      
      If NumFilas = 0 then
         NumFilas = 1
         Redim cControls (NumFilas)
         'NumFilas = UBound(cControls,1)
      Else
         NumFilas = NumFilas + 1
         Redim Preserve cControls (NumFilas)
         NumFilas = UBound(cControls,1)
      End if
      Set cControls(NumFilas) = new controles

      ' Get the Fieldname
      cControls(NumFilas).ITEM_NAME = oRes.Fields("v_nomitem")
      ' Get the type of the mergefield
      cControls(NumFilas).ITEM_TYPE = oRes.Fields("v_type")
      ' Get the name of the mergefield
      cControls(NumFilas).ITEM_LABEL = oRes.Fields("v_label")
      cControls(NumFilas).ITEM_CODETABLE = oRes.Fields("v_codetable")
      cControls(NumFilas).ITEM_CODEFELD = oRes.Fields("v_codefeld")   
      iStatus = oRes.readnext
   Loop

[[MOD] Para publicar codigo, usa etiquetas GeShi, Gracias.]

Buenas
Soy completamente novato en java

Tengo este código en VBS y necesito pasarlo a Java
He intentado varias soluciones para poder realizar Redim y Redim Preserve, pero no me ha funcionado ninguna, no lo debo haber realizado bien.  
Alguien me presta una ayuda
Muchas gracias por adelantado

Código (vb) [Seleccionar] Expandir


Dim cControls
set cControls = New controles

' As long as there are entries in the recordset
NumFilas = 0
Do While iStatus = 0
        'Joan 15/05/2007 Quito todos los resume Next
'On Error Resume Next
If NumFilas = 0 then
NumFilas = 1
Redim cControls (NumFilas)
'NumFilas = UBound(cControls,1)
Else
NumFilas = NumFilas + 1
Redim Preserve cControls (NumFilas)
NumFilas = UBound(cControls,1)
End if
Set cControls(NumFilas) = new controles

' Get the Fieldname
cControls(NumFilas).ITEM_NAME = oRes.Fields("v_nomitem")
' Get the type of the mergefield
cControls(NumFilas).ITEM_TYPE = oRes.Fields("v_type")
' Get the name of the mergefield
cControls(NumFilas).ITEM_LABEL = oRes.Fields("v_label")
cControls(NumFilas).ITEM_CODETABLE = oRes.Fields("v_codetable")
cControls(NumFilas).ITEM_CODEFELD = oRes.Fields("v_codefeld")
iStatus = oRes.readnext
Loop



[MOD] Para publicar codigo, usa etiquetas GeShi, Gracias.