Fråga databas och spara resultatet i en array istället för en recordset

getrows

Gör en sökning i forumet

Tack LarsG.

Vilka tunga trådar jag fick svar på när jag sökte...

Så här verkar det fungera:

<% sql_question = "SELECT * FROM T_list_look " 
set rs = Connect.Execute(sql_question)
avarGetRowsArray = rs.GetRows()
%>

<%=Ubound(avarGetRowsArray)%>
<hr>
<% 
For x = 0 To Ubound(avarGetRowsArray)
    for y = 0 To Ubound(avarGetRowsArray)
	Response.Write(avarGetRowsArray(y,x)&", ")
	next %> <br>
<% Next %><hr>

<% sql_question = "SELECT * FROM T_list_look " 
set rs = Connect.Execute(sql_question)
avarGetRowsArray = rs.GetRows()
%>

<hr>
<% varColsLen = Ubound(avarGetRowsArray,1)%><br>
<% varRowsLen = Ubound(avarGetRowsArray,2)%><br>
<hr>
<% 
For varRowsNum = 0 To varRowsLen
    for varColsNum = 0 To varColsLen
	Response.Write(avarGetRowsArray(varColsNum,varRowsNum)&", ")
	next %> <br>
<% Next %><hr>

Se bara till att kontrollera EOF innan du kör getrows(), annars kommer du få ett felmeddelande.

mvh

OK, Tack !