array dinamici

[edovox]

Ciao ragazzi !!

Domandina facile facile (per voi! per me no)

Come faccio a creare un array con valori dinamici
ossia come faccio a passare il numero di record di un db in un array?

Grazie

[Sypher]

questo è un modo

dim tuoarr()
i=0
while not rs.EOF
   Redim Preserve tuoarr(i)
   'operazioni sull'array ridimensionato
   i = i +1
wend

[edovox]

Ciao !!! e grazie prima cosa !


Poi... Mentre attendevo una risposta mi sono cimentato io in una soluzione che ti allego al seguito, ma osservando la tua ho notato che c'è Preserve, presumo sia un metodo ma come si usa?

Comunque ti allego la mia soluzione, adesso devo trovare un modo
per effettuare un controllo sui valori già stampati

<%
Dim fine
dim Conn10

set  Conn10 = server.createobject ("Adodb.Connection")

dim rs10
set rs10=server.CreateObject("Adodb.recordset")

Conn10.ConnectionString="provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath ("/mdb-database/data.mdb")& ";"
Conn10.Open
dim id
dim nome
   rs10.Source="select id,nome from Tabella  ;"
   rs10.Open ,conn10
   while not( rs10.eof)
   id=rs10(0)
   nome=rs10(1)
   rs10.MoveNext 
     wend
    rs10.Close
	
Dim Numero 
Dim iContatore, iElementiArray 
'dichiaro due variabili di comodo
Randomize 
Numero = 1 + int(Rnd * id) 
rs10.Source="select * from Tabella where id=("& Numero &") ;" 
rs10.Open,conn10

response.write rs10("Nome").value & "
"
rs10.Close

iElementiArray = id               
'dichiaro il numero di elementi dell`array  
ReDim arrNumeri(iElementiArray) 
'dimensiono l`array dinamico
'utilizziamo un ciclo FOR per riempire il nostro array 
'(LBound  indica l`indice inferiore dell`array,  UBound l`indice superiore)
'visualizziamo il contenuto dell`array
For iContatore = LBound(arrNumeri) To UBound(arrNumeri) 
 Response.Write  iContatore  & _       
 arrNumeri(iContatore) & "
"
 Next
%>

Grazie

[Sypher]

Preserve Optional. Keyword used to preserve the data in an existing array when you change the size of the last dimension.

dal sito della microsoft