Delucidazioni su getrows

[Grinder]

Sto affrontando per la prima volta il comando getrows e sono già bloccato . Avrei necessità di estrarre i dati dal database e inserirli in un array bidimensionale.

code:numcols = ubound(bufferdata, 1)
numrows = ubound(bufferdata, 2)

Quello che mi piacerebbe sapere è intanto cosa significa quel numero dopo "bufferdata", e seconda cosa, se con getrows estraggo tutta la riga, o se posso specificare uno o più campi da estrarre.

Grazie in anticipo

[Roby_72]

getrows restituisce un array bidimensionale (righe,colonne).
I campi restituiti sono quelli della select.

strSQL="SELECT campo1, campo2, campo3 FROM tabella"
set objRS = server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn
oSearch_report_aziendale = ""
if not objRS.EOF then
	oSearch_report_aziendale = objRS.getrows
else
	oSearch_report_aziendale = ""
end if
objRS.Close
set objRS=nothing

Roby

[Grinder]

Grazie, ho risolto. Però il problema adesso è come ordinare i record! Ho già aperto un post in merito...

[Roby_72]

In che senso? Il getrows restituisce i record in base alla SELECT. Ordina quella no??

Roby

[Grinder]

Ho provato a fare

...order by "&variabiliArray&" ASC"

, ma mi da errore di sintassi in "order by "

[Roby_72]

Non ha senso ordinare un array costruito in base ad una query. Ordina prima la query in modo da avere un array già pronto.
Controlla cosa contenga quella variabile. Fatti stampare la query.

Roby

[Grinder]

Trattandosi di un procedimento alquanto complesso ho optato per dividere in due fasi la ricerca: una pagina effettua i calcoli e crea gli array, la seconda mostra i record e li ordina per l'array-risultato. Però mi sa che qualcosa non quadra...nella pagina di ricerca ho messo:

set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_camp3000_STRING
sql = "SELECT * FROM campeggi"
set rs = MM_camp3000_STRING.execute(sql)
arrDistanze = rs.getrows

session("Totale_Record") = UBound(arrDistanze)


function ordinamento()
For i = 0 To session("Totale_Record")
dim CampLat
CampLat = arrDistanze(4,i)
dim CampLong
CampLong = arrDistanze(5,i)
call distanza(Latconv(ns, g, m, s), Longconv(ew, g2 , m2, s2), CampLat, CampLong)
next
end function

session("order") = ordinamento()

rs.Close()
set rs = nothing
MM_camp3000_STRING.close()
set MM_camp3000_STRING = nothing

response.redirect("resultgps.asp")

e nella seconda

<%'test di risposta
response.write(session("order")&"
")%>

...risultato: non viene visualizzato nulla sullo schermo!!!Perchè? In teoria dovrei avere 2470 risultati