Ayuda con matrices dinamicas !!!

[chsc]

Soy un total junior en basic

Alguien me puede mostrar con codigo, un ejemplo de como ir cargando datos en una matriz dinamica ??


Yo necesito ir cargandola con los datos de un formulario (datos)
Entonces lo haria algo asi...

Do Until datos.Recordset.EOF
{

' voy cargando mi matriz dinamica
}


Como creo dicha matriz ??
Y como la defino ??



Yo hice esto pero desde ya tiene errores de sintaxis, como se corrige ??


Dim f As Integer
Dim c As Integer
f = 0
c = 0
Dim matrizAsientos() As String

Do Until datos.Recordset.EOF

matrizAsientos(f, c) = datos.Empresa.Value
matrizAsientos(f, c + 1) = datos.Trabajo.Value
ReDim Preserve matrizAsientos(f + 1, c + 1)

Loop

[hugo180486]

Compañero no se puede redimensionar una matriz, bueno corrijo si se puede pero no se guardan los valores almacenados, tendrias que guardar los elementos ya almacenados en la matriz, redmimensionarla y volverlos agregar...


Veo que usas el recordset verdad?, puedes intentar lo siguiente, explico un poco

Código vb:

'// Defines la Matriz
Dim msMatriz as String
 
'// El recordset tiene estas 2 propiedades
'// Nota abrelo del lado del cliente
Recordset.CursorLocation = adUseClient
REcordset.Open '// Lo abres como tu desees estoe s solo para que te guies
 
Recordset.RecordCount '// Con esto obtienes el numero de renglones de tu matriz
Recordset.Fields.Count '// Con este el numero de columnas.
 
'// Ahora si dimensionas tu matriz, como tu ya sabes cuantos renglones tiene el
'// recorset y cuantos campos (columnas), ya no tienes que redimensionarla
'// varias veces, con una sola vez bastara....
 
Redim msMatriz(1 to Recordset.RecordCount, 1 to Recordset.Fields.Count)
 
'// Ya nada mas pasas los elemntos a la matriz....
 

Saludos, comentas por favor...

[chsc]

muy buenoooo. graciassssss