[VB] Mettere dei Record in un Array

[Daniele80]

ciao,
stavo pensando di fare questo perchè è la cosa più semplice che mi è venuta in mente anceh perchè mettere 15 campi nascosti con i dati im sembra assurdo.
Praticamente io da un LIST seleziono un nome, da questo nome carico tutti i dati relativi e li vorrei mettere in un array per poi inserirli in un'altra tabella.

ho fatto questo:

Set Rs = Conn.Execute("SELECT * FROM Clienti WHERE Nominativo='" & Combo1.List(Combo1.ListIndex) & "'")

Dim v() As Double
Dim i As Integer

ReDim v(Rs.RecordCount) As Double
For i = 0 To Rs.RecordCount - 1
i = i + 1
v(i) = Rs...come gli metto il nome del campo in automatico?Next i

è fattible una cosa del genere o me la sono inventata?

[santal]

Ciao,
il metodo GetRows() della classe Recordset fa proprio quello che vuoi:
in pratica crea una MATRICE nella composta da N righe quante sono i record restituiti dalla select, e N colonnne corrispondenti al numero dei campi del record.

MyArray = Rs.GetRows

Ciao

[Daniele80]

ok grazie, se avrò dei problemi posterò di nuovo

[Daniele80]

mi sono dimenticato questo:


ora come faccio a scorre i dati?

[santal]

Beh, devi scorrerti la matrice. Ricorda che ha due dimensioni (righe e colonne).

Per esempio
A = MyArray (1,1)
assegna alla variabile A il contenuto della matrice alla colonna 1 della riga 1.

Basta scorrere con un for..next

Ciao

[Daniele80]

ma se faccio MyArray = Rs.GetRows

dentro MyArray come li ho i dati?


e poi a me servirebbe recuperare i dati dal db in questo modo:

MyArray =
nomecampo1, valore1
nomecampo2, valore2
nomecampo3, valore3

e cosi via


come posso fare?