Problem med recset och arrayer

3 svar · 162 visningar · startad av rilu 9 aug. 2002

riluMedlem sedan jan. 200059 inlägg

Trådstart9 aug. 2002 12:54#1

Hej har lite problem med att mata en array med ett recset.

Set RS3= Connect.Execute(RS3)
Do until RS3.EOF

For i = 0 To RS3.Recordcount
minArray(i,0)=RS3("personid")
minArray(i,1)=RS3("personnamn")
minArray(i,2)=RS3("personefternamn")
minArray(i,3)=RS3("occupation")
next

RS3.MoveNext
Loop

Här är koden som jag använder för att visa arrayen

<%For i = 0 To Ubound(minArray,1)
Response.write minArray(i,0) 
Response.write minArray(i,1)
Response.write minArray(i,2)
Response.write minArray(i,3)&"<br>"
Next%>

Någon som ser något fel i min kod, resultatet blir just nu ingenting av denna utskrivning.

SkarreMedlem sedan apr. 20012 427 inlägg

9 aug. 2002 13:22#2

Du kanske skulle använda GetRows istället? Eller finns det en anledning till att du lägger posterna i en array manuellt?

riluMedlem sedan jan. 200059 inlägg

9 aug. 2002 13:27#3

De ska sedan jämföras och bara skriva ut ett namn, men flera yrken. Alltså flera yrken på det namnet.

solbulleMedlem sedan mars 20015 287 inlägg

9 aug. 2002 13:33#4

Precis, varför inte Getrows direkt?

Men hur som helst kan väl inte det där fungera, For-loopen snurrar ju till RS3.Recordcount för varje RS3.

Skall inte i bara vara en variabel som plussas för varje RS3.MoveNext?

Set RS3= Connect.Execute(RS3)

i = 0

Do until RS3.EOF

'For i = 0 To RS3.Recordcount
minArray(i,0)=RS3("personid")
minArray(i,1)=RS3("personnamn")
minArray(i,2)=RS3("personefternamn")
minArray(i,3)=RS3("occupation")
'next
i = i + 1
RS3.MoveNext
Loop

(Eller så snurrar jag till det... )